Warten bis ShellExecute fertig ist

[Apollonius]

CPU-Last ist nicht der einzige Grund, Polling zu vermeiden. Durch Polling kann Windows deinen Programmcode nicht in die Auslagerungsdatei schieben, da er immer wieder benötigt wird. Die Alternativlösung ist auch nicht komplizierter.
Statt

Delphi-Quellcode:

Repeat
    Sleep(50);
    Application.ProcessMessages;
    GetExitCodeProcess(SEInfo.hProcess, ExitCode);
Until (ExitCode<>STILL_ACTIVE) Or Application.Terminated;

einfach

Delphi-Quellcode:

while not Application.Terminated and (MsgWaitForMultipleObjects(1, @SEInfo.hProcess, false, INFINITE, QS_ALLINPUT) = WAIT_OBJECT_0 + 1) do
     Application.ProcessMessages;