Fórum Comando WinExec deixou de funcionar !!! AJUDE-ME #157937
05/05/2003
0
utilizo o comando WinExec para enviar msg de uma máquina para outra na mesma rede NT. Porém, parou de funcionar em algumas máquinas sem razão aparente, não houve reinstalação ou atualização.
O comando ´net send´ do Windows funciona normalmente, via ´Run...´, mas via Delphi, não está executando e também não gera msg de erro.
Conto com a ajuda de vcs.
procedure TForm1.Button1Click(Sender: TObject);
var
arq :TextFile;
begin
AssignFile ( arq, ´C:\MSG.BAT´ );
Rewrite ( arq );
Writeln ( arq, ´net send ´ + edit1.text +´ ´TESTE´´ );
CloseFile ( arq );
Winexec(´C:\MSG.BAT´, SW_HIDE);
end;
Falinden
Curtir tópico
+ 0Posts
05/05/2003
Edich
em vez de usar o Winexec assim:
Winexec(´C:\MSG.BAT´, SW_HIDE);
tente assim:
WinExec(PChar(´command.com /c c:\msg.bat´),sw_hide);
Tomara que funcione
Gostei + 0
05/05/2003
Falinden
Gostei + 0
05/05/2003
Edich
Se eu puder ajudar estamos aí...
Gostei + 0
05/05/2003
Falinden
eu fiz o que vc sugeriu, porém o comando roda tão rápido que não dá tempo de ver a msg que aparece na tela de Comand Prompt.
Como se trata de uma máquina cliente, não tem o Delphi instalado, para então executar passo a passo.
Vc saberia como capturar a tela ?
Valeu,
Fabiana
Gostei + 0
05/05/2003
Soulless
Ai a tela fica parada até que seja presssionado alguma coisa.
Gostei + 0
06/05/2003
Falinden
Valeu a dica, Soulless.
Quando rodo na minha máq., beleza, mas mesmo com o pause, a tela não pára na máquina cliente. Desta forma, não consigui ainda ver erro algum.
Help me !!!
Gostei + 0
16/05/2003
Edich
blza
qualquer coisa me manda um e-mail
edich@ig.com.br
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)