В общем такие дела:
Пытаюсь создать приложение в котором на кнопку SpeedButton я помещаю иконку другого приложения. Вот код, с помощью которого помещаю:

procedure TForm1.OpenDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin

T1:=OpenDialog1.FileName;
Icon := TIcon.Create;
Icon.Handle := ExtractIcon(0, pchar(T1), 0);
SpeedButton1.Glyph.Width := Icon.Width;
SpeedButton1.Glyph.Height := Icon.Height;
SpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);
Icon.Free;

end;

Здесь я выбираю нужный Exe-файл.

При закрытии приложения появляется ошибка под названием Application Error

Текст такой:

Exception EAccessViolation in module Project1.exe at 00000000.
Access violation at address 00000000. Read of address 00000000.

Код

Ну к примеру вот так попробовать можно: procedure TForm1.OpenDialog1CanClose(Sender: TObject; var CanClose: Boolean); begin [b]CanClose:=false;[/b] T1:=OpenDialog1.FileName; Icon := TIcon.Create; Icon.Handle := ExtractIcon(0, pchar(T1), 0); SpeedButton1.Glyph.Width := Icon.Width; SpeedButton1.Glyph.Height := Icon.Height; SpeedButton1.Glyph.Canvas.Draw(0, 0, Icon); Icon.Free; [b]CanClose:=true;[/b] end;

А ты уверен в том что твоя процедура корректно работает на прямую, кроме события OpenDialog1CanClose ?

Это сообщение отредактировал(а) RAdmin - 18.7.2004, 20:02

Dreyka Я сталкивался с подобной ерундой. Посмотри корректно ли ты обращаешься к памати (если есть) ил проблема может быть в строчке Icon.Free;

А я бы проверил, что находится в данный момент в SpeedButton1.Glyph... Оно у тебя создано??? Если нет, то необходимо сделать так:
if SpeedButton1.Glyph=nil then
begin
SpeedButton1.Glyph:=TBitmap.create;
SpeedButton1.Glyph.PixelFormat:=pf24bit; //это необязательно
end;