Thema: Delphi Statusbar auslesen

Einzelnen Beitrag anzeigen

Benutzerbild von ghost007
ghost007

Registriert seit: 31. Okt 2005
Ort: München
1.024 Beiträge
 
Delphi 7 Personal
 
#1

Statusbar auslesen

  Alt 30. Apr 2008, 17:17
Hallo,
ich will per sendmessages die statusbar des VLC players auslesen, folgendes hab ich versucht:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
 var
  sb:THandle;
  length: Integer;
  item: PChar;
begin
 sb := FindWindow('wxWindowClassNR','VLC media player');
 sb := FindWindowEx(sb, 0, 'msctls_statusbar32', nil);
 //Erstes Item
 length := SendMessage(sb, SB_GETTEXTLENGTH, 0, 0);
 GetMem(item, length + 1);
 SendMessage(sb, SB_GETTEXT, 0, Integer(item));
 Label4.Caption := item;
 FreeMem(item);
 //DONE
end;
nur jedesmal wenn ich den code ausführe geht der VLC player hopps

MfG - Ghost007
Christian
Es gibt möglich Dinge und unmöglich Dinge.
Für unmögliche braucht man lediglich etwas länger.
  Mit Zitat antworten Zitat