GetClassName

0

co ja tu robię źle?

var uchwyt: Hwnd;
    s:PChar;
begin
  uchwyt:=FindWindow(nil,'Objekty Delphi');
  if GetClassName((*1) uchwyt,s,SizeOf(s))=0 then(*2) showmessage('ok');
  Edit2.Text:=s;

(*1)- missing operator or semicoln
(*2)- incompatibile types

funkcję GetClassName znalazłem w serwisowej encyklopedi, a opisu do niej w helpie nie ma :|

0

spróbUj If Windows.GetClassName...

0
zamien
  s : PChar;
na:
  s : array [0..255] of Char;
0

Dzięki, działa. Przy okazji po wpisaniu windows.(kropka) wyskakuje kupa funkcji o których nie wiedziałem. [hurra]

1 użytkowników online, w tym zalogowanych: 0, gości: 1