| 161,8 → 161,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; |
| 172,6 → 172,7 |
|---|
| SID := nil; |
| |
| err := _getAccountSid('', _getLoginNameW(), SID); |
| try |
| if err > 0 then |
| begin |
| EAPICallError.Create('_getAccountSid:' + SysErrorMessage(err)); |
| 188,6 → 189,9 |
|---|
| begin |
| EAPICallError.Create('_NT_SidToString'); // TODO: RaiseLastOsError??? |
| end; |
| finally |
| if Assigned(SID) then FreeMemory(SID); |
| end; |
| end; |
| |
| end. |