防止程序多次运行

防止程序多次运行(2) begin
  inherited createparams(params);
  params.WinClassName:=appname;
end;
  procedure TForm1.restorerequest(var msg:tmessage);
  begin
  if isiconic(application.Handle )=true then
  application.Restore
  else
  application.BringToFront ;

  end;
end.