| 788,8 → 788,8 |
|---|
| result := true; |
| end; |
| |
| // http://www.delphipraxis.net/post471470.html |
| // Changed |
| // Source: http://www.delphipraxis.net/post471470.html |
| // Modified |
| function _getMySID(): string; |
| var |
| SID: PSID; |
| 799,6 → 799,7 |
|---|
| SID := nil; |
| |
| err := _getAccountSid('', _getLoginNameW(), SID); |
| try |
| if err > 0 then |
| begin |
| EAPICallError.Create('_getAccountSid:' + SysErrorMessage(err)); |
| 814,7 → 815,10 |
|---|
| if _NT_SidToString(SID, result) then Exit; |
| |
| EAPICallError.Create('_getMySID:' + SysErrorMessage(err)); |
| finally |
| if Assigned(SID) then FreeMemory(SID); |
| end; |
| end; |
| |
| // Originalcode aus http://www.delphipraxis.net/post2933.html |
| function _DriveExists(DriveByte: Byte): Boolean; overload; |