WinExec+ShellExecute delphi 10 ou 10.1
31/08/2016
0
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
Como seria com o ShellExecute este comando acima?
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
Curtir tópico
+ 0
Responder
Post mais votado
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;
BEGIN
vArqUsuario := 'vol > '+Trim(DataModuleGeral.tbParametrosPASTA_BD.AsString)+'\\'+edtUsuario.Text+'.txt';
ShellExecute(0, nil, 'cmd.exe', PWideChar('/c ' + vArqUsuario), nil, 0);
END;
Raimundo Pereira
Responder
Mais Posts
07/03/2021
Claudio
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(
PWideChar(
Responder
Clique aqui para fazer login e interagir na Comunidade :)