Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#162

Re: WinSpy - Der Fenster Spion

  Alt 11. Apr 2008, 10:33
Zitat von STS301:
aber wenn man den Startbutton disabled, funktioniert er immer noch per Windowstaste
Ich habe mal eine "unschöne" Funktion geschrieben, welche beides deaktiviert.

Delphi-Quellcode:
procedure ShowStartButton(bvisible: Boolean);
var
  h: hwnd;
  TaskWindow: hwnd;
begin
  if bvisible then
  begin
    h := FindWindowEx(GetDesktopWindow, 0, 'Button', nil);
    TaskWindow := FindWindow('Shell_TrayWnd', nil);
    ShowWindow(h, 1);
    Windows.SetParent(h, TaskWindow);
  end
  else
  begin
    h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
    ShowWindow(h, 0);
    Windows.SetParent(h, 0);
  end;
end;
Thomas
  Mit Zitat antworten Zitat