Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Feststellen, ob Programm über Netzwerk gestartet wurde?

  Alt 18. Jan 2007, 01:19
Kleine Ergänzung:
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;
  Mit Zitat antworten Zitat