Ошибка при взятии иконки с программ

← →
Ильясов Вадим (2002-04-26 12:06) [0]

Помогите!Когда я ипользую этот пример для других типов файлов, выдается ошибка типа: "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) [1]

IconIndex:=1;

Ошибка при взятии иконки с программ Найти похожие ветки