是分开的两个独立的程序?使用主文件传参数好了。具体使用请看ParamStr帮助.procedure TForm1.FormCreate(Sender: TObject);var
i: Integer;
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
elseif LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;
i: Integer;
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
elseif LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;
通过文件。
甲运行时往指定路径下存一个有参数值的文件。例如:ParamStr.txt(内容为两个参数)
乙在CREATE时读这个文件获得参数据
又是一个进程外COM服务器的基本应用,为甲建立一个自动化对象,添加一个带返回参数的方法,并运行一甲次以注册。
(譬如甲为word.exe,对象名称为Application,方法名称为fun(var Param:integer))
为程序乙添加调用代码
var
MyParam:integer; MyObj:=CreateOleObject('word.Application');
MyObj.fun(MyParam);
MyObj:=nil; //这时MyParam的值就是返回值了