Handle wird nicht ermittelt?

[cran7]

Ich schreib grat an nem programm, das in bestimmten zeitabständen ne message an alle in teamspeak sendet, und häng grat an folgender stelle:

Ich will das handle von 'Send Text Message to: All Channels' ermittlen, mit WinSpy bekomm ich das handle raus, aber bekomms net mit meinem programm hin :( ich bekomm zwar das handle von TeamSpeak aber nicht von dem Send-Fenster

Delphi-Quellcode:

wnd := Findwindow(nil, 'TeamSpeak 2');
wnd := FindWindowEx(wnd,0,'TfrmSendMessage',nil);

habs auch schon so probiert, aber geht auch nicht:

Delphi-Quellcode:

wnd := Findwindow(nil, 'TeamSpeak 2');
wnd := FindWindowEx(wnd,0,'Send Text Message to: All Channels',nil);

muss ich hier was andres als FindWindowEx benutzen, weil das Send-Fenster ja n eigenständiges fenster ist, oder mach ich was andres falsch?

[toms]

Hallo,

So wird das Fenster gefunden:

Delphi-Quellcode:

  wnd := FindWindow('TfrmSendMessage', nil);

[cran7]

klappt thx, hätt ich selber drauf kommen können^^

[toms]

Zitat:

Zitat von cran7

klappt thx, hätt ich selber drauf kommen können^^

Der alte WinSpy erzeugt eben nicht immer den korrekten Code.
Bug wurde im WinSpy 2008 behoben. (noch nicht verfügbar)

[DGL-luke]

Sollte Teamspeak nicht ne API bzw. n SDK haben?

[cran7]

@ luke, weis net

ich hab hier nochn problem, beim öffnen des Send-Fensters, reagiert mein programm nicht mehr bis ich das fenster auch wieder geschlossen hab. Hab das send fenster so gestarted:

Delphi-Quellcode:

SendMessage(hWnd, WM_COMMAND, MenuID, 0);

wird also per MainMenü aufgerufen, aber wie gesagt danach macht mein programm nix, bzw reagiert net mehr, mehr bis das fenster wieder geschlossen wurde

[Apollonius]

Versuche es mal mit PostMessage.

[toms]

Zitat:

Zitat von DGL-luke

Sollte Teamspeak nicht ne API bzw. n SDK haben?

Teamspeak hat eine API. Schau mal im client_sdk Ordner.
Dort findest du ein Delphi Beispiel.

Suchst du eine solche Funktion?

Delphi-Quellcode:

//##############################################################################
//#
//#  Function tsrSendTextMessage( Message : Pchar ):Integer;
//#
//#  Description:
//#    Send a text message to everyone
//#
//#  Input:
//#    Message : The message you want to send.
//#
//#  Output:
//#    Result: 0 = OK, else the error number
//#
//##############################################################################

[cran7]

@ Apollonius
klappt thx :)

könntest du mir bitte noch den unterschied erklären? ich möcht ja auch verstehn was ich mach :)

E:
@ tomps jo thx, ich werd da au ma reinkucken, wollts halt mit delphi schreiben, damit ich auch weis wie das für andere programme geht, und um halt was zu lernen :zwinker:

[Apollonius]

Sendmessage Postmessage