Delphi-Help

Главная Статьи Windows Как узнать стиль картинки рабочего стола "По центру/Рядом/Растянуть"?

Как узнать стиль картинки рабочего стола "По центру/Рядом/Растянуть"?

Оцените материал
(2 голосов)


Как узнать стиль картинки рабочего стола "По центру/Рядом/Растянуть"?

uses
  ..., Registry;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  TileWallpaper: string;
  WallpaperStyle: string;
begin
   Reg := TRegIniFile.Create;
   Reg.RootKey := HKEY_CURRENT_USER;
   Reg.OpenKey( 'Control Panel\Desktop', false );
   TileWallpaper := Reg.ReadString( 'TileWallpaper' );
   WallpaperStyle := Reg.ReadString( 'WallpaperStyle' );
   Reg.CloseKey;
   Reg.Free;
   case StrToInt( TileWallpaper ) of
      0: case StrToInt( WallpaperStyle ) of
            0: Edit1.Text := 'По центру';
            2: Edit1.Text := 'Растянуть';
         end;
      1: if StrToInt( WallpaperStyle ) = 0 then Edit1.Text := 'Рядом';
      else Edit1.Text := 'Без понятия';
   end;
end;
Прочитано 4469 раз

Авторизация



Счетчики