Текущий архив: 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.01 c
