Текущий архив: 2003.08.11;
Скачать: CL | DM;

Вниз

достать иконку   Найти похожие ветки 

← →
XenonXX   (2003-07-28 03:58) [0]

Делаю что-то типа експлорера. Ужe даже сделал, вот только как иконку с ехе-шника добавить в ImageList? Пробывал достать LoadIcon, но как достать hInstance?

---

← →
Rouse_ ©   (2003-07-28 04:18) [1]

Небольшой примерчик...

uses ... , ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
Icon: TIcon;
FileInfo: TSHFileInfo;
Attr: Integer;
FileName: String;
begin
FileName := "C:\Windows\Calc.exe";
Attr:=FileGetAttr(FileName);
SHGetFileInfo(PChar(FileName), Attr, FileInfo, SizeOf(FileInfo),
SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_SMALLICON or SHGFI_OPENICON);
Icon := TIcon.Create;
Icon.Handle := FileInfo.hIcon;
Form1.Icon.Assign(Icon);
Icon.Free;
end;

Желаю успехов

---

← →
Юрий Зотов ©   (2003-07-28 04:25) [2]

Icon.Handle := ExtractIcon(HInstance, "...", 0)

---

← →
XenonXX ©   (2003-07-28 04:29) [3]

Большое спасибо!

---

← →
Rouse_ ©   (2003-07-28 04:31) [4]

> Юрий Зотов © (28.07.03 04:25)

Верно, но обычно потом следуют вопросы как сжать иконку без искажения в 16х16. Мой пример как раз это и демонстрирует.

Желаю успехов

ЗЫ: Сори за офтопик

---

← →
XenonXX ©   (2003-07-28 04:42) [5]

Rouse_

А я ее и не буду сжимать, мне же как в проводнике надо, но все равно спасибо ;)

---

← →
XenonXX ©   (2003-07-28 05:02) [6]

Прога дописана, вопрос исчерпан, всем спасибо, занавес.

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c