Externe Editbox mit Programm befüllen

[WizoHulk]

Hmmm.

haut trotz SendMessage nicht hin. kann das sein, das da im Windows irgendwas blokiert wird?
denn das Programm liegt ja auf einen anderen Rechner.

Delphi-Quellcode:

procedure TForm1.SetEditText(const AControlId: Integer; const AText: String);
var
  LWnd: HWND;     // Windows API, Erfordern ein Fenster Handle
begin
  SetLastError(0);
  LWnd :=  FindWindow('#32770', 'InputSearchDlg');
  LWnd :=  GetDlgItem(LWnd, AControlId);

  //LWnd :=  FindWindowEx(LWnd, 0, 'Edit', nil);

  if LWnd <> 0 then
    begin
    if not SetWindowTextW(LWnd, PWideChar(WideString(AText))) then
      ShowMessage(SysErrorMessage(GetLastError));
    end else
    begin
      windows.beep(400,100);
      messagebeep(MB_ICONERROR );
    end;

und den Button

Delphi-Quellcode:

procedure TForm1.ok_btnClick(Sender: TObject);
begin

  SendMessage(18025, StringGrid1.Cells[1, StringGrid1.Selection.Top]);
  
//SetEditText(18025, StringGrid1.Cells[1, StringGrid1.Selection.Top]);
  
//SetEditText(18026, StringGrid1.Cells[2, StringGrid1.Selection.Top]);

//SetEditText(18027, StringGrid1.Cells[3, StringGrid1.Selection.Top]);