Ошибка EAccessViolation

← →
Dolf (2003-07-26 22:03) [0]

Почему код вызывает ошибку EAccessViolation?
Даже если не вызывать саму функцию. У меня WinXP.

procedure TForm1.Button1Click(Sender: TObject);
var
PL:PWINDOWPLACEMENT;
begin
pl.length:=sizeof(WindowPlacement);
GetWindowPlacement(findwindow("X", nil), PL);
end;

Подскажите, как можно по-другому получить состояние ЧУЖОГО окна (Minimized/Normal)???

← →
Иван Шихалев © (2003-07-26 22:40) [1]

pl := new(PWINDOWPLACEMENT)

Зачем работать с указателем, если можно проще?

procedure TForm1.Button1Click(Sender: TObject);
var
Pl: TWindowPlacement;
begin
Pl.Length := SizeOf(Pl);
GetWindowPlacement(FindWindow("X", nil), @Pl)
end;

Ошибка EAccessViolation Найти похожие ветки