Código
procedure TForm1.Button1Click(Sender: TObject);
begin
{Desabilita o botão Iniciar}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0,'Button',nil),false);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{Habilita o botão Iniciar}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0,'Button',nil),true);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009