Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: Windows Taste Sperren

  Alt 20. Apr 2008, 19:28
Zitat von toms:
Wenn du nur den Startbutton resp. das Startmenü deaktivieren möchtest, genügt auch dieser "unschöne" Code:

Delphi-Quellcode:
procedure ShowStartButton(bVisible: Boolean);
var
  TaskWindow, h: HWND;
begin
  if bVisible then
  begin
    h := FindWindowEx(GetDesktopWindow, 0, 'Button', nil);
    if h <> 0 then
    begin
      TaskWindow := FindWindow('Shell_TrayWnd', nil);
      ShowWindow(h, 1);
      Windows.SetParent(h, TaskWindow);
    end;
  end
  else
  begin
    h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
    if h <> 0 then
    begin
      ShowWindow(h, 0);
      Windows.SetParent(h, 0);
    end;
  end;
end;
der code funzt soweit ich weiß bei vista auch nicht..
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat