建立classname，然後可以幫助判斷該classname是否關閉

註冊classname

  public
    procedure createparams(var params:tcreateparams);override;

  const
    TSFPatch729ClassName = 'abcde';

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  StrCopy(Params.WinClassName, _TSFPatch729ClassName);
end;

判斷classname

  const
    TSFPatch729ClassName = 'abcde';
  
  begin
    while isWindow(FindWindow(_TSFPatch729ClassName,nil)) do
    begin
      sleep(300);
    end;
  end;