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" <elifla...@...> 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]
