Ошибка при взятии иконки с программ [D5, WinME]
Ильясов Вадим © (2002-04-26 12:06:00)
Помогите!Когда я ипользую этот пример для других типов файлов,
выдается ошибка типа: "Access volation at address ????????. Read of
address ????????" (где "????????"- число в шестнадцатиричном виде)
или "Системе существенно нехватает ресурсов":
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;
Как ее можно избежать.
Song (2002-04-26 14:02:00) [1]
IconIndex:=1;
Наверх 
ЧАТ |
Орешник |
|
