Главная страница
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-80785
Jony
2002-04-04 10:47
2002.04.25
Почему не работает ShotCut для EditButtons в DBGridEh?


14-81073
D'Aron
2002-03-21 11:15
2002.04.25
Исходники для склада


1-80986
kimblch
2002-04-10 02:29
2002.04.25
Вопрос по OLE-Automation(ранние связывание)


14-81050
Sound
2002-03-20 02:00
2002.04.25
Срочные вопросы


1-80927
Darlok
2002-04-10 18:41
2002.04.25
Lib файл