Показать сообщение отдельно
  #1  
Старый 04.11.2009, 16:55
Roman2807 Roman2807 вне форума
Прохожий
 
Регистрация: 29.10.2009
Сообщения: 14
Репутация: 10
Восклицание Подскажите

Учусь работать с окнами других программ, для проверки, будит ли определять имя окна блокнота при известном хэндле пишу текст
Код:
var
h : hwnd;
s : string;
p : pchar;
x1,x2 : integer;
begin
h := findwindow(nil, 'Безымянный - Блокнот');
edit1.Text := inttostr(h);
getwindowtext(h, p, 21);
label1.Caption := p;
end;
Admin: Учимся правильно оформлять код!

Да, в поле label1 имя окна появляется но перед этим выскакивает ошибка:
access violation at address 002d0024. read of address 44062700
как от нее избавиться?