Получить установленный по умолчанию Screen Saver

Советы » ScreenSaver и ScreenMate » Получить установленный по умолчанию Screen Saver

uses

Inifiles, ShellApi; procedure

TForm1.Button1Click(Sender: TObject); var

Ini: TInifile; ScreenSaverFile: string

; function

GetLongFileName(const

FileName: string

): string

; var

aInfo: TSHFileInfo; begin

if

SHGetFileInfo(PChar(FileName), 0, aInfo, SizeOf(aInfo), SHGFI_DISPLAYNAME) <> 0 then

Result := string

(aInfo.szDisplayName) else

Result := FileName; end

; begin

Ini := TInifile.Create('system.ini'); ScreenSaverFile := GetLongFileName(Ini.Readstring('boot', 'SCRNSAVE.EXE', 'Not Available')); Ini.Free; label1.Caption := ScreenSaverFile; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com