if MessageDlg('WelcometomyDelphiapplication.Exitnow?',mtConfirmation,,0)=mrYesthenbegin Close;end;MessageDlg用法对话框类型:mtwarning——含有感叹号的警告对话框mterror——含有红色叉符号的错误 ...……
文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry,可以通过它取得或改变注册表相关键值的内容。 FunctionGetAssociatedExec(FileExt:String;varFileDescription,MIMEType:String):String; V ...……