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;

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;