FindWindow oder so???!!!!

[Handycommander]

Hallo,
ich möchte ein Programm machen, das wenn ein bestimmtes Programm
sich öffnet, das Programm gleich wieder schließt. Also, wenn jetzt
z.B. der Arbeitsplatz öffnet, hat er doch ganz oben Links die Caption
Arbeitsplatz und ich möchte es so machen, wenn eine bestimmet Caption
erscheint, dass dann mein Programm das Programm mit der bestimmten
Caption gleich wieder schließt.
Ich habe es mal mit FindWindow versucht, hat aber irgendwie nicht
geklappt, aber vielleicht habe ich auch etwas falsch gemacht.

Danke.

Tobias

[Meyer Michael]

Versuchs mal so.

<PRE>
function TForm1.SucheFensterUeberTitel(FensterTitel: string): Hwnd;
var
NextHandle: Hwnd;
NextTitle: array[0..260] of char;
begin
NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
while NextHandle > 0 do begin
GetWindowText(NextHandle, NextTitle, 255);
if Pos(FensterTitel, StrPas(NextTitle)) <> 0 then begin
Result := NextHandle;
Exit;
end else
NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
end;
Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if SucheFensterUeberTitel('Arbeitsplatz') <> 0 then
Showmessage('Arbeitsplatz offen');
end;
</PRE>

Damit sollte es gehe