Delphi: function IsRunningFromNetwork – via Lars Fosdal. I will need this one day
Posted by jpluimers on 2016/11/24
If I ever need it: function IsRunningFromNetwork that is based on WNetGetConnection.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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; |
Thanks Lars; I copied it to a gist for easier WordPress handling.
–jeroen
via:
- [Delphi] How to figure out if .exe was started from network drive – Pastebin.com
- Detecting if .exe is running from non-local storage What is the recommended method for detecting that a Delphi .exe file is started from a remote network share…
The Wiert Corner - irregular stream of stuff 
Leave a comment