Thema
:
Delphi
Feststellen, ob Programm über Netzwerk gestartet wurde?
Einzelnen Beitrag anzeigen
bitsetter
Registriert seit: 17. Jan 2007
1.169 Beiträge
Turbo Delphi für Win32
#
5
Re: Feststellen, ob Programm über Netzwerk gestartet wurde?
18. Jan 2007, 02:19
Kleine Ergänzung:
zusammenfalten
·
markieren
Delphi-Quellcode:
function
IsNetzwerk: boolean;
var
Pfad: AnsiString;
begin
Result:= false;
Pfad:= ExtractFilePath(ParamStr(0));
if
length(Pfad)> 1
then
begin
Result:= boolean(Pos('
\\
', Pfad));
if
not
Result
then
Result:= GetDriveType(PChar(Pfad))= DRIVE_REMOTE;
end
;
end
;
Zitat
bitsetter
Öffentliches Profil ansehen
Mehr Beiträge von bitsetter finden