Как загрузить иконку CD-ROM

Советы » CD-ROM » Как загрузить иконку CD-ROM

function

GetCDIcon(Drive: Char): TIcon; var

ico: TIcon; ini: TIniFile; s, p: string

; i, j: Integer; begin

//Abbrechen wenn "AutoRun.Inf" nicht existiert. //Abort if "AutoRun.inf" doesn't exists. if

FileExists(Drive + ':autorun.inf') = False then

Exit; //"AutoRun.inf" offnen //Opens the "AutoRun.inf" ini := TIniFile.Create(Drive + ':autorun.inf'); ico := TIcon.Create; try

//Dateinamen lesen //Read the filename s := ini.ReadString('Autorun', 'ICON', ''); //Abbrechen, wenn kein Icon festgelegt wurde //Abort if there is no icon specified if

s = '' then

Exit; //Icon von Datei laden //load the icon from a file if

FileExists(s) then

ico.LoadFromFile(s); if

FileExists(Drive + ':' + s) then

ico.LoadFromFile(Drive + ':' + s); //Icon aus einer Resource laden //Load the icon from a Win32 resource if

(FileExists(s) = False) and

(FileExists(Drive + ':' + s) = False) then

begin

for

j := (Pos(',', s) + 1) to

Length(s) do

begin

p := p + s[j]; end

; i := StrToInt(p); for

j := Length(s) downto

(Pos(',', s)) do

Delete(s, j, Length(s)); if

FileExists(s) = False then

s := Drive + ':' + s; ico.Handle := ExtractIcon(hinstance, PChar(s), i); end

; Result := ico; finally

ini.Free; end

; end

;

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

Категории

Статьи

Советы

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