摘要:
var Registry: TRegistry;begin Registry:=TRegistry.Create; Registry.RootKey:=HKEY_LOCAL_MACHINE; Registry.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion',False); Registry.RootKey:=HKEY_LOCAL_MACHINE; Registry.OpenKey('\SOFTWARE\CCCCC',True); if not Registry.ValueExists('refre 阅读全文
摘要:
chongzhireportfrm:=Tchongzhireportfrm.Create(application); chongzhireportfrm.QRLabel1.Caption :='开户单'; chongzhireportfrm.cardid.Caption := trim(cardid.text); chongzhireportfrm.name.Caption := trim(DBEdit8.text); chongzhireportfrm.amo... 阅读全文
摘要:
var currentcount:integer; ishaveinstance:boolean;begin ishaveinstance:=false; for currentcount:=0 to MDIChildcount-1 do begin if MDIChildren[currentcount].ClassName='Tcardfrm' then begin ishaveinstance:=true; MDIChildren[currentcount].WindowState:=wsmaximized; end; e... 阅读全文