ارسال پارامتر برای اجرای exe در دلفی

برای ارسال پارامتر دو روش زیر وجود دارد 

WinExec('C:\prog.exe param1 param2', SW_SHOW); یا uses ShellApi; var parameter: String;   parameter:='param1 param2';   ShellExecute(0, 'open', 'C:\prog.exe', PChar(parameter), nil, SW_SHOW);

برای خواندن پارامترها  از دستور زیر میتوان استفاده کرد

var

   i: integer;

begin

   for i := 0 to ParamCount do

     ShowMessage(ParamStr(i));

end;




یا




// execute with "MyProgram.exe param1 /param2"   if FindCmdLineSwitch('param1') then    ShowMessage('param1'); // will not be displayed   if FindCmdLineSwitch('param2') then    ShowMessage('param2'); // will be displayed   if FindCmdLineSwitch('param3') then    ShowMessage('param3'); // will not be displayed