Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Findwindow die 3566.... (https://www.delphipraxis.net/33861-findwindow-die-3566-a.html)

wolfsblut 21. Nov 2004 16:11

Re: Findwindow die 3566....
 
hi

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

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

mfg

dorisdoloris 10. Nov 2005 08:37

Re: Findwindow die 3566....
 
Zitat:

Zitat von wolfsblut
:gruebel: :gruebel: :gruebel: 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

:gruebel: :gruebel: :gruebel:


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]

QuickAndDirty 10. Nov 2005 17:30

Re: Findwindow die 3566....
 
Das selbe problem. Java Swing Applicationen haben keine Windows handels weil die komponenten
nicht von windows verwaltet werden sondern von JRE

moritz 10. Nov 2005 17:44

Re: Findwindow die 3566....
 
Mir fällt dazu dann nur noch ein, Eingaben auf der Tastatur zu simulieren. Dafür muss das Feld allerdings ausgewählt sein.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:18 Uhr.
Seite 2 von 2     12   

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