delphi 判断窗体是否创建 存在

var  iHandle: THandle;

iHandle=FindWindow(Pchar(Tform1.ClassName), nil);

if iHandle <> 0 then

已经存在