Klar hat das ganze einen Tieferen Sinn.
Mann könnte es aber natürlich auchwesentlich einfacher machen. Hab halt in dem Beispiel nur noch überrüft, ob der zweite Parameter wirklich ne Zahl ist.
Hoffe das sagt dir mehr zu
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(
Handle, '
open', pchar('
"'+paramstr(0)+'
"'), pchar('
abc '+inttostr(
Handle)),
nil, SW_SHOW);
close;
end;
initialization
if Paramstr(1)='
abc'
then
while IsWindow(strtoint(Paramstr(2)))
do
sleep(1);