Thema: Delphi Internetzeit

Einzelnen Beitrag anzeigen

Sebastian Nintemann
(Gast)

n/a Beiträge
 
#6
  Alt 30. Dez 2002, 17:44
Hallo Nico, ich hab das mal so versucht:

Delphi-Quellcode:
var
  hWnd,hText : Cardinal;
  p: PChar;
begin
  hWnd := FindWindow(nil,'Verbunden mit arcor');
  //statt arcor eigenen Verbindungsnamen
  //kann meines Wissens nach per Code über InternetGetConnectedStateEx
  //herausgefunden werden. Es kann sein,
  //dass das Fenster unterXP/NT/2000 anders heißt
  hText := FindWindowEx(hWnd,0,'static','Dauer:');
  //der Text um den es geht steht hinter dem in dem 'Dauer:' steht
  //(in Win 9x)
  hText := FindWindowEx(hWnd,hText,'static',nil);

  p := StrAlloc(10);
  GetWindowText(hText,p,10);
  //Text holen
  Caption := p;
  StrDispose(p)
end;
Klappt auch wunderbar, ABER: der geholte Text wird nur aktualisiert wenn das Fenster sichtbar (nicht nur in der TNA) ist, ansonsten bekommt man immer den gleichen Wert. Man müsste also vielleicht das Fenster kurz sichtbar machen um den aktuellen Wert zu kriegen, danach kann man ja "selber weiterzählen"

Gruß, Sebastian
  Mit Zitat antworten Zitat