• Algorithms
• Application
• Components
• Database
• Distributed aplication
• DLL
• Errors
• Events
• Hardware
• IDE
• Install Shield
• Internet
• Multimedia
• Object Pascal
• Operational system
• Others
• Security
• Third party
• Win API

Hide Start Button

Use this proc. to hide the start button:

procedure hideStartbutton(visi:boolean);

  Var

  Tray, Child : hWnd;

  C : Array[0..127] of Char;

  S : String;

  Begin

  Tray := FindWindow('Shell_TrayWnd', NIL);

  Child := GetWindow(Tray, GW_CHILD);

  While Child <> 0

  do Begin

  If GetClassName(Child, C, SizeOf(C)) > 0

  Then Begin

  S := StrPAS(C);

  If UpperCase(S) = 'BUTTON'

  then begin

  // IsWindowVisible(Child)

  startbutton_handle:=child;

  If Visi

  then ShowWindow(Child, 1)

  else ShowWindow(Child, 0);

  end;

  End;

  Child := GetWindow(Child, GW_HWNDNEXT);

  End;

  End;