[delphi-br] Re: Como saber se o programa está sendo executado local ou pela rede?

2010-03-05 Por tôpico silvioprog
Eli > To: delphi-br@yahoogrupos.com.br > Sent: Friday, March 05, 2010 5:02 PM > Subject: [delphi-br] Re: Como saber se o programa está sendo executado > local ou pela rede? > > Você viu a função que criei? > > --- Em delphi-br@yahoogrupos.com.br, "Des

[delphi-br] Re: Como saber se o programa está sendo executado local ou pela rede?

2010-03-05 Por tôpico Eli
else >begin >showmessage(Local'); >end; > > > > > - Original Message - > From: Eli > To: delphi-br@yahoogrupos.com.br > Sent: Friday, March 05, 2010 7:29 AM > Subject: [delphi-br] Re: Como saber se o programa

[delphi-br] Re: Como saber se o programa está sendo executado local ou pela rede?

2010-03-05 Por tôpico Eli
Consegui, criei a seguinte função: function DriveRede(Caminho: String): Boolean; begin Caminho:=StringReplace(Caminho, '"', '', [rfReplaceAll]); if Caminho<>'' then begin if LeftStr(Caminho, 2)='\\' then Result:=True else begin Caminho:=LeftStr(Caminho, 3); Result:=(GetDriveT