VPF::иконки не выкалупываются - Форум программистов

z-END

Дата 13.1.2005, 19:40 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

Код


  IconIndex := 1;
  Icon := ExtractAssociatedIcon (hinstance, PAnsiChar(HLTFile),IconIndex);
   DrawIcon (HLTFileImg.Canvas.Handle, 0, 0, Icon);

Почему-то при выполнении такого кода ничего не рисуется smile

HFTFile - указывает на существующий файл (путь правильный)
причем при выпонении

Код


HLTFile :=  Application.ExeName

иконка рисуется... в чем проблемма?

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Albinos_x

Дата 13.1.2005, 19:55 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

Чесно, говоря не знаю, но попробуй
IconIndex приравнять не 1, а к 0.

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Illusion Dolphin

Дата 13.1.2005, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 13
Всего: 63

Если не получается так, то попробуй эдак:

Код


uses ShlObj, ActiveX...;

function SetPath(const Value: string) : PItemIDList;
var
  P: PWideChar;
  Flags,
  NumChars: LongWord;
begin
 Result:=nil;
 NumChars := Length(Value);
 Flags := 0;
 P := StringToOleStr(Value);
 if not Succeeded(FIDesktopFolder.ParseDisplayName(Application.Handle,nil,P,NumChars,Result,Flags)) then
 result:=nil;
end;

function GetShellImage(Path : String; Large, Open: Boolean): integer;
var
  FileInfo: TSHFileInfo;
  Flags: Integer;
  DeskTopISF: IShellFolder;
  PathPidl: PItemIDList;
begin
 Result := 0;
 FillChar(FileInfo, SizeOf(FileInfo), #0);
 Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_ICON;
 if Open then Flags := Flags or SHGFI_OPENICON;
 if Large then Flags := Flags or SHGFI_LARGEICON
 else Flags := Flags or SHGFI_SMALLICON;
 PathPidl:=SetPath(Path);
 if PathPidl<>nil then
 begin
  SHGetFileInfo(PChar(PathPidl), 0, FileInfo, SizeOf(FileInfo), Flags);
  Result:=FileInfo.hIcon;
 end;
end;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

z-END

Дата 14.1.2005, 09:57 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

Вот так работает:

Код


var
  Icon: hIcon;
  IconIndex: Word;
  Pfile: PWideChar;
begin
GetMem (Pfile,1024);
 StringToWideChar (HLTFile, Pfile , length (HLTFile) + 1);
 Icon := ExtractAssociatedIconW (hinstance, PFile, IconIndex);
 DrawIcon (HLTFileImg.Canvas.Handle, 0, 0, Icon);
 FreeMem (Pfile);
end;

Почему так и непонял...

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »