Скачать: CL | DM;

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

← →
Slava ©   (2002-01-11 11:51) [0]

var
W: Word;
Pic: TPicture;
FN: String;
begin
W := 0;
Pic := TPicture.Create;
FN := "C:\Progs\Example\extricon\Project1.exe"; // не работает
FN := Application.ExeName; // работает
Pic.Icon.Handle := ExtractAssociatedIcon(HInstance, PChar(FN), W);
Canvas.Draw(10,10, Pic.Graphic);
Pic.Free;
end;

Как правильно пользоваться функцией ExtractAssociatedIcon?

---

← →
TonnyS ©   (2002-01-11 17:31) [1]

var
ico : TIcon;
h : HIcon;
w : word;
st1 : string;
begin
st1 := "файл с иконкой";
ico := TIcon.Create;
h := ExtractAssociatedIcon(hInstance,PChar(st1),w);
ico.Handle := h;
...
ico.free;
end;

вроде так.

---

← →
Slava ©   (2002-01-14 08:13) [2]

> TonnyS

В том-то и дело, что h = 0,
если st1 <> Application.ExeName

Даже, если st1 присвоить тоже самое имя exe-файла, которое содержиться в Application.ExeName

---

← →
Slava ©   (2002-01-14 08:16) [3]

Я имею ввиду:
Если st1 <> Application.ExeName или st1 <> ParamStr(0), то все ОК.

В остальных случаях h = 0 :(

---

← →
Slava ©   (2002-01-14 08:18) [4]

Вот, блин фигню написал! Это после празднования СНГ...

Должно быть так:

Я имею ввиду:
Если st1 := Application.ExeName или st1 := ParamStr(0), то все ОК.

В остальных случаях h = 0 :(

---

← →
TonnyS ©   (2002-01-14 13:27) [5]

странно вообще-то, кинь на мыло - вышлю всю программу, там активно используется это ExtractAssociatedIcon.

---

← →
TonnyS ©   (2002-01-14 13:46) [6]

>Если st1 := Application.ExeName или st1 := ParamStr(0), то все ОК.

>В остальных случаях h = 0 :(

а вообще у меня подозрение, что неправильные параметры передаются, например, W (номер иконки) или имя файла некорректно преобразуется в PChar.

---

← →
Slava ©   (2002-01-15 06:23) [7]

> TonnyS
Уже отправил на мыло.
Сорри за спам, в первом письме нет аттача.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c