进程间的相互调用与参数传递【Delphi版】

一、主要场景

        a)主程序启动另外一个程序，并传递参数

        b)主进程向一个已经运行中的程序传递参数

二、代码

    1）调用程序：

var

  HWND: DWORD;

  ApplicationHWND:DWORD;

begin

  HWND:=FindWindow('TFrmMain', '参数接收窗口');

  ApplicationHWND:=GetWindow(HWND,GW_OWNER);

  if HWND <> 0 then

  begin

     memo1.Lines.Add('参数接收程序已运行，向参数接收窗口投递消息。。。');

     SendMessage(HWND,WM_TEST,0,0);



     SetForegroundWindow(HWND);

     SetActiveWindow(HWND);

     ShowWindow(ApplicationHWND,   SW_RESTORE);

    // ShowWindow(HWND, SW_SHOWNORMAL); --此种方式会造成被调用的窗口无法最小化。。。

  end

  else

  begin

     memo1.Lines.Add('参数接收程序未运行，启动程序的同时传递参数。。。');

     ShellExecute(Handle, 'Open', '..\ParamReceiver\ParamReceiver.exe', '参数1 参数2', nil, SW_SHOWNORMAL);

  end;

end;

    2) 接收程序：

         获取被启动时传递过来的参数

var

  receivedParam_0,receivedParam_1,receivedParam_2:string;

begin

  receivedParam_0:=ParamStr(0);

  receivedParam_1:=ParamStr(1);

  receivedParam_2:=ParamStr(2);



  Memo1.Lines.Add('程序被启动的同时收到参数。。。');

  Memo1.Lines.Add('ParamStr(0)='+receivedParam_0);

  Memo1.Lines.Add('ParamStr(1)='+receivedParam_1);

  Memo1.Lines.Add('ParamStr(2)='+receivedParam_2);

end;

         获取运行过程中传递过来的参数（消息响应）

begin

  Memo1.Lines.Add('窗口接收到定向投递过来的参数。。。');

  Memo1.Lines.Add('具体的参数可通过内存映射文件实现进程间共享！！');

  //Application.Restore;

end;

三、运行结果

    a)主程序启动另外一个程序，并传递参数

      调用程序：

     

      接收程序：

     

    b)主进程向一个已经运行中的程序传递参数

       调用程序：

      

       接收程序：

      

     PS: 1)一个进程调用另一个程序的主窗体: ShowWindow(Application.handle,SW_RESTORE)
            2)一个进程调用另一个程序的子窗体: a)发送消息给被调用程序
                                                               b)被调用程序收到消息后，使用form.show显示子窗体    

     注：1)防止出现ShowWindow函数调用之后出现：被调用窗口无法最小化的问题，
             不可直接使用ShowWindow(Form.handle,---).
           2)在Delphi中API函数ShowWindow对delphi的form不太管用，一般都需要发送Application来恢复。
           3)使用内存映射文件进程间传递参数参见：

                                         http://www.cnblogs.com/edisonfeng/archive/2012/05/21/2511975.html