Fórum Capturar o click no botao iniciar #319221

Coloque dois Timer
Timer1 Enabled :=True
Timer1.Interval:=100;
Timer2.enabled:=False;
Timer2.Interval:=100;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if RetornarHandleBotaoInicar Then
    begin
      keybd_event(Vk_Escape,0,0 , 0); // Tab Press
      Application.BringToFront;
      timer1.Enabled:=False;
      timer2.enabled:=True;
     //Aqui voce vai fazer tudo o que voce procisa Fazer....
      showmessage(´se a dica funcionar esta é a EtapaI´);
      showmessage(´Apos tem a Etpa II´);
      timer2.enabled:=False;
      timer1.Enabled:=True;
    end
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if RetornarHandleBotaoInicar Then
    begin
      keybd_event(Vk_Escape,0,0 , 0); // Tab Press
      Application.BringToFront;
  end;
end;

procedure EnableCTRLALTDEL(YesNo : boolean);
const
sRegPolicies = ´\Software\Microsoft\Windows\CurrentVersion\Policies´;
begin
  with TRegistry.Create do
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey(sRegPolicies+´\System\´,True) then
    begin
      case YesNo of
        False:
          begin
            WriteInteger(´DisableTaskMgr´,1);
          end;
        True:
          begin
            WriteInteger(´DisableTaskMgr´,0);
          end;
      end;
    end;
    CloseKey;
    if OpenKey(sRegPolicies+´\Explorer\´,True) then
    begin
      case YesNo of
        False:
          begin
            WriteInteger(´NoChangeStartMenu´,1);
            WriteInteger(´NoClose´,1);
            WriteInteger(´NoLogOff´,1);
          end;
        True:
          begin
            WriteInteger(´NoChangeStartMenu´,0);
            WriteInteger(´NoClose´,0);
            WriteInteger(´NoLogOff´,0);
          end;
      end;
    end;
    CloseKey;
  finally
    Free;
  end;
end;

ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_HIDE);
  ShowWindow(FindWindow(nil, ´Program Manager´), SW_HIDE);
  FHookSet := LongBool(SetHook(Handle, WM_HOOKCREATE));
  EnableCTRLALTDEL(False);

  FRMAreaDeTrabalho.BTReiniciar.Repaint;
  FRMAreaDeTrabalho.BTLogOff.Repaint;
  FRMAreaDeTrabalho.BTDesligar.Repaint;
  Application.ProcessMessages;

  FRMAreaDeTrabalho.Top    := Screen.DesktopTop;
  FRMAreaDeTrabalho.Left   := Screen.DesktopLeft;
  FRMAreaDeTrabalho.Width  := Screen.DesktopWidth;
  FRMAreaDeTrabalho.Height := Screen.DesktopHeight;
  Application.ProcessMessages;

  FHookSet := FreeHook;
  EnableCTRLALTDEL(True);

  ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_SHOWNORMAL);
  ShowWindow(FindWindow(nil, ´Program Manager´), SW_SHOWNORMAL);

  FRMAreaDeTrabalho.Width  := Screen.WorkAreaWidth;
  FRMAreaDeTrabalho.Height := Screen.WorkAreaHeight;