ďťż

Ładny brzuch

Jak sprawdzić aktulany aktywny numer komunikatora AQQ z poziomu Delphi?



Zrób uchwyt i odwołaj się do miejsca w którym jest on wyświetlany - nie mam go więc cokładnie niewiem. Możesz tesz poszukać w plikach programu i rejestrze systemu.


Zrób uchwyt (...)

Jak się uchwyty robi niepamiętam. Poszukaj info o strukturze programu i dowiedz się czy w jakimś pliku nie jest trzymany numer, a może jest on w rejestrze. Jeżeli w oknie jest wyświetlany(okno AQQ) numer to po chwyceniu pobierz go z danego miejsca.



Zalezy gdzie owy napis jest umiejscowiony (nie mam AQQ to nie wiem). Przykładowo jak aby pobrać napis z paska tytułowego, można zrobić tak:

var  Len: integer;  buffer: string;  WindowHandle: THandle; begin WindowHandle := FinDWindow(NAZWA_KLASY_OKNA, nil); //* TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0); Inc(TxtLength); SetLength (buffer, txtlength); SendMessage (WindowHandle, WM_GETTEXT, TxtLength, longint(@buffer[1])); ShowMessage(buffer); end;
//* - lub drugi parametr tekst na pasku tytulu, co w tym przykladzie mija sie z celem

Na pewno da sie jakoś prościej, powyższy sposób to poprostu moje przyzwyczajenie. Jeśli potrzebna nam informacja nie jest na pasku tytułu należy po funkcji FindWindow użyć FindWindowEx();
Na pewno nikt Ci teraz dokładnie tego nie wyjaśni, dlatego radzę poczytać podstawy API aby trochę zroumieć o co kaman.

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •