Fórum COMANDO WINEXEC - ME AJUDEM, POR FAVOR !! #157864

Olá, pessoal.

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;