Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизВЫТЯГИВАНИЕ ИКОНКИ. ПОМОГИТЕ! Найти похожие ветки
← →
-Alex- (2002-10-27 12:21) [0]Здравствуйте!
При загрузки иконки 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) [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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c