function ParamCount: Integer;//返回参数个数 function ParamStr(Index: Integer): string;//返回参数index等一下。我给你一个具体的离子
你先在你的 Form1的 OnCreate事件中+下面的代码看看有没有效果: var PCnt:integer; Par:string; i:integer; begin PCnt:=ParamCount; for i:=1 to PCnt do begin Par:=ParamStr(i); ShowMessage(Par); end; end; 编译好后,独立运行你的程序,并且随便带上几个参数实验一下可以用不。
你可以将你公共单元加到需要独立的EXE程序中..
Longint(@DataBuffer));主要是WM_COPYDATA的应用。
function ParamStr(Index: Integer): string;//返回参数index等一下。我给你一个具体的离子
var
PCnt:integer;
Par:string;
i:integer;
begin
PCnt:=ParamCount;
for i:=1 to PCnt do
begin
Par:=ParamStr(i);
ShowMessage(Par);
end;
end;
编译好后,独立运行你的程序,并且随便带上几个参数实验一下可以用不。
看看ParamStr函数和ParamCount函数的帮助你就明白了
但是返回的时候可能要其他方式返回数据,