|
Платные хостинги
Раскрутка сайта
Книги по программированию
иконки не выкалупываются
- Код IconIndex := 1; Icon := ExtractAssociatedIcon (hinstance, PAnsiChar(HLTFile),IconIndex); DrawIcon (HLTFileImg.Canvas.Handle, 0, 0, Icon);highlightSyntax('delphiMzc0Zm','delphi');Почему-то при выполнении такого кода ничего не рисуется HFTFile - указывает на существующий файл (путь правильный)причем при выпонении Код HLTFile := Application.ExeNamehighlightSyntax('delphiMTc5Mm','delphi'); иконка рисуется... в чем проблемма?
- Чесно, говоря не знаю, но попробуй IconIndex приравнять не 1, а к 0.
- Если не получается так, то попробуй эдак:Код 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;highlightSyntax('delphikNjIwZ','delphi');
- Вот так работает:Код var Icon: hIcon; IconIndex: Word; Pfile: PWideChar;beginGetMem (Pfile,1024); StringToWideChar (HLTFile, Pfile , length (HLTFile) + 1); Icon := ExtractAssociatedIconW (hinstance, PFile, IconIndex); DrawIcon (HLTFileImg.Canvas.Handle, 0, 0, Icon); FreeMem (Pfile);end;highlightSyntax('delphiJjNDUw','delphi');Почему так и непонял...
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
