Delphi - fechar ou minimizar

procedure FechaDelphi;

var

  HandleDelphi: hWnd;

begin

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

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

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