Hallo Freaks !
Ich habe bei folgender procedure Schwierigkeiten:
procedure TForm1.FormCreate(Sender: TObject); <br>
var <br>
hTB : HWND; <br>
begin <br>
<p>
hTB := FindWindow(nil,'Project1'); <br>
if hTB <> 0 then sendmessage(hTB,WM_Close,0,0); <br>
end; <br>
<p>
Nachdem ich versuche Project1 zu schließen, erscheint <br>
für einen kurzen Moment die Windows-Oberfläche. <br>
<p>
Kann man diese Verzögerung irgendwie abschalten. <br>
Ich denke es hat mit WM_Close zu tun. <br>
<p>
Wer kann mir helfen ? <br>
<P>
Gruß Lars
Ich habe bei folgender procedure Schwierigkeiten:
procedure TForm1.FormCreate(Sender: TObject); <br>
var <br>
hTB : HWND; <br>
begin <br>
<p>
hTB := FindWindow(nil,'Project1'); <br>
if hTB <> 0 then sendmessage(hTB,WM_Close,0,0); <br>
end; <br>
<p>
Nachdem ich versuche Project1 zu schließen, erscheint <br>
für einen kurzen Moment die Windows-Oberfläche. <br>
<p>
Kann man diese Verzögerung irgendwie abschalten. <br>
Ich denke es hat mit WM_Close zu tun. <br>
<p>
Wer kann mir helfen ? <br>
<P>
Gruß Lars
Comment