Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
irgendwelche externe Tools sind auch gar nicht notwendig, denn hinter dem Start-Button befindet sich ein ganz normales Control (Fenster). Also kann man über die Win32-API-Funktion <b>FindWindow</b> nach diesem Teil suchen. Das Delphi-Zubehör <i>WinSight32</i> hilft bei der Suche nach den relevanten Fensterklassen. Das folgende Beispiel "killt" den Start-Button :-)
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
hTB : HWND;
hBtn : HWND;
begin
hTB := FindWindow('Shell_TrayWnd', nil);
hBtn := FindWindowEx(hTB, 0, 'Button', nil);
if hBtn <> 0 then
PostMessage(hBtn, WM_CLOSE, 0, 0);
end;
</pre>
Comment