Главная страница
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
4-81110
SerVS - S
2002-02-18 20:01
2002.04.25
Подскажите плз как вырубить Ctrl+Alt+Del


1-80997
Sasha9
2002-04-12 18:36
2002.04.25
Pointer > Array


14-81061
spb
2002-03-20 11:21
2002.04.25
ИМХО?.. Что такое ИМХО?


6-81015
Eraser
2002-02-12 13:01
2002.04.25
Как лучше сделать


6-81024
reki
2002-02-14 15:59
2002.04.25
ФТП сервер?