Subversion Repositories recyclebinunit

Compare Revisions

Regard whitespace Rev 29 → Rev 30

/trunk/Recycle Bin Unit/RecyclerFunctions.pas
371,10 → 371,6
// INTERNALLY USED FUNCTIONS
// **********************************************************
 
type
TNibble = $0..$F;
TBitPos = 0..7;
 
resourcestring
LNG_UNEXPECTED_STATE = 'Cannot determinate state of "%s" because of an unknown value in the configuration of your operation system. Please contact the developer of the Recycler Bin Unit and help improving the determination methods!';
LNG_API_CALL_ERROR = 'Error while calling the API. Additional information: "%s".';
381,7 → 377,7
LNG_NOT_CALLABLE = '%s not callable';
LNG_ERROR_CODE = '%s (Arguments: %s) returns error code %s';
 
function FileSize(FileName: string): int64;
function _FileSize(FileName: string): int64;
var
fs: TFileStream;
begin
420,21 → 416,6
end;
end;
 
function _LowerNibble(B: Byte): TNibble;
begin
result := B and 15 {00001111};
end;
 
(* function _UpperNibble(B: Byte): TNibble;
begin
result := B and 240 {11110000};
end;
 
function _MakeByte(UpperNibble, LowerNibble: TNibble): Byte;
begin
result := LowerNibble + UpperNibble * $10;
end; *)
 
function _GetStringFromDLL(filename: string; num: integer): string;
const
// http://www.eggheadcafe.com/forumarchives/vcmfc/sep2005/post23917443.asp
974,7 → 955,7
if not fileexists(tmp) then exit;
 
// Check the file length
result := FileSize(tmp) = vista_valid_index_size;
result := _FileSize(tmp) = vista_valid_index_size;
end;
 
// **********************************************************
2149,7 → 2130,7
 
// Lese 3tes Bit vom 5ten Byte
// bNoConfirmRecycle := ((rbuf[4] and 4) = 4);
bNoConfirmRecycle := GetByteBit(ord(rbuf[4]), 2);
bNoConfirmRecycle := GetByteBit(rbuf[4], 2);
result := not bNoConfirmRecycle;
 
reg.CloseKey;
2600,7 → 2581,7
// See comment at RecyclerSpecificIsNukeOnDelete()
 
dump := _registryReadDump(reg, 'PurgeInfo');
result := GetByteBit(Ord(dump[68]), 3);
result := GetAnsiCharBit(dump[68], 3);
end
else
begin
2665,7 → 2646,7
// 0x67 = 08 (00001000)
 
d := _DriveNum(Drive);
result := GetByteBit(Ord(dump[65+(d div 7)]), d mod 7);
result := GetAnsiCharBit(dump[65+(d div 7)], d mod 7);
end
else
begin