//例子一
var
paramName:string;
procedure install();
begin
MessageDlg('install',mtWarning,[mbOK],0) ;
end;
procedure uninstall();
var
iniValue,iniFile,xmlFile:string; productID:integer;
begin
MessageDlg('uninstall',mtWarning,[mbOK],0) ;
end;
begin
if ParamCount > 0 then paramName:=LowerCase(ParamStr(1));
if (paramName='install') or
(paramName='-install') or
(paramName='') then install();
if (paramName='uninstall') or
(paramName='-uninstall') then uninstall();
end.
//例子二
根據參數運行不同的文件
begin
if(ParamCount > 0) then
begin
for i := 1 to ParamCount do
begin
if(FileExists(ParamStr(i))) then
MainForm.OpenFile(ParamSt[1] [2] 下一页
|
|
