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
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
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
3 matches
Mail list logo