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

Вниз

Помогите с ExtractAssociatedIcon!   Найти похожие ветки 

← →
Stiky ©   (2002-02-20 21:08) [0]

Есть код:

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex : word;
h : hIcon;
begin
IconIndex := 0;
h :=
ExtractAssociatedIcon(hInstance,
"C:\WINDOWS\NOTEPAD.EXE",IconINdex);
DrawIcon(Form1.Canvas.Handle,10,10,h);
end;

Как "C:\WINDOWS\NOTEPAD.EXE" заменить на OpenDialog1.Filename, если тип PChar?
Спасибо.

---

← →
Ogu ©   (2002-02-20 21:34) [1]

А че PChar(OpenDialog1.Filename) не проходит?

---

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

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

Наверх

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