Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Teamspeak Log FensterHandle ermitteln (https://www.delphipraxis.net/85758-teamspeak-log-fensterhandle-ermitteln.html)

delphis spassbremse 4. Feb 2007 13:29


Teamspeak Log FensterHandle ermitteln
 
Moinzen....

ich will das Log fenster von Teamspeak auslesen
und weiß einfach nicht, wie ich die ID von dem logfenster
bekomme...

wenn ich die ID hab, dann komm ich auch weiter...

forensuche und durchforsten eines src hat nix gebracht^^

kann mir da einer helfen?

MFG

arbu man 4. Feb 2007 13:32

Re: Teamspeak Log FensterHandle ermitteln
 
WinSpy aus der DP ist dafür ein nettes Tool
Olli hat auch eine nettes Tool geschrieben, enable_disable

delphis spassbremse 4. Feb 2007 13:39

Re: Teamspeak Log FensterHandle ermitteln
 
Das bringt mir ja nicht viel, da sich bei jedem aufruf des programms das fensterhandle ändert....

arbu man 4. Feb 2007 13:42

Re: Teamspeak Log FensterHandle ermitteln
 
Stichwort: ControlID

delphis spassbremse 4. Feb 2007 13:56

Re: Teamspeak Log FensterHandle ermitteln
 
ja ka was ich damit anfangen sollte...

vllt. kann hier ja mal jem. nen codeschnipsel senden, wie ich den kram auslese....

mfg

delphis spassbremse 4. Feb 2007 14:58

Re: Teamspeak Log FensterHandle ermitteln
 
Also ich habs auch mit findwindowex probiert, aber das wird nix

toms 4. Feb 2007 15:06

Re: Teamspeak Log FensterHandle ermitteln
 
Vielleicht hilft der Codeschnipsel von hier weiter.

dominikkv 4. Feb 2007 15:17

Re: Teamspeak Log FensterHandle ermitteln
 
Probiers doch mal mit WinSpy...dort gibt es eine Function die dir den quelltext für Delphi automatsch generiert

PLuS 5. Feb 2007 17:13

Re: Teamspeak Log FensterHandle ermitteln
 
Du musst bedenken, dass das Log-Window noch auf einem Panel ist, also nicht direkt ein Child des Main-Windows ist.
Ich habe mir das auch irgendwann mit WinSpy gesucht und dann daraus diese Funktion gebastelt:

Delphi-Quellcode:
function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
  i: Word;
  hChild: HWND;
begin
  hChild := 0;
  Result := 0;
  ChildNr := ChildNr - 1;
  for i := 0 to ChildNr do
  begin
    hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
    if hChild = 0 then
      Exit;
    Result := hChild;
  end;
end;

function FindTS2LogHandle: THandle;
var
  Form, Panel: THandle;
begin
  Form:=FindWindow('TMainForm', 'TeamSpeak 2');
  Panel:=FindWindowEx2(Form, 'TPanel', 2);
  Result := FindWindowEx(Panel, 0, 'TRichEditWithLinks', NIL);
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:27 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz