|
ParamStr(0); // 程序自身的路徑 ParamStr(1) // 第一個(gè)參數(shù) ParamStr(2) // 第2個(gè)參數(shù) procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i:=1 to ParamCount do begin if LowerCase(ParamStr(i)) = 'beep' then Application.MessageBox('Demo','beep',IDOK ) else if LowerCase(ParamStr(i))='exit' then Application.Terminate; end; end; ============================================================================================ {Unit1.pas} 通過這個(gè)單元的Button，調(diào)用另一個(gè)實(shí)例； procedure TForm1.Button1Click(Sender: TObject);
{Unit2.pas} 接受參數(shù)的實(shí)例 procedure TForm1.FormCreate(Sender: TObject);
其實(shí)不是一定要在FormCreate中相應(yīng)，只要把ParamStr賦值給要用參數(shù)的地方就OK了。ParamStr(0)是實(shí)例自己，所以參數(shù)從1開始；而且傳的參數(shù)是以空格分看的，“'Hello World”，ParamStr(1) = ‘Hello’了； |
|
|
