Quem procura, acha!
http://lib.seven.com.br/ampliar.asp?codcat=0&codartigo=742 Sds. To: delphi-br@yahoogrupos.com.br From: c...@borborema.com.br Date: Wed, 12 May 2010 15:06:00 -0300 Subject: [delphi-br] Unidade virtual 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 _________________________________________________________________ DEIXE SUAS CONVERSAS MAIS DIVERTIDAS. TRANSFORME AQUI SUAS FOTOS EM EMOTICONS, É GRÁTIS. http://ilm.windowslive.com.br/?ocid=ILM:ILM:Hotmail:Tagline:1x1:Tagline [As partes desta mensagem que não continham texto foram removidas]
