Текущий архив: 2003.08.11;
Скачать: CL | DM;

Вниз

Ошибка 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)

---

← →
Юрий Зотов ©   (2003-07-26 22:58) [2]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.014 c