ВЫТЯГИВАНИЕ ИКОНКИ. ПОМОГИТЕ! [D6, Win95/98, WinME, NT4, Win2k, WinXP]
-Alex- © (2002-10-27 12:21:00)
Здравствуйте!
При загрузки иконки BMP файла в Image1 я получаю вместо
иконки изображения BMP файла. Как можно от этого избавиться? Мне
нужно получить ассоциированную иконку.
procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex : word;
begin
IconIndex := SpinEdit1.Value;
Image1.Picture.Icon.Handle :=
ExtractAssociatedIcon(HInstance,
Pchar(Edit1.Text),IconIndex);
end;
PKT (2002-10-28 03:45:00) [1]
Выдержка из Hepl-а:
The ExtractAssociatedIcon function returns the handle of an
indexed icon found in a file or an icon found in an associated
executable file.
Обратите внимание на слово executable.
Для BMP-файлов используется ассоциированная иконка,
хранящаяся в mspaint.exe ,индекс = 1.
Попробуйте следующее, только поставьте обработку ошибок.
var
FileName: string;
S: string;
Reg: TRegistry;
Open: Boolean;
Pos: Integer;
Index: Integer;
begin
FileName := Edit1.Text;
S := UpperCase(ExtractFileExt(FileName));
if (S = ".EXE") or (S = ".DLL") or (S = ".ICO") then
begin
Index := 0; // или 1, 2, в завис. от числа иконок
S := FileName;
end
else begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey("Software\CLASSES", False);
if Reg.OpenKey(S, False) then begin
S := Reg.ReadString("");
Reg.OpenKey("\Software\CLASSES\" + S +
"\DefaultIcon", False);
S := Reg.ReadString("");
Pos := System.Pos(",", S);
Index := StrToInt(Trim(Copy(S, Pos + 1, 255)));
System.Delete(S, Pos, 255);
end;
Reg.Free;
end;
Image1.Picture.Icon.Handle :=
ExtractIcon(HInstance, PChar(S), Index);
end;
Наверх 
ЧАТ |
Орешник |
|
