Mega Code Archive

 

Categories / Delphi / System

 

Start buttonu gizlemek ve tekrar gözükür hale getirmek

// Gizlemek icin Procedure HideStartButton; Var taskbarhandle, buttonhandle : HWND; begin taskbarhandle := FindWindow('Shell_TrayWnd', nil); buttonhandle := GetWindow(taskbarhandle, GW_CHILD); ShowWindow(buttonhandle, SW_HIDE); end; // Tekrar göstermek icin Procedure ShowStartButton; Var taskbarhandle, buttonhandle : HWND; begin taskbarhandle := FindWindow('Shell_TrayWnd', nil); buttonhandle := GetWindow(taskbarhandle, GW_CHILD); ShowWindow(buttonhandle, SW_RESTORE); end; // Kullanimi: {Gizle} procedure TForm1.Button1Click(Sender: TObject); begin HideStartButton; end; {Göster} procedure TForm1.Button2Click(Sender: TObject); begin ShowStartButton; end;