1:

ShellExecute(Application.Handle, 'open', 'c:\testprogramm.exe', 'Parameter', nil, SW_SHOW);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function KillTask(const AExeName: string): boolean;


function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
begin
  Result := false;
  WindowBlockerMain.blocklb.caption:='°'+lowercase(AExeName);
  
  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result := TerminateProcess(OpenProcess(Process_Terminate,
                                                 false,
                                                 p.th32ProcessID),
                                     0);
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;					

1:

PChar('Hier dein String')					

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

... button1click(sender:TObject...)
var x: word;
begin
x:=findwindow(nil,'mein fenstername');
if x>0 then
   sendmessage(x,wm_close,0,0);
end;