URGENTE! Preciso de ajuda...
Olá pessoal, preciso mais uma vez da ajuda de vocês, preciso saber como faço para que apenas o botão iniciar desapareça, de forma que fiquem apenas os botôes dos programas abertos na barra de tarefas.
Valeu
Valeu
Anonymous
Curtidas 0
Respostas
Anonymous
24/02/2003
750 dicas delphi
dica 042 - Escondendo/Mostrando o botão Iniciar
procedure EscondeIniciar(Visible:Boolean);
Var taskbarhandle,
buttonhandle : HWND;
begin
taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
If Visible=True Then Begin
ShowWindow(buttonhandle, SW_RESTORE); {mostra o botão}
End Else Begin
ShowWindow(buttonhandle, SW_HIDE); {esconde o botão}
end;
end;
dica 042 - Escondendo/Mostrando o botão Iniciar
procedure EscondeIniciar(Visible:Boolean);
Var taskbarhandle,
buttonhandle : HWND;
begin
taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
If Visible=True Then Begin
ShowWindow(buttonhandle, SW_RESTORE); {mostra o botão}
End Else Begin
ShowWindow(buttonhandle, SW_HIDE); {esconde o botão}
end;
end;
GOSTEI 0