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

Вниз

ExtractIconEx   Найти похожие ветки 

 
Seldon   (2003-05-23 21:14) [0]

Здрасьте!
Надо написать функцию для извлечения иконок из строк вида
C:\Mydll.dll,x
Пишу так:
function LoadIcon(FileName:String):TIcon;
var
a,Index:Integer;
H,_H:HICON;
begin
Result:=TIcon.Create;
for a:=Length(FileName) downto 1 do
if FileName[a]="," then
begin
Index:=StrToInt(Copy(FileName,a+1,Length(FileName)-a));
Delete(Path,a,Length(FileName)-a+1);
end;
ExtractIconEx(PAnsiChar(FileName),Index,H,_H,0);
Result.Handle:=H;
end;
Но H всегда равно 0.
Где ошибка?


 
Song ©   (2003-05-23 22:19) [1]

Последний параметр в ExtractIconEx() - 1


 
Seldon   (2003-05-23 22:45) [2]

>>Song
Спасибо!



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

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

Наверх




Память: 0.46 MB
Время: 0.02 c
9-12990
The_Vizit00r
2002-12-27 13:03
2003.06.05
Народ подскажите, где найти исходник


6-13361
Kickboxing
2003-04-02 13:45
2003.06.05
Информация об удаленном ПК


8-13330
Garrett
2003-02-23 00:24
2003.06.05
создание вершинного шейдера


1-13186
AlexCool
2003-05-26 13:10
2003.06.05
Напечатать документ Word в Canvas?


1-13145
Sandman25
2003-05-23 17:12
2003.06.05
TControl.Parent и DLL