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 :|