1:
2:
3:
4:

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  exitcode := 5;                    

1:
2:
3:
4:
5:
6:
7:

   if ShellExecuteEx(@SEInfo) then begin
    repeat
    Application.ProcessMessages;
    GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
    until (ExitCode <> STILL_ACTIVE) or
    Application.Terminated;
                ShowMessage(inttostr(exitcode)) ;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button3Click(Sender: TObject);
var
   wndMain, wndChild: HWND;
   txt: string;
const
   MY_MESSAGE = WM_USER + 4242;
begin
txt := 'Hello World';
   wndMain :=  FindWindow(nil,'universelles Programmier-Tool');
   if wndMain <> 0 then
   begin
   showmessage('gefunden');
   //SendMessage(Form1.Handle, MY_MESSAGE, 0, DWORD(PChar(txt)));
   postmessage(wndMain,wm_user,0,10);
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

private
    procedure OnMyMessage(var Msg: TMessage); message MY_MESSAGE;

[...]

procedure TForm1.OnMyMessage(var Msg: TMessage);
begin

  Weltherrschaft_erringen();

end;