WinExec+ShellExecute delphi 10 ou 10.1

Delphi

31/08/2016

Estou com problemas com o WinExec estou migrando um sistema para o Delphi 10.1
e o WinExec não funciona (Utilizando windows 7 x86)

assim está o código agora
  // Criar o arquivoTXt com volume
  vArqUsuario := 'cmd /c vol > '+Trim(DataModuleGeral.tbParametrosPASTA_BD.AsString)+'\\'+edtUsuario.Text+'.txt';
  WinExec(PAnsiChar(vArqUsuario),0);


Como seria com o ShellExecute este comando acima?
Eduardo Silva

Eduardo Silva

Curtidas 0

Melhor post

Raimundo Pereira

Raimundo Pereira

31/08/2016

Uses SHELLAPI

BEGIN
vArqUsuario := 'vol > '+Trim(DataModuleGeral.tbParametrosPASTA_BD.AsString)+'\\'+edtUsuario.Text+'.txt';
ShellExecute(0, nil, 'cmd.exe', PWideChar('/c ' + vArqUsuario), nil, 0);
END;
GOSTEI 1

Mais Respostas

Eduardo Silva

Eduardo Silva

31/08/2016

o ok vou testar...
GOSTEI 0
Claudio

Claudio

31/08/2016

cara apenas alguns do seus caracteres já resolveram um problema meu e estou muita grato. Obrigado pela comunidade pelas resporas e pela curiosidade de modo geral os caracteres:

PWideChar(
GOSTEI 1
POSTAR