How to hide Startmenu

[jfheins]

New question => New Thread please

Short answer: Yes, that is possible

Not-that-short-answer: Close the Button windwo and create your own one

[Razor]

But bitte tell me how to hide vista's button and then i compile and share everything so everybody can see!!

Danke.

[jfheins]

Use the DestroyWindow() or the CloseWindow() function

Please do open up a new topic for each new question

[Razor]

Can somebody type an example i haven't never done this type of programing..

[Razor]

Ok i made something,please comment it and why it won't work as it should..

Delphi-Quellcode:

var
  Form2: TForm2;
  handle1,taskBarWnd:hwnd;
implementation

uses Unit3;

{$R *.dfm}
procedure tform2.hide;
begin
taskBarWnd := FindWindow('Shell_TrayWnd', 0);
handle1:=FindWindowEx(taskBarWnd, 0, 'Button', 'Start');
closewindow(handle1);
end;

[turboPASCAL]

???

Delphi-Quellcode:

function ShowOrHideStartWndBtn(Action: Boolean): Boolean;  // save Version
var
  hShellTrayWnd, hStartBtn: HWND;
begin
  Result := FALSE;
  hStartBtn := 0;

  // find the ShellTrayWindow
  hShellTrayWnd := FindWindow('Shell_TrayWnd', nil);

  // find the Start Button
  if hShellTrayWnd <> 0 then
  begin
    hStartBtn := FindWindowEx(hShellTrayWnd, 0, 'Button', nil);

    if hStartBtn <> 0 then
    begin
      Result := TRUE;
      case Action of
         TRUE: ShowWindow(hStartBtn, SW_SHOW); // now show the Button
        FALSE: ShowWindow(hStartBtn, SW_HIDE); // where is the button now? 
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowOrHideStartWndBtn(TRUE);  // Show the Start Button
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowOrHideStartWndBtn(FALSE); // Hide the Start Button
end;

warning bad English

Zitat von Razor:

Ok i made something, please comment it and why it won't work as it should..

Delphi-Quellcode:

// ...

var                           // var -> def global Variable
  Form2: TForm2;              // def. Form2 as any Type of TForm2
  handle1,taskBarWnd: hwnd;   // def. handle1 and taskBarWnd as any Windowhandle

implementation                // the section of a unit begins

uses Unit3;                   // include Unit3.pas

{$R *.dfm}                    // include all Resources with "dfm"-extensions

procedure tform2.hide;        // define porocedure "hide" from "form2"
begin                         // instruction begins
  taskBarWnd := FindWindow('Shell_TrayWnd', 0);  // find the window "Shell_TrayWnd"
  handle1:=FindWindowEx(taskBarWnd, 0, 'Button', 'Start'); // find in Window "Shell_TrayWnd" the Window "Button"
  closewindow(handle1);       // minimizes, but does not destroy the specified window. 
end;                          // instruction ends for porocedure "hide"

you cannot close the button !

[Razor]

@turboPASCAL > problem is that it won't work on vista!The code that you posted...

Thanks.

[Razor]

Zitat von jfheins:

An example ...... i can show you how to do it
(As I have no Delphi installed I dunno if it compiles ...)

First, you need a variable that holds the old WndProc. A Pointer should do the job.

To get the pointer to the WndProc you can call GetWindowLong(), to process the messages in your program, you need a seperate function

Delphi-Quellcode:

var
  OldWndProc: Pointer;

begin // Change WndProc
  OldWndProc := GetWindowLong({Handle to the Button}, GWLP_WNDPROC);
  SetWindowLong({Handle to the Button}, GWLP_WNDPROC, @NewWndProc);
end;

function NewWndProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; 
begin
  if ({The Message you want})
    // Handle Message
  else // Call old WndProc
    CallWindowProc(OldWndProc, hWnd, uMsg, wParam, lParam);
end;

Something like that

To get the Handle of the button, you can use FindWindow.

You can find additional stuff by searching for "subclassing"

Could anybody test this like if you press the button then the form will show or something.This is really new for me so i rather ask before i go in to this...

[Roachford]

Zitat von Razor:

Could anybody test this like if you press the button then the form will show or something.This is really new for me so i rather ask before i go in to this...

Why should we work for you? DIY...

[Razor]

Hahaha another guy with a bad day you know this isn't a place to toss your mind.This a FORUM read it what it means on google.