AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Findwindow die 3566....

Ein Thema von wolfsblut · begonnen am 13. Nov 2004 · letzter Beitrag vom 10. Nov 2005
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von wolfsblut
wolfsblut

Registriert seit: 25. Okt 2004
Ort: Anrode
20 Beiträge
 
Delphi 7 Professional
 
#11

Re: Findwindow die 3566....

  Alt 21. Nov 2004, 17:11
hi

soll ja kein flodder werden sowas is was für spielkids ...

ich brauch des ding persönlich aus gesundheitlichen gründen ...

mfg
Michael
  Mit Zitat antworten Zitat
dorisdoloris

Registriert seit: 9. Nov 2005
44 Beiträge
 
#12

Re: Findwindow die 3566....

  Alt 10. Nov 2005, 09:37
Zitat von wolfsblut:
Hi Leute

Ich bin am verzweifeln. Ich versuche text an ein fremdes Edit zu senden. Klappt alles wunderbar mit den Fensterhandeln und so solange das Prog in Delphi, C++ oder anderem gecodet ist. Aber probiert das mal mit nem Java Window- Da ist nach dem handle des Topwindows Feierabend.
´

Vielleicht hat ja wer von euch ne Iddee.

Danke im Vorraus


Delphi-Quellcode:
var

// globale Variablen zum rausfinden welche Nummer wir wollen und welche wir haben.
I : Integer;
WantedNr : Integer;
iFensterH : THandle;


---------------------------------------------------------


function EnumWindowsProcPrint(Handle: THandle; udata: longword): Boolean;
stdcall;
begin

  SendMessage(Handle, WM_SETTEXT, 0, integer(PChar('Nummer ' + IntToStr(I))));

  Inc(I);
  Result := true;
end;


----------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin

  iFensterH := findwindow(nil, 'Fenstername');
  I := 0;
  if iFensterH <> 0 then EnumChildWindows(iFensterH, @EnumWindowsProcPrint, 0);
end;


---------------------------------------------------------


function EnumWindowsProc(Handle: THandle; Edit: TEdit): Boolean; stdcall;
begin

  if Assigned(Edit) and (I = WantedNr) then
  begin

    SendMessage(Handle, WM_SETTEXT, 0, integer(PChar(Edit.Text)));

    Result := false;
  end
  else
  begin

    Result := true;

    Inc(I);
  end;
end;
macht was draus Gruß: dorisdoloris

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]
  Mit Zitat antworten Zitat
QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.944 Beiträge
 
Delphi 12 Athens
 
#13

Re: Findwindow die 3566....

  Alt 10. Nov 2005, 18:30
Das selbe problem. Java Swing Applicationen haben keine Windows handels weil die komponenten
nicht von windows verwaltet werden sondern von JRE
Andreas
Monads? Wtf are Monads?
  Mit Zitat antworten Zitat
moritz

Registriert seit: 18. Apr 2003
1.037 Beiträge
 
#14

Re: Findwindow die 3566....

  Alt 10. Nov 2005, 18:44
Mir fällt dazu dann nur noch ein, Eingaben auf der Tastatur zu simulieren. Dafür muss das Feld allerdings ausgewählt sein.
"Optimistisch ist diejenige Weltanschauung, die das Sein höher als das Nichts stellt und so die Welt und das Leben als etwas an sich Wertvolles bejaht."
Albert Schweitzer
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz