Delphi-程序最小化到右下角工具栏及开机自动启动

1.最小化到工具栏

使用控件TrayIcon

tiTray.MinimizeApp; //最小化

tiTray.RestoreApp;//显示主界面

SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);//最小化窗口 写在Create中 程序启动后 会最小化

2.开机自动启动（往注册表中添加开机程序）

procedure TfrmHQPMain.cbSelfRunClick(Sender: TObject);
var Reg:TRegistry;
begin
  try
    Reg:=Tregistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
    if cbSelfRun.Checked then
      Reg.WriteString('SHHQPPartTrans',Path+'PartTrans.exe')
    else
      Reg.DeleteValue('PartTrans');
    Reg.CloseKey;
    Reg.Free;
  except
  end;
end;

3.连接数据库(TADOConnection控件)

function TfrmMain.ConnectToDB(DataBaseName: string=''): Boolean;
var
  conStr:string;
begin
  if (Trim(edtSever.Text)='') or (Trim(edtUser.Text)='') then
  begin
    Result:=False;
    exit;
  end
  else
  begin
    conStr:='Provider=SQLOLEDB.1;Password='+Trim(edtPass.Text)+
            ';Persist Security Info=False;User ID='+Trim(edtUser.Text)+
            ';Initial Catalog='+DataBaseName+';Data Source='+Trim(edtSever.Text);
  end;
  with AdoCon do
  begin
    Connected:=False;
    ConnectionString:=conStr;
    try
      Screen.Cursor := crHourGlass;
      try
        Connected:=True;
        Result:=True;
      except
        Result:=False;
      end;
    finally
      Screen.Cursor := crDefault;
    end;
  end;
end;