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; |