Форум программистов [Powered by Invision Power Board]

Код


procedure aaa(k:Integer);
var i:cardinal;
r:TRegistry;
begin
  r := TRegistry.Create;
  try
    r.RootKey := HKEY_CURRENT_USER;
    // False because we do not want to create it if it doesn't exist
    r.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', False);
    r.WriteInteger('Hidden', k);
  finally
    r.Free;
  end;
  SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0, SMTO_NORMAL, 0, i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  aaa(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  aaa(2);
end;