Aguardar ShellExecute terminar C�pia

21/03/2014

Beleza galera. Estou com uma duvida no ShellExecute, gostaria de uma ajuda de voc�s.
Seguinte, eu criei uma aplica��o com servi�o do Windows, para fazer um backup autom�tico, utilizei servi�o porque os servidores n�o s�o monitorados (ningu�m faz logon). Logo para conseguir copiar os arquivos estou usando o ShellExecute, ap�s a c�pia, eu compacto, porem n�o estou conseguindo fazer com que o Delphi aguarde a finaliza��o do ShellExecute para executar o pr�ximo procedimento.
Como fa�o para fazer o Delphi aguardar a finaliza��o da C�pia?
Meu c�digo:

procedure Copia(Origem, Destino: String);
var
   Parametros: Pchar;
   I: integer;
begin
  try
   Parametros := Pchar('"' + Origem + '" "' + Destino + '" /S /Y ');
   I:=ShellExecute(0, '', 'xCopy', Parametros, '', SW_SHOW);
  Except
    on E:Exception do
      GeraLog('Erro ao copiar: '+E.Message);
  end;
end;

Rawgleison

Curtir t�pico + 0

Responder

Post mais votado

21/03/2014

achei essa fun��o nessa semana e pra mim funcionou:

function ShellExecuteAndWait(Operation, FileName, Parameter, Directory: String; Show: Word; bWait: Boolean): Longint;
var
  bOK: Boolean;
  Info: TShellExecuteInfo;
begin
  FillChar(Info, SizeOf(Info), Chr(0));
  Info.cbSize := SizeOf(Info);
  Info.fMask := SEE_MASK_NOCLOSEPROCESS;
  Info.lpVerb := PChar(Operation);
  Info.lpFile := PChar(FileName);
  Info.lpParameters := PChar(Parameter);
  Info.lpDirectory := PChar(Directory);
  Info.nShow := Show;
  bOK := Boolean(ShellExecuteEx(@Info));
  if bOK then
  begin
    if bWait then
    begin
      while WaitForSingleObject(Info.hProcess, 100) = WAIT_TIMEOUT do
        Application.ProcessMessages;
      bOK := GetExitCodeProcess(Info.hProcess, DWORD(Result));
    end
    else
      Result := 0;
  end;
  if not bOK then
    Result := -1;
end;

uso:

procedure Copia(Origem, Destino: String);
var
   Parametros: Pchar;
   I: integer;
begin
  try
   Parametros := Pchar('"' + Origem + '" "' + Destino + '" /S /Y ');
   I := ShellExecuteAndWait('open', 'xCopy', Parametros, '', SW_SHOW, True);
  Except
    on E:Exception do
      GeraLog('Erro ao copiar: '+E.Message);
  end;
end;

Alan Souza

Responder

Gostei + 1

Mais Posts

22/03/2014

Rawgleison

Alanps, Funcionou perfeitamente, muito obrigado......

[RESOLVIDO]

Responder

Gostei + 0

25/03/2014

Rawgleison

Algu�m sabe me falar como eu fecho um t�pico e coloco [Resolvido] no titulo?

Responder

Gostei + 0

26/12/2019

Felipe

achei essa fun��o nessa semana e pra mim funcionou:

function ShellExecuteAndWait(Operation, FileName, Parameter, Directory: String; Show: Word; bWait: Boolean): Longint;
var
  bOK: Boolean;
  Info: TShellExecuteInfo;
begin
  FillChar(Info, SizeOf(Info), Chr(0));
  Info.cbSize := SizeOf(Info);
  Info.fMask := SEE_MASK_NOCLOSEPROCESS;
  Info.lpVerb := PChar(Operation);
  Info.lpFile := PChar(FileName);
  Info.lpParameters := PChar(Parameter);
  Info.lpDirectory := PChar(Directory);
  Info.nShow := Show;
  bOK := Boolean(ShellExecuteEx(@Info));
  if bOK then
  begin
    if bWait then
    begin
      while WaitForSingleObject(Info.hProcess, 100) = WAIT_TIMEOUT do
        Application.ProcessMessages;
      bOK := GetExitCodeProcess(Info.hProcess, DWORD(Result));
    end
    else
      Result := 0;
  end;
  if not bOK then
    Result := -1;
end;

uso:

procedure Copia(Origem, Destino: String);
var
   Parametros: Pchar;
   I: integer;
begin
  try
   Parametros := Pchar('"' + Origem + '" "' + Destino + '" /S /Y ');
   I := ShellExecuteAndWait('open', 'xCopy', Parametros, '', SW_SHOW, True);
  Except
    on E:Exception do
      GeraLog('Erro ao copiar: '+E.Message);
  end;
end;

O que seria a origem e o destino n� tendi muito bem o algoritmo

Responder

Gostei + 0

27/12/2019

Natanael Ferreira

achei essa fun��o nessa semana e pra mim funcionou:

function ShellExecuteAndWait(Operation, FileName, Parameter, Directory: String; Show: Word; bWait: Boolean): Longint;
var
  bOK: Boolean;
  Info: TShellExecuteInfo;
begin
  FillChar(Info, SizeOf(Info), Chr(0));
  Info.cbSize := SizeOf(Info);
  Info.fMask := SEE_MASK_NOCLOSEPROCESS;
  Info.lpVerb := PChar(Operation);
  Info.lpFile := PChar(FileName);
  Info.lpParameters := PChar(Parameter);
  Info.lpDirectory := PChar(Directory);
  Info.nShow := Show;
  bOK := Boolean(ShellExecuteEx(@Info));
  if bOK then
  begin
    if bWait then
    begin
      while WaitForSingleObject(Info.hProcess, 100) = WAIT_TIMEOUT do
        Application.ProcessMessages;
      bOK := GetExitCodeProcess(Info.hProcess, DWORD(Result));
    end
    else
      Result := 0;
  end;
  if not bOK then
    Result := -1;
end;

uso:

procedure Copia(Origem, Destino: String);
var
   Parametros: Pchar;
   I: integer;
begin
  try
   Parametros := Pchar('"' + Origem + '" "' + Destino + '" /S /Y ');
   I := ShellExecuteAndWait('open', 'xCopy', Parametros, '', SW_SHOW, True);
  Except
    on E:Exception do
      GeraLog('Erro ao copiar: '+E.Message);
  end;
end;

O que seria a origem e o destino n� tendi muito bem o algoritmo

Neste caso que est� fazendo uma c�pia:

Origem = Caminho completo do arquivo que ser� copiado
Destino = Caminho completo onde salvar� o novo arquivo copiado

Exemplo, copiando o arquivo teste.txt da Pasta1 para Pasta2:

Copia('C:\\Pasta1\\teste.txt', 'C:\\Pasta2\\teste.txt')

Responder

Gostei + 0

02/07/2020

Maiquel Parisotto

Pessoal, achei esta fun��o.
O �nico problema � que a tela chamada externa n�o fica em frente ao programa em execu��o, ela fica por tr�s.
Algu�m sabe o porque?

Responder

Gostei + 0

13/03/2023

Sismais Tecnologia

Maiquel, respondendo � sua d�vida, � preciso passar nas propriedades do TShellExecuteInfo o valor do Handle (Handle da janela ou aplica��o que est� chamando o ShellExecute):

function ShellExecuteAndWait(AHandle: HWND; Operation, ...
...
  Info.lpFile := PChar(FileName);
  Info.Wnd := AHandle; //<<< Aqui.
...

Responder

Gostei + 0