Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

ВЫТЯГИВАНИЕ ИКОНКИ. ПОМОГИТЕ!   Найти похожие ветки 

 
-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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
4-21850
progger
2002-09-24 16:21
2002.11.07
Как отослать другому приложению сочетание клавиш?


1-21461
Luke
2002-10-24 20:41
2002.11.07
Поиск директорий


1-21618
Balu
2002-10-23 15:33
2002.11.07
---|Ветка была без названия|---


1-21626
kofman
2002-10-25 19:13
2002.11.07
Нейронные сети


3-21361
KidMan
2002-10-17 23:01
2002.11.07
SQL и функции