[usfire]

Меняется название окна , а нужно заполнение Edit

Код:

program Project1;



uses
  SysUtils,
  windows,
  dialogs,
  controls,
  messages;

var
  s: pchar;
  h,h1: HWND;
begin
  s:= 's11';
  h := FindWindow(nil,'хендл  программы');
  h1 := FindWindowEx(h1, 0, 'EDIT', 'хендл  программы');
  SendMessage(h1, WM_SETTEXT, 0, LongInt(PCHAR(s)));



end.