danke für den versuch mir zu helfen, aber bisher haben deine tipps bei mir (delphi 7 pro) nicht viel weitergeholfen ;_; ich stelle deshalb einfach mal meinen "ganzen" code zur verfügung (auch wenns nicht wirklich was bringt):
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var ItemHandle,MainApp:HWND; SentText: String;
begin
if FindWindow(nil,Main_ID)=0 then begin
// bla bla bla
end else begin
Application.ShowMainForm:=false;
MainApp:=FindWindow(nil,Main_ID);
ItemHandle:=FindWindowEx(MainApp,0,'TEdit',nil);
if ParamCount>0
then SentText:=ParamStr(1)
else SentText:='Show';
if ItemHandle<>0
then SendMessage(ItemHandle,WM_SETTEXT,Length(SentText),lParam(SentText))
else ShowMessage('TEdit konnte nicht gefunden werden !');
Application.Terminate;
end;
end;
ich habe es nochmals ausprobiert: Edit1.Visible:=true und alles funzt wunderbar...sobald ich aber Edit1.Visible:=false setze, schlägt FindWindowEx fehl und ItemHandle entspricht 0 ;_;
naja, was ich eigentlich vorhabe ist, OHNE timer die (Send)Messages abzufangen und so jede Message auf diese Art zu verarbeiten. ich habe halt das OnChange-Ereignis des Edit1 benutzt...vllt kannste mir auch einfach sagen, wie ich das mache
