Subversion Repositories recyclebinunit

Compare Revisions

Regard whitespace Rev 78 → Rev 79

/trunk/Recycle Bin Unit/RecyclerFunctions.pas
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;
/trunk/Recycle Bin Unit v2/SIDUnit.pas
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.