Hi!
Als Ergänzung (an der Stelle [...] (es wird noch eine Variable str: string definiert):
Delphi-Quellcode:
str:=gettext(hhandle);
if pos('Windows Media Player', str)<> 0 then begin ...
In dem Moment wo die If-Bedingung zutrifft, steht das
Handle auf das den MediaPlayer.
Anstelle von Windows Media Player setzt du das ein, was in der Liste steht!
Ciao fkerber
[Edit]
Da fehlt noch die Funktion GetText:
Delphi-Quellcode:
function GetText(Wnd: HWND): string;
var
textlength: Integer;
Text: PChar;
begin
textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
if textlength = 0 then Result := ''
else
begin
GetMem(Text, textlength + 1);
// Änderung ->
if Assigned(Text) then
try
SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
// Result := Text;
// Änderung ->
SetString(Result, Text, lstrlen(Text));
finally
FreeMem(Text);
end;
end;
end;
[/Edit]
Ciao fkerber