recyclebinunitalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/Recycle Bin Unit v2/RecBinUnit2.pas @ 76

  → /trunk/Recycle Bin Unit v2/RecBinUnit2.pas @ 77

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 76 → Rev 77

/trunk/Recycle Bin Unit v2/RecBinUnit2.pas
55,7 → 55,7
Windows, SysUtils, Classes, ContNrs, ShellAPI, Registry, Messages;
const
RECBINUNIT_VERSION = '2016-07-03';
RECBINUNIT_VERSION = '2016-07-05';
RECYCLER_CLSID: TGUID = '{645FF040-5081-101B-9F08-00AA002F954E}';
NULL_GUID: TGUID = '{00000000-0000-0000-0000-000000000000}';
165,6 → 165,7
// will return NULL_GUID in case of an error or if it is not supported
function GetVolumeGUID: TGUID;
function GetVolumeGUIDAvailable: boolean; protected
strict protected
function IsFAT: boolean;
procedure CheckDriveExisting;
176,6 → 177,7
property DriveLetter: Char read FDriveLetter;
property VolumeGUID: TGUID read GetVolumeGUID;
property VolumeGUIDAvailable: boolean read GetVolumeGUIDAvailable;
function GetAPIInfo: TSHQueryRBInfo;
function GetSize: int64;
function GetNumItems: int64;
1129,6 → 1131,11
end;
end;
function TRbDrive.GetVolumeGUIDAvailable: boolean;
begin
result := not IsEqualGUID(VolumeGUID, NULL_GUID);
end;
function TRbDrive.IsEmpty: boolean;
begin
result := GetNumItems = 0;