Shellexecute - Delphi Tokyo / API Windows

Delphi

12/03/2018

Bom dia!
Estou com um problema, se alguém puder me ajudar.
É o seguinte, estou usando o shellexecute para testar se um arquivo winrar está corrompido ou não.
A linha que executo é essa:
retorno := ShellExecute(0, nil, ''Winrar.exe'', PChar(''t '' + path), nil, SW_SHOW));

o problema é que corrompido ou não, o código que é retornado é o 42 (de que foi executado com sucesso), descobri que o erro (de corrompido) vem da API do windows.
Aí é que tá o meu problema, como pegar essa mensagem de erro que a API do windows retorna pra minha aplicação?

Obrigada!
Mydiã

Mydiã

Curtidas 0
POSTAR