让Delphi使用带参数来调用外部可执行文件（EXE文件）

{*********************************************************}
{ }
{ 使用ShellExecute带参数调用外部Ｅｘｅ文件 }
{ }
{ 版权所有 (c) 2005,2008 江智勇　 }
{ E_Mail:jzymail2008@163.com }
{ Msn:jiangzhiyong2008@msn.com }
{ QQ:89461298 }
{ }
{********************************************************}

假如先编译一个Ｅｘｅ文件,在工程里面写下如下代码：

工程一、program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var
Str:string;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Str:=ParamStr(1);　　//在运行时去读是否有带参数值是：‘jiang’,如果没有则结束自己。
if Str<>'jiang' then
begin
Application.Terminate;
Exit;
end;
Application.Run;
end.

工程二的调用：program Project2;

procedure TForm1.Button1Click(Sender: TObject);
var
sFileName,sParam,sFilePath: string;
begin
sFileName:=ExtractFilePath(Application.ExeName)+'Project1.exe';
sFilePath:='ExtractFilePath(Application.ExeName)';
sParam:='jiang';
ShellExecute(0, 'Open', PChar(sFileName), PChar(sParam), PChar(sFilePath), SW_SHOW);
end;

工程一只能通过工程来调用才可以打开，如果单独打开是不行的。因为没有传参。当然传参过程中可以进行加密。