Hvordan stopper jeg program?

Den korte: Det gør du ikke.

Den lange: I stedet for ShellExecute skal du bruge ShellExecuteEx (http://msdn2.microsoft.com/en-us/library/bb762154(VS.85).aspx) med SEE_MASK_NOCLOSEPROCESS til fMask - så får du et handle til processen i hProcess. Dette kan du så bruge med eks. TerminateProcess (http://msdn2.microsoft.com/en-us/library/ms686714.aspx).

Tænkte mere på noget i den her stil:

procedure TForm1.Button1Click(Sender: TObject);
var
H: HWND;
begin
Shellexecute(Handle, 'open', 'cmd.exe', PChar('ipconfig/all), nil, SW_Normal);
H := FindWindow(nil, 'C:\WINDOWS\system32\cmd.exe');
if H <> 0 then
PostMessage(H, WM_CLOSE, 0, 0);
end;

Det vil da også virke fint nok så længe der kun er et vindue med den titel - det kan måske være fint nok hvis det kun er dig der skal bruge det, men det er ikke en særlig god og stabil løsning.

Hvis der er flere vinduer der matcher, ender du med at lukke et tilfældigt et - og det behøver ikke være det du åbnede.

Nå...