ich habe embarcadero rad studio 2010
hier ist der bisherige "source":
Code:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
TForm1.Button1Click(Sender:Tobject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
start, stop: String;
hWnd: HWND; windowhandle(nil, 'METIN2');
implementation
{$R *.dfm}
Procedure TForm1.Button1Click(Sender:Tobject);
var c : hWnd;
begin
c:= FindWindow(nil,'METIN2 (Window 800x600)');
if c<> 0 then
begin
sendmessage //hier soll ein sendmessage hinkommen
end;
end.
wenn ihr fehler seht bzw verbesserungsvorschläge für meine struktur immer nur her damit







