Hi Leute,
Ich hoffe, dass ist keine dumme Anfängerfrage aber ich schließe ein Fenster mit folgendem Code:
Delphi-Quellcode:
procedure TForm1.button1click(Sender: TObject);
var h: Thandle;
begin
h:=Findwindow(nil,'Fenstername');
if h<>0 then
PostMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0);
end;
Ein und dasselbe Fenster mit ein und demselben Code/Programm funktioniert auf Vista einwandfrei, jedoch auf dem XP Home System meines Vaters nicht.
Es scheitert übrigens am finden des Handles, also das PostMessage wird auf jenem XP System gar nicht ausgeführt.
Ich habe das Programm mit Delphi 6 unter Vista kompiliert.
Danke schonmal für eure Hilfe.
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg