Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.009 c
3-80782
Mikeee
2002-04-03 16:21
2002.04.25
Что бы это значило :


3-80734
Sewix
2002-04-02 23:37
2002.04.25
Нужна альтернатива Qreport


14-81078
VATERMAN
2002-03-20 19:51
2002.04.25
mp3 проигрыватель


1-80899
Демон
2002-04-14 19:48
2002.04.25
Как работать с иконкой в трэйбаре


4-81106
mentor
2002-02-19 07:59
2002.04.25
EMail