Comando DOS
var
CAMINHO, SERV_LP, NOME_LP :string;
begin
SERV_LP:=´gerencia´;
NOME_LP:=´lp´;
CAMINHO:=´net use lpt1 \\´+SERV_LP+´\´+NOME_LP+´ /yes´;
end;
quero colocar a variavel CAMINHO dentro de uma ShellExecute....
para ele executar o valor da variavel....
como faço?
CAMINHO, SERV_LP, NOME_LP :string;
begin
SERV_LP:=´gerencia´;
NOME_LP:=´lp´;
CAMINHO:=´net use lpt1 \\´+SERV_LP+´\´+NOME_LP+´ /yes´;
end;
quero colocar a variavel CAMINHO dentro de uma ShellExecute....
para ele executar o valor da variavel....
como faço?
Fábio Galvão
Curtidas 0
Respostas
Jáder Medeiros
26/07/2006
ShellExecute(Application.Handle,´open´,´net´,´use lpt1 \\gerencia\lp /yes´,´´,SW_HIDE)
Testa aí e posta se deu certo.
GOSTEI 0
Fábio Galvão
26/07/2006
mas eu quero colocar a variavel dentro, porque ele vai comter o caminho do serv que pego no db.....
GOSTEI 0
Jáder Medeiros
26/07/2006
Function MapearImpressora(pCaminho: String): HINST; begin Result := ShellExecute(Application.Handle,´open´,´net´,PChar(´use lpt1 ´+pCaminho+´ /yes´),´´,SW_HIDE) end;
GOSTEI 0