WebSVN – delphiutils – Path Comparison – /

Regard whitespace Rev 6 → Rev 7

/clean.bat
File deleted

/Recycle Bin Unit/ShellStateUnit.pas
File deleted

 /Recycle Bin Unit/RecyclerFunctions.pas
 ,7 → 2128,7
     ZeroMemory(@lpss, SizeOf(lpss));
     PSHGetSettings(lpss, SSF_NOCONFIRMRECYCLE);
     // bNoConfirmRecycle := (lpss.Flags1 and 4) = 4; // fNoConfirmRecycle
-    bNoConfirmRecycle := GetByteBit(lpss.Flags1, 3);
+    bNoConfirmRecycle := GetByteBit(lpss.Flags1, 2);
     result := not bNoConfirmRecycle;
   end
 ,7 → 2151,7
         // Lese 3tes Bit vom 5ten Byte
         // bNoConfirmRecycle := ((rbuf[4] and 4) = 4);
-        bNoConfirmRecycle := GetByteBit(ord(rbuf[4]), 3);
+        bNoConfirmRecycle := GetByteBit(ord(rbuf[4]), 2);
         result := not bNoConfirmRecycle;
         reg.CloseKey;
 ,6 → 2181,8
   reg: TRegistry;
   rbuf: array[0..255] of byte;
+  dwResult: DWORD;
 begin
   PSHGetSetSettings := nil;
 ,10 → 2201,15
   begin
     ZeroMemory(@lpss, SizeOf(lpss));
     PSHGetSetSettings(lpss, SSF_NOCONFIRMRECYCLE, false); // Get
-    lpss.Flags1 := SetByteBit(lpss.Flags1, 3, NewSetting);
+    lpss.Flags1 := SetByteBit(lpss.Flags1, 2, NewSetting);
     PSHGetSetSettings(lpss, SSF_NOCONFIRMRECYCLE, true); // Set
     // TODO: Do we need a WM_SETTINGCHANGE message to send?
+    SendMessageTimeout (
+      HWND_BROADCAST, WM_SETTINGCHANGE,
+, lParam (pChar ('Environment')),
+      SMTO_ABORTIFHUNG, 5000, dwResult
+    );
   end
   else
   begin
 ,11 → 2227,15
       begin
         ZeroMemory(@rbuf, SizeOf(rbuf));
         reg.ReadBinaryData('ShellState', rbuf, SizeOf(rbuf)); // Get
-        rbuf[4] := SetByteBit(rbuf[4], 3, NewSetting);
+        rbuf[4] := SetByteBit(rbuf[4], 2, NewSetting);
         reg.WriteBinaryData('ShellState', rbuf, SizeOf(rbuf)); // Set
         // TODO: Check if that's OK...
-        Sendmessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,LParam(PChar('Environment')));
+        SendMessageTimeout (
+          HWND_BROADCAST, WM_SETTINGCHANGE,
+, lParam (pChar ('Environment')),
+          SMTO_ABORTIFHUNG, 5000, dwResult
+        );
         reg.CloseKey;
       end
 ,7 → 2870,7
 function RecyclerLibraryVersion: string;
 begin
-  result := 'ViaThinkSoft Recycle Bin Unit [14 JUN 2010]';
+  result := 'ViaThinkSoft Recycle Bin Unit [16 JUN 2010]';
 end;
 end.

/Recycle Bin Unit/Version.txt
1,6 → 1,6
= Current version =

2010-06-14
2010-06-16

= Changelog =

 /cleanAll.bat
 ,0 → 1,15
+@echo off
+call cleanDir.bat "_Common"
+call cleanDir.bat "Batch-Working-Directory"
+call cleanDir.bat "CmdHere"
+call cleanDir.bat "Create Shortcut"
+call cleanDir.bat "DNDFC (Drag'n'Drop FileCompare)"
+call cleanDir.bat "DosLineConv"
+call cleanDir.bat "FileExtCh"
+call cleanDir.bat "FileMD5"
+call cleanDir.bat "Kalenderersatz"
+call cleanDir.bat "Recycle Bin Unit"
+call cleanDir.bat "Recycle Bin Unit\Windows 95 Bit Bucket Reader"
+call cleanDir.bat "Uhrersatz (Atomuhr)"
+call cleanDir.bat "Units"
+call cleanDir.bat "."

/DosLineConv/Unit1.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/DosLineConv/PosEx.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/DosLineConv/BinarySafeReplace.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/FileMD5/md5.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/FileMD5/FileMD5Main.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/cleanDir.bat
0,0 → 1,7
@echo off

rd /s /q %1\__history
del %1\*.identcache
del %1\*.dcu
del %1\.~
del %1\*.local

/_Common/DropFiles.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/Batch-Working-Directory/bwd.~dpr
File deleted

/FileExtCh/FileExtChMain.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/Kalenderersatz/Main.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/Kalenderersatz/NoDoubleStart.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

/Kalenderersatz/FullYearCalendar.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

Subversion Repositories delphiutils

Compare Revisions

Regard whitespace Rev 6 → Rev 7