Windows Taste Sperren

[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;