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