Pessoal,
Tem como eu criar uma unidade virtual em runtime para fazer o seguinte :
quero copiar via FTP um certo arquivos onde o destino seria a minha unidade
virtual e depois mandar o SO abri.
ex:
FTP:=TIdFTP.Create(Application);
with FTP do
begin
try
begin
Username:='user';
Password:='senha';
Host:=Servidor;
Connect;
Get(Codigo, 'X:Arquivo.doc', true);
Disconnect;
end;
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
Onde X:Arquivo.doc o X seria minha unidade virtual. depois eu colocaria :
ShellExecute(Handle, 'open', Pchar(Arquivo.doc), Pchar(''), PChar('X:\'),
SW_SHOWNORMAL)
mandando assim abrir o Arquivo.doc pelo sistema.
hoje já esta funcionando só que mando para uma pasta na minha unidade C:
Obrigado
Alexandre
[As partes desta mensagem que não continham texto foram removidas]
