原创力文档- 1、本文档共8页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
时间星期过程
procedure Tmain.Timer1Timer(Sender: TObject);
begin
case dayofweek(now) of
1:now_week:= 星期天 ;
2:now_week:= 星期一 ;
3:now_week:= 星期二 ;
4:now_week:= 星期三 ;
5:now_week:= 星期四 ;
6:now_week:= 星期五 ;
7:now_week:= 星期六 ;
end;
main.StatusBar1.Panels[4].Text:=datetostr(now)+ +now_week+ +timetostr(now);
end;
有按钮的对话框
if MessageDlg ( 您是否要退出？ , mtConfirmation, [mbyes, mbNo], 0) = idNo then
CanClose := False;
读取注册表键值
function ReadValue(myrootkey:hkey;key,value:string):string; // 从注册表键值中读取内容（返回
值为字符串）
var
j : integer;
Reg:TRegistry;
mybuffer:pByte;
//mybuffersize:integer;
reginfo:tregdatainfo;
//valuetype:TRegDatatype;
begin
Reg:=TRegistry.Create;
//valuetype:=rdstring;
try
reg.RootKey:=myrootkey;
if reg.OpenKey(key,false) then
begin
if reg.GetDataInfo(value,reginfo) then
begin
//valuetype:= reginfo.RegData;
case REG.GETDATATYPE(Value) of
rdstring: Result:=reg.ReadString(value);
rdbinary: begin
GetMem(mybuffer,regInfo.DataSize);
REG.READBINARYDA TA(value,myBuffer^,regInfo.DataSize);
Result := ;
for j := 0 to regInfo.DataSize - 1 do
begin
Result := Result + IntToHex(Byte(mybuffer^),2);
inc(mybuffer);
end;
end;
rdinteger: Result:=IntToStr(reg.ReadInteger(value));
end;
end;
end;
finally
//Result:=;
reg.CloseKey;
reg.Free;
end;
end;
调用证件名称生成拼音简码动态函数
procedure getbm(var str : shortstring; sel : integer); external zjmc.dll;
调用子窗口函数，保证只调用一次
procedure OpenForm(FormClass: TFormClass; v
文档评论（0）