Anstatt ID den Namen verwenden?

[himitsu]

Wozu erst über 'nen Namen suchen ... wie wäre es mit 'ner Konstante?

Code:

Const [color=#ff0000]MeinEdit[/color] = 788380;

procedure TForm1.Button5Click(Sender: TObject);
var
  hWnd, hEdit: cardinal;
  buffer: array[0..1204] of Char;
begin
  hWnd := FindWindow(nil, 'Fax 1.1');

  hEdit := GetDlgItem(hWnd, [color=#ff0000]MeinEdit[/color]);
  SendMessage(hEdit, WM_GETTEXT, sizeof(buffer), Integer(@buffer));
  ShowMessage(String(buffer));
end;

Vorzeile: den zu suchenden Namen kann man auch falsch schreiben, ebenfalls wie die ID.
Bei der Konstannte gibt es die ID nur einmal, also leicht zu ändern und bei Konstantennamen kann man sich nicht so einfach verschreiben, da dort meißtens der Compiler meckert ^^