如何向应用程序传递参数

[shenvy]

有两个应用程序,都是我自己用delphi写的
我想用其中一个(a)向另外一个(b)(可执行文件)发送参数,
只有参数合理(b)才能运行,我该怎么怎么样传递参数呢?谢谢

[刘志飞]

通过DLL吧

[shenvy]

不是dll
两个都是exe;

[jimsuker]

PostMessage

[Nizvoo]

消息

[superyiman]

////发送窗口
procedure TForm1.send();
var
SendText: string;
SendDataStruct: CopyDataStruct;
begin
SendText := edit1.Text;
SendDataStruct.cbData := length(Sendtext);
SendDataStruct.lpData := @SendText[1];
SendMessage(FindWindow(PCHAR('TFormrec'), PCHAR('Formrec')), WM_CopyData, Application.Handle, lparam(@SendDataStruct));
end;
////////接收窗口
type
TFormrec = class(TForm)
Label1: TLabel;
procedure DataIn(var DataMessage: TWMCopyData); message wm_copydata;

procedure tFormrec.DataIn(var DataMessage: TWMCopyData);
var
ReceieveData : CopyDataStruct;
temp: pchar;
ReceieveStr : string;
begin
ReceieveData := DataMessage.CopyDataStruct^;
temp := ReceieveData.lpdata;
ReceieveStr := string(temp);
label1.caption:= ReceieveStr;
end;

[王集鹄]

//参考
http://www.csdn.net/expert/topic/425/425366.shtm

[bigchg]

一个EXE往INI文件里写参数
一个定时读
土了点

[leeky]

收藏中……