Главная страница
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.02 c
7-81094
Lord BDV
2002-01-28 20:37
2002.04.25
Работа со шрифтами


6-81011
knyaz17
2002-02-11 12:41
2002.04.25
Несколько вопросов по TWebBrowser.


3-80779
kserg@ukr.net
2002-04-04 15:50
2002.04.25
DBGrid.columns - как


14-81067
fishka
2002-03-20 14:29
2002.04.25
Переписать игрушку с компашки с защитой. Можно ли это сделать, чтобы работало корректно?


1-81003
Sound
2002-04-10 00:48
2002.04.25
Что нибудь вместо Random