Текущий архив: 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.011 c
