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. |