Delphi - fechar ou minimizar

Top  Previous  Next

procedure FechaDelphi;

var

  HandleDelphi: hWnd;

begin

  HandleDelphi := FindWindow('TAppBuilder', nil);

  If HandleDelphi > 0 Then SendMessage(HandleDelphi, WM_QUIT, 00);

end;

 

Para minimizá-lo, faça da mesma forma, só que você deve alterar o comando

SendMessage para o seguinte:

 

SendMessage(HandleDelphi, WM_SYSCOMMAND, SC_MINIMIZE, 0);

 

Para voltá-lo ao normal:

 

SendMessage(HandleDelphi, WM_SYSCOMMAND, SC_RESTORE, 0);