Você viu a função que criei?
--- Em delphi-br@yahoogrupos.com.br, "Desenvolvimento Sisponto - Anderson"
<desenvolvime...@...> escreveu
>
> uma sugestão:
>
> if copy(paramstr(0),1,2) = '\\' then
> begin
> showmessage('Em rede!');
> end
> 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 está sendo executado
> local ou pela rede?
>
>
>
> 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:=(GetDriveType(PAnsiChar(Caminho))=DRIVE_REMOTE);
> end;
> end
> else
> raise Exception.Create('Caminho inválido!');
> end;
>
> Eli Flávio Bortolotte
>
> --- Em delphi-br@yahoogrupos.com.br, "Eli" <eliflavio@> escreveu
> >
> > Existe alguma maneira no Delphi de saber se o programa foi executado a
> partir de um .exe local na máquina ou através da rede?
> >
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
