請問更改注冊表顯示隱藏文件和文件夾后如果不用刷新就能顯示？
代碼如下：
procedure Hide(HideV:integer;SuperHiddenint:Integer);
var
HideName:string;
hKeyx:HKEY;
R : Cardinal;
c1 : THandle;
begin
HideName:='Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced';
try
if RegOpenKeyEx(HKEY_CURRENT_USER,Pchar(HideName),0,KEY_WRITE , hKeyx ) = ERROR_SUCCESS then
begin
if RegSetValueEx(hKeyx,'Hidden', 0,REG_DWORD, @HideV, sizeof(HideV))=ERROR_SUCCESS then
if RegSetValueEx(hKeyx,'ShowSuperHidden', 0,REG_DWORD, @HideV, sizeof(SuperHiddenint))=ERROR_SUCCESS then
begin
// SendMessageTimeout(HWND_BROADCAST,WM_SETTINGCHANGE, 0 ,Integer(PChar('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced')),SMTO_NORMAL,1000, R);
//c1:=FindWindowEx()
// SendMessageTimeOut(HWND_BROADCAST,WM_SETTINGCHANGE,0,Integer(PChar('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced')),SMTO_ABORTIFHUNG,10,R);
// SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
// RegSetValueEx(hKeyx,'Hidden', 0,REG_DWORD, @HideV, sizeof(HideV));
// SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0);
// SHChangeNotify(SHCNE_ALLEVENTS SHCNE_DISKEVENTS, SHCNF_IDLIST, nil,nil);
// SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_DWORD SHCNF_IDLIST SHCNF_FLUSH, nil,nil);
//SHChangeNotify(SHCNE_DISKEVENTS,SHCNF_DWORD SHCNF_IDLIST SHCNF_FLUSH, nil, nil); 這些都試過了都沒有用。請指教。
end;
end;
finally
RegCloseKey(hKeyx);
end;
end;

我沒有試過，您試試吧!
SendMessage(Handle, WM_SETTINGCHANGE, SPI_SETNONCLIENTMETRICS, Integer(PChar('WindowMetrics')));

------
努力會更接近成功

SendMessage(Handle, WM_SETTINGCHANGE, SPI_SETNONCLIENTMETRICS, Integer(PChar('WindowMetrics')));
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETNONCLIENTMETRICS, Integer(PChar('WindowMetrics')));
这两个都试过了不行。还是要刷新才能显示隐藏文件

有些註冊表修改後要生效，需要登出或重新開機。
或可嘗試 將 Explorer.exe Terminate 後自動生成，或許Maybe 有點作用。

那用Windows自帶的選擇后就可以立刻看到隱藏文件和目錄。是不是不用重新啟動都有辦法。

臨時寫的，自行添加到最後一行。即可

[code delphi]
function EnumWindowsProc(AHWnd: HWND;LPARAM: lParam): boolean; stdcall;
var
WClassName : array[0..254] of char;
begin
Result := True;
GetClassName(AHWnd, @WClassName, 254);
if SameText(WClassName,'CabinetWClass') then
begin
PostMessage(AHWnd,$111, 28931, 0);
end;
end;

Procedure UpdateExplorer;
var
AHandle : THandle;
begin
EnumWindows(@EnumWindowsProc, 0);
AHandle := FindWindow('Progman',Nil);
if AHandle <> 0 then PostMessage(AHandle,$111, 28931, 0);
end;

[/code]

以下代码为刷新所有窗口的代码，可以44，作用和按f5一样，应该可以满足你的要求
[code delphi]
const
FCIDM_SHVIEWSHELL = $7000;
FCIDM_MENU_VIEW_REFRESH = FCIDM_SHVIEWSHELL $0103;
//向系统广播消息，刷新所有窗口
PostMessage(HWND_BROADCAST, WM_COMMAND, FCIDM_MENU_VIEW_REFRESH, 0);
[/code]

編輯記錄