1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

uses registry;

procedure GetInfo(Dest: String);
  const
    KEY       = 'Control Panel\Desktop';
    W_NAME    = 'Wallpaper';
    W_STYLE   = 'WallpaperStyle';
    S_ACTIVE  = 'ScreenSaveActive';
    S_SECURE  = 'ScreenSaverIsSecure';
    S_TIMEOUT = 'ScreenSaveTimeOut';
    S_NAME    = 'SCRNSAVE.EXE';
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;

   if OpenKey(KEY,False) then
    with TStringList.Create do
    try
      Add(W_NAME    + ': ' + ReadString(W_NAME));
      Add(W_STYLE   + ': ' + ReadString(W_STYLE));
      Add(S_ACTIVE  + ': ' + ReadString(S_ACTIVE));
      Add(S_SECURE  + ': ' + ReadString(S_SECURE));
      Add(S_TIMEOUT + ': ' + ReadString(S_TIMEOUT));
      Add(S_NAME    + ': ' + ReadString(S_NAME));

      SaveToFile(Dest);
    finally
      Free;
    end;

  finally
    Free;
  end;
end;