Subversion Repositories delphiutils

Compare Revisions

Regard whitespace Rev 6 → Rev 7

/Recycle Bin Unit/ShellStateUnit.pas
File deleted
/Recycle Bin Unit/RecyclerFunctions.pas
2128,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
2151,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;
2181,6 → 2181,8
 
reg: TRegistry;
rbuf: array[0..255] of byte;
 
dwResult: DWORD;
begin
PSHGetSetSettings := nil;
 
2199,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,
0, lParam (pChar ('Environment')),
SMTO_ABORTIFHUNG, 5000, dwResult
);
end
else
begin
2220,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,
0, lParam (pChar ('Environment')),
SMTO_ABORTIFHUNG, 5000, dwResult
);
 
reg.CloseKey;
end
2859,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/Recycler.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/Recycle Bin Unit/Version.txt
1,6 → 1,6
= Current version =
 
2010-06-14
2010-06-16
 
= Changelog =