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;
输出是最好的输入。把学习的内容输出出来,加深记忆;