Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function IsRunningFromNetwork(const ServerName:String = 'BetYouCantFindThisServer'): Boolean;
- const
- pMax = 2047;
- var
- dt: UINT;
- volpath: Array[0..pMax] of Char;
- sVol: String;
- sz: Cardinal;
- begin
- Result := False;
- dt := GetDriveType(PChar(ExtractFilePath(ParamStr(0))));
- if dt = 4
- then begin
- GetVolumePathNameW(PChar(LowerCase(ParamStr(0))), volpath, pMax);
- sVol := StrPas(volpath);
- if not ((pos(LowerCase(ServerName), sVol) <> 0) or (pos('\\', sVol) = 1))
- then begin
- if pos(':', sVol) <> 0
- then begin
- sz := pMax;
- if WNetGetConnection(pChar(Copy(sVol, 1, 2)), volPath, sz) = NO_ERROR
- then Result := (pos(LowerCase(ServerName), LowerCase(StrPas(volPath))) <> 0) or (pos('\\', StrPas(volPath)) = 1);
- end;
- end
- else Result := True;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement