delphi代码
delphi创建桌面和开始菜单快捷方式程序代码
//创建时在User中引用‘shlObj,comObj,ActiveX,Registry’
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
ShLink.SetPath(PChar(FileName));
ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
ShLink.SetDescription('软件作者：王松龄'+#13#10+' 版本：V1.0'); //右击快捷方式图标弹出的属性对话框中，在常规选项卡的备注中显示此内容信息
var
ShLink: IShellLink;
PFile: IPersistFile;
FileName: string;
WFileName: WideString;
Reg: TRegIniFile;
AnObj: IUnknown;
mb:integer;
begin
showmessage('开始菜单快捷方式创建成功！')
end;
end;
end.
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
delphi uridecode 代码 -回复
delphi uridecode 代码-回复Delphi Uridecode代码是一种用于解码URI（Uniform Resource Identifier）编码的Delphi语言代码库。
URI编码是将特殊字符用特殊形式表示的一种编码方式，常用于将URL中的参数进行编码，以确保其在传输过程中不会发生错误。
在本文中，我们将一步一步回答关于Delphi Uridecode代码的问题，来帮助读者更好地了解和使用它。
第一步：导入Delphi Uridecode代码库要使用Delphi Uridecode代码库，首先需要将其导入到Delphi项目中。
可以通过以下步骤完成导入：1. 打开Delphi IDE（集成开发环境）。
2. 在项目面板中选择目标项目。
3. 单击主菜单中的"组件"选项。
4. 选择"导入组件"子选项。
5. 在弹出的对话框中，选择Delphi Uridecode代码库文件并点击"确定"按钮。
6. Delphi IDE将自动导入并安装Delphi Uridecode代码库，使其可供项目使用。
第二步：使用Delphi Uridecode代码库解码URI编码一旦成功导入Delphi Uridecode代码库，就可以在项目中使用其解码功能。
以下是使用Delphi Uridecode代码库解码URI编码的示例代码：delphiusesUridecode; 导入Delphi Uridecode代码库function DecodeURI(const AEncodedURI: string): string;beginResult := '';try使用Delphi Uridecode函数解码URI编码Result := Uridecode.TUridecode.decode_string(AEncodedURI); excepton E: Exception doShowMessage('解码URI编码时出现错误：' + E.Message); 在出现异常时显示错误信息end;end;procedure TForm1.Button1Click(Sender: TObject);varEncodedURI, DecodedURI: string;beginEncodedURI :='http3A2F2Fwww.example2Fsearch3Fq3DDelphi20Uridecode20E4B BA3E7A081';DecodedURI := DecodeURI(EncodedURI);ShowMessage('解码前URI：' + EncodedURI + #13#10 +'解码后URI：' + DecodedURI);end;以上示例代码中，我们使用`TUridecode.decode_string`函数对传入的URI编码进行解码，并将解码后的结果作为函数返回值。
Delphi常见错误代码
Delphi常见错误代码及中文解释';' not allowed before 'ELSE' ElSE前不允许有“;”'<clause>' clause not allowed in OLE automation section 在OLE自动区段不允许“<clause>”子句'<name>' is not a type identifier <name>不是类型标识符'<name>' not previously declared as a PROPERTY <name>前面没有说明PROPERTY'GOTO <label>' leads into or out of TRY statement GOTO <label>进入或超出TRY语句的范围<clause1> clause expected, but <clause2> found 要求子句<clause1>，但出现<clause2>16-Bit fixup encountered in object file '<text>' 在对象文件<text>遇到16位修复486/487 instructions not enabled 不能用486/487指令Abstract methods must be virtual or dynamic 抽象方法必须为虚拟的或动态的Array type required 需要数组类型Assignment to FOR-Loop variable '<Name>' 给FOR循环变量<Name>赋值Bad argument type in variable type array constructor 在变量类型数组结构中不正确的参数类型Bad file format '<name>' 错误的文件格式<name>Bad file format: <Filename> 错误的文件格式<Filename> Bad global symbol definition: '<Name>' in object file '<Filename>' 对象文件'<Filename>'中错误的全局符号定义'<Name>'Bad unit format: <Filename> 错误的单元格式<Filename> BREAK or CONTINUE outside of loop BREAK或CONTINUE超出循环Cannot add or subtract relocatable symbols 不能增加或减少可重置的符号Cannot assign to a read-only property 不能指定只读属性Cannot BREAK, CONTINUE or EXIT out of a FINALLY clause 超出FINALLY 子句的范围，不能使用BREAK,CONTINUE或EXIT语句Cannot initialize local variables 不能初始化局部变量Cannot initialize multiple variables 不能初始化多个变量Cannot initialize thread local variables 不能初始化线程局部变量Cannot override a static method 不能覆盖静态方法Cannot read a write-only property 不能读取只写属性Case label outside of range of case expression CASE标号超出了CASE 表达式的范围Circular unit reference to <Unitname> 对单元<Unitname>循环引用Class already has a default property 类已具有默认的属性Class does not have a default property 类没有默认的属性Class or object types only allowed in type section 在类型区段只允许有类或对象类型Class type required 需要类类型Close error on <Filename> 文件<Filename>关闭错误Compile terminated by user 用户中止编译Constant expected 要求常量Constant expression expected 要求常量表达式Constant expression violates subrange bounds 常量表达式超出子界范围Constant object cannot be passed as var parameter 常量对象不能作为变量参数传递Constant or type identifier expected 要求常量或类型标识符Constants cannot be used as open array arguments 常量不能用作打开数组参数Constructing instance of '<name>' containing abstract methods 构造的<name>实体包含抽象的方法Could not compile used unit '<Unitname>' 不能用单元<Unitname>编译Could not create output file <Filename> 不能建立输出文件<Filename>Could not load RLINK32.DLL 不能加载RLINK32.DLLData type too large: exceeds 2 GB 数据类型太大：超过2GB Declaration of <Name> differs from previous declaration <Name>的说明与先前的说明不同Default property must be an array property 默认的属性必须为数组属性Default values must be of ordinal, pointer or small set type 默认的值必须为序数、指针或小集类型Destination cannot be assigned to 目标不能指定Destination is inaccessible 目标不能存取Dispid '<number>' already used by '<name>' DISPID标识号已被<name>使用Dispid clause only allowed in OLE automation section DISPID子句只能在OLE自动区段中使用Division by zero 除数为零Duplicate case label CASE标号重复Duplicate tag value 重复的标志值Dynamic method or message handler not allowed here 这里不允许有动态方法或信息处理程序Dynamic methods and message handlers not allowed in OLE automation section在OLE 自动区段不允许有动态方法或消息处理程序Element 0 inaccessible - use 'Length' or 'SetLength' 元素0不能存取-使用LENGTH或SETLENGTHError in numeric constant 数值常量错误EXCEPT or FINALLY expected 要求EXCEPT或FINALLY EXPORTS allowed only at global scope EXPORTS只允许在全局范围使用Expression has no value 表达式没有值Expression too complicated 表达式太复杂Field definition not allowed in OLE automation section 在OLE自动区段中不允许域定义Field definition not allowed after methods or properties 在方法或属性后不允许域定义Field or method identifier expected 要求域或方法标识符File not found: <Filename> 文件<Filename>没有找到File type not allowed here 这儿不允许文件类型For loop control variable must be simple local variable FOR循环控制变量必须为简单局部变量For loop control variable must have ordinal type FOR循环控制变量必须为序数类型FOR or WHILE loop executes zero times - deleted FOR或WHILE循环执行零次-删除FOR-Loop variable '<name>' cannot be passed as var parameter FOR循环变量<name>不能作为参数传递FOR-Loop variable '<Name>' may be undefined after loop 在循环后的FOR循环变量<NAME>是不确定的Function needs result type 函数需要结果类型Identifier redeclared: '<name>' 标识符<name>重复说明Illegal character in input file: '<char>' ($<hex>) 在输入文件中的非法字符'<char>'Illegal message method index 非法的消息方法指针Illegal reference to symbol '<Name>' in object file '<Filename>' 在对象文件<filename>中对符号<name>的非法引用Illegal type in OLE automation section: '<typename>' 在OLE自动区段中的非法类型<typename>Illegal type in Read/Readln statement 在Read/Readln语句中的非法类型Illegal type in Write/Writeln statement 在Write/Writeln语句中的非法类型Inaccessible value 不可存取的值Incompatible types: '<name>' and '<name>' 不兼容的类型<name>和<name>Incompatible types: <text> 不兼容的类型<text>Inline assembler stack overflow 内联汇编溢出Inline assembler syntax error 内联汇编语法错误Instance variable '<name>' inaccessible here 实体变量<name>在这里不能存取Integer constant or variable name expected 要求整形常量或变量名Integer constant too large 整型常量太大Internal error: <ErrorCode> 内部错误<errorcode>Invalid combination of opcode and operands 操作码与操作对象的无效组合Invalid compiler directive: '<Directive>' 无效的编译指令<DIRECTIVE> Invalid function result type 无效的函数值类型Invalid message parameter list 无效的消息参数列表Invalid register combination 无效的寄存器组合Invalid typecast 无效的TYPECASELabel '<Name>' is not declared in current procedure 在当前的过程中没有说明标号<NAME>Label already defined: '<Labelname>' 标号<LABELNAME>已经定义Label declaration not allowed in interface part 在界面部分不允许标号说明Label declared and referenced, but not set: '<label>' 标号被<label>说明及引用,但不能设置Label expected 要求标号Left side cannot be assigned to 左边不能赋值Line too long (more than 255 characters) 行太长(超出255个字符) Local class or object types not allowed 不允许局部的类或对象类型Local procedure/function '<Name>' assigned to procedure variable 局部过程/函数<NAME>赋给过程变量LOOP/JCXZ distance out of range LOOP/JCXZ距离超出范围Low bound exceeds high bound 下界超过上界Memory reference expected 要求内存引用Method '<name>' hides virtual method of base type '<name>' 方法<NAME>隐藏了基类型为<NAME>的虚拟方法Method '<name>' not found in base class 在基类中没有找到方法<NAME>Method identifier expected 要求方法标识符Missing ENDIF directive 缺少ENDIF指令Missing operator or semicolon 缺少操作符或分号Missing or invalid conditional symbol in '$<symbol>' directive 在$<symbol>指令中缺少或无效的条件符号Missing parameter type 缺少参数类型Necessary library helper function was eliminated by linker 必要的库帮助函数被连接程序删除No definition for abstract method '<name>' allowed 抽象方法<NAME>没有定义Not enough actual parameters 没有足够的实际参数Number of elements differs from declaration 元素数与说明不同Numeric overflow 数值溢出Object or class type required 需要对象或类类型Object type required 需要对象类型Only register calling convention allowed in OLE automation section 在OLE自动区段中只允许寄存器调用约定Operand size mismatch 运算对象大小匹配Operator not applicable to this operand type 运算符不使用于这一运算对象类型Order of fields in record constant differs from declaration 在记录常量中的域次序与说明不同Ordinal type required 需要序数类型Out of memory 内存溢出Overflow in conversion or arithmetic operation 转换或算术操作溢出Overriding automated virtual method '<name>' cannot specify a dispid 覆盖的自动虚拟方法<NAME>不能指定DISPIDPACKED not allowed here 这里不允许PACKED Pointer type required 需要指针类型Procedure cannot have a result type 过程不能有结果类型Procedure DISPOSE needs destructor 过程DISPOSE需要destructorProcedure FAIL only allowed in constructor 过程FAIL只允许在constructor方法中Procedure NEW needs constructor 过程NEW需要constructor 方法PROCEDURE or FUNCTION expected 要求PROCEDURE或FUNCTIONProcedure or function name expected 要求过程或函数名Program or unit '<name>' recursively uses itself 程序或单元递归Property '<name>' does not exist in base class 在基类中<NAME>属性不存在Published property '<name>' cannot be of type <type> Published属性<NAME>不能具有类型<type>Published Real48 property '<name>' must be Single, Double or Extended Published REAL属性<NAME>必须为Single, Double或ExtendedRe-raising an exception only allowed in exception handler 在意外处理中只允许重新引起意外处理Read error on <Filename> 文件<FILENAME>读出错Record, object or class type required 需要记录,对象或类类型Redeclaration of '<name>' hides a member in the base class <NAME>的重新说明隐藏了基类中一个元素Redeclaration of property not allowed in OLE automation section 在OLE自动区段中不允许属性重复说明Return value of function '<Functionname>' might be undefined 函数<Functionname>的返回值可能没有定义Seek error on <Filename> 在<FILENAME>中搜索错误Segment/Offset pairs not supported in Borland 32-bit Pascal 在Borland 32位的PASCAL中不支持Segment/Offset对Sets may have at most 256 elements 集至少有256个元素Size of published set '<name>' is >32 bits published集<NAME>的大小大于32字节Slice standard function only allowed as open array argument Slice标准函数只允许作为打开数组参数Statement expected, but expression of type '<type>' found 要求语句,但出现类型<TYPE>的表达式Statements not allowed in interface part 在界面中不允许的语句String constant too long 字符串常量太长String constant truncated to fit STRING[<number>] 字符串常量截取到适合STRING[<number>]Strings may have at most 255 elements 字符串至少255个元素Structure field identifier expected 要求结构域标识符Syntax error in real number 实数语法错误System unit out of date or corrupted: missing '<name>' 系统单元超出日期或损坏:缺少<NAME>Text after final 'END. 编译器忽略END.后的文本This form of method call only allowed for class methods 该方法的窗体只允许类方法This form of method call only allowed in methods of derived types 该方法的窗体只允许在导出类型的方法中This type cannot be initialized 这一类型不能初始化Thread local variables cannot be ABSOLUTE 线程局部变量不能是ABSOLUTEThread local variables cannot be local to a function or procedure 线程局部变量对函数不能是局部的Too many actual parameters 太多的实际参数Too many conditional symbols 太多的条件符号Type '<name>' has no type info 类型<NAME>没有类型信息Type '<Name>' is not yet completely defined 类型<NAME>至今没有定义Type '<name>' must be a class to have a PUBLISHED section 类型<NAME>必须是在PUBLISHED区段中的类Type '<name>' must be a class to have OLE automation 类型<NAME>必须是具有OLE自动的类Type '<name>' needs finalization - not allowed in file type 类型<NAME>需要初始化-不允许在文件类型中Type '<name>' needs finalization - not allowed in variant record 类型<NAME>需要初始化-不允许在变体记录Type expected 要求TYPEType not allowed in OLE Automation call 在OLE自动调用中不允许的类型Type of expression must be BOOLEAN 表达式的类型必须为BOOLEAN型Type of expression must be INTEGER 表达式的类型必须为INTEGER型TYPEINFO standard function expects a type identifier TYPEINFO标准函数要求类型标识符TYPEOF can only be applied to object types with a VMT TYPEOF只能用于具有VMT的对象类型Types of actual and formal var parameters must be identical 形参与实参必须一致Undeclared identifier: '<name>' 未说明的标识符<NAME> Unexpected end of file in comment started on line <Number> 以行<Number>开始的注释中出现不应有的文件结束Unit <Unit1> was compiled with a different version of <Unit2> 单元<UNIT1>与不同版本的<UNIT2>编译Unit name mismatch: '<Unitname>' 单元名不匹配<UNITNAME> Unknown directive: '<Directive>' 未知的指令<DIRECTIVE> Unnamed arguments must precede named arguments in OLE Automation call 在OLE自动调用中未命名的参数必须在命名的参数前Unsatisfied forward or external declaration: '<Procedurename>' 不满足的向前或外部说明<Procedurename>Unterminated string 未结束的字符串Value assigned to '<Name>' never used 赋给<NAME>的值从未使用过Variable '<name>' inaccessible here due to optimization 由于优化,变量名<NAME>在这里不能存取Variable '<name>' is declared but never used in '<name>' 变量名<NAME>已说明,但不曾使用Variable '<Name>' might not have been initialized 变量名<NAME>可能没有初始化Variable required 需要变量Virtual constructors are not allowed 不允许虚拟的constructors方法Write error on <Filename> 文件<Filename>写错误Wrong or corrupted version of RLINK32.DLL RLINK32.DLL版本错误或不能用*********************************************************************************************** ******************************** 运行错误信息** 运行时出现的错误信息形式为: ** Run-time error nnn at xxxx ** 其中nnn 是运行时的错误编号** xxxx 是运行时的错误地址********************************运行时的错误分为以下三类:* I/O错误:错误编号为100-149编号说明---------------------------------------------------------100 磁盘读错误,若要对超过格式文件尾进行读取时101 磁盘写错误,若磁盘满时,由CloseFile,Write,Writeln或Flush报告102 没有指定文件,若文件变量没有由Assign或AssignFile赋值,由Reset,Rewrite,Append,Rename和Erase报告103 文件没有打开,若文件未打开,由CloseFile,Read,Write,Seek,Eof,FilePos,FileSize,Flush,BlockRead或BlockWrite报告104 输入文件未打开,由Read,Readln,Eof,Eoln,SeekEof或SeekEoln报告有关输入的文本文件未打开105 输出文件未打开,由Write和Writeln报告有关文本文件没有用Console应用程序生成106 无效的数据格式,由Read或Readln报告从文本文件读取的数据格式不正确* 致命错误:错误编号为200-255编号说明---------------------------------------------------------200 被零除201 范围检查错误202 栈上溢203 栈上溢错误204 无效的指针操作205 浮点上溢206 浮点下溢207 无效的浮点操作215 算术上溢错误216 存取非法217 控制-C218 授权指令219 无效的TYPECAST220 无效的变体TYPECAST221 无效的变体操作222 没有变体方法调用DISPATCHER223 不能建立变体数组224 变体不包含数组225 变体数组边界错误226 TLS初始化错误* 操作系统错误编号说明---------------------------------------------------------1899L 不能生成端点映射数据库1752L 不能执行操作1751L 入口点非法1753L 端点映射中没有更多可用的端点5L 存取非法1331L 帐号当前不能用,因此不能登录1793L 用户帐号过期1327L 用户名是有效的,但一些限制不能验明用户57L 网络适配器硬件错误1379L 指定的别名已存在1344L 分配用于更新的内存块不足85L 本地设备名已在使用183L 试图建立已存在的文件1074L 系统当前正以最新最好的配置运行7L 存储控制块被破坏534L 运算结果超出32位174L 文件系统不支持锁定类型的原子变化199L 操作系统不能运行这一程序160L 传递给DosExecPgm的参数串不正确22L 设备不能识别的命令1361L 安全描述符不在要求的格式66L 网络资源类型不正确1200L 指定的设备名无效119L 系统不支持请求的命令10L 环境不正确193L %1不是有效的基于Windows的应用程序11L 企图装载不正确格式的程序1346L 指定的模拟级无效或没有提供要求的模拟级1340L 试图建立继承的ACL或没有继承的ACE 24L 程序指定的命令长度不正确1365L 登录段与要求的操作状态不一致67L 网络名找不到58L 指定的服务器不能执行请求的命令53L 网络路径没有找到161L 指定的路径名无效230L 管道状态无效1206L 网络连接协议被损坏1204L 指定的网络提供者名无效60L 远程适配器不兼容159L 线程ID地址不正确1349L 符号对象类型不当20L 系统不能找到指定的设备2202L 指定的用户名无效1348L 请求的确定信息类是无效的1009L 配置记录数据库被破坏1010L 配置记录密钥无效1102L 遇到磁带头或分区1076L 当前引导已接受为最新的控制设置109L 管道结束111L 文件名太长1111L I/O总线重新设置170L 请求的资源在使用142L 此时系统不能执行JOIN或SUBST120L 输入的API只能在Windows/NT模式下工作1003L 由于一些原因不能完成的功能173L 锁定请求对提供撤消区未解决266L 不能使用1407L 不能找到Windows类1368L 表示要试图通过命名管道的模拟还没有读取82L 不能生成目录或文件1205L 不能打开网络连接协议1351L 没有联系的域控制器或在域内对象被保护,因此不能存取必要信息1310L 委托组不能禁止1347L 试图打开匿名的符号,匿名级的符号不能打开1011L 配置记录密钥不能打开1012L 配置记录密钥不能读取1013L 配置记录密钥不能写1021L 试图在易变的父关键字下建立稳定的子关键字129L 应用程序%1不能在Windows模式下运行1436L 子窗口不能有菜单1059L 指定子循环服务从属1410L 类已存在1411L 类不存在1412L 类仍在打开的窗口中1418L 线程没有打开的剪切板1201L 设备当前没有连接,但要记住连接1421L 没有找到控制ID1121L 由于超时已到,一系列的I/O操作完成23L 数据错误16L 目录不能删除1065L 指定的数据库不存在1425L 传递给ReleaseDC的无效HDC1051L 终止控制已送到其他独立运行服务的服务中1435L 不能破坏其他线程产生的对象55L 指定的网络资源不再有效1202L 试图记住先前记住的设备2404L 设备由激活的进程在使用,不能断开连接1107L 当装载磁带时,找不到磁带的分区信息145L 目录非空144L 目录不是根目录的子目录130L 试图使用文件句柄来打开磁盘操作267L 目录名无效157L 段已丢失,不能锁定107L 由于没有插入交换磁盘,程序终止1393L 磁盘结构损坏,不能在读取112L 磁盘上没有足够的空间1127L 即使重试,存取硬盘也失败1126L 在存取硬盘时,即使重试,存取校准操作也失败1128L 即使磁盘控制器重新设置,存取硬盘也失败1114L DLL初始化例程失败1356L 指定的域已存在1357L 在该版本中试图超出每个服务器域的限制1810L 指定域的名字或安全ID与该域的受托信息不一致108L 磁盘在使用或被其他进程锁定1221L 工作族或域名已被网络上的其他计算机使用52L 网络上存在重名1078L 名字已在作服务器名或服务显示名使用196L 操作系统不能运行这一应用程序994L 对EA的存取非法276L 在安装文件系统上的EA文件被损坏255L EA不一致277L 在安装文件系统的EA文件上的EA表用完275L EA不适合在缓冲区中282L 安装文件系统不支持扩展属性1100L 在操作中出现磁带尾部标志203L 系统不能找到输入的环境选项1129L 遇到磁带的物理尾部1501L 没有打开的日志文件事件,因此事件登录服务没有启动1503L 在读取之间事件日志文件已改变1500L Eventlog登录文件之一破坏1064L 在处理控制请求时出现意外101L 专门信号被其他进程所拥有192L 操作系统不能运行%11208L 出现扩展错误83L INT24失败1063L 服务进程不能连接到服务控制器1392L 文件或目录被损坏,不能在读取80L 文件存在1006L 文件卷已变化,因此打开的文件不再有效2L 系统不能找到指定的文件1101L 磁带存取达到文件标志206L 文件名或后缀太长1125L 软盘控制器返回与登记不一致的结果1122L 在软盘上没有找到ID地址标志1123L 软盘扇区ID域与软盘控制器道地址不匹配1124L 软盘控制器报告出现不能由软驱识别的错误1007L 请求的操作在全屏幕模式不能执行31L 连接到系统上的设备不正常1360L 通配存取类型包含在存取屏蔽中1429L 该异常分支只能为全局设置1318L 指定的组已存在39L 磁盘满38L 到达文件末1428L 没有模块处理,不能设置非局部的异常处理1431L 异常分支没有安装1409L 热键已登记1419L 热键没有登记1441L 所有的DeferWindowsPosHWND必须具有相同的父1324L 在更新口令时,该返回状态表示新口令中包含不允许的值202L 操作系统不能运行%1122L 传递给系统调用的数据区太小1358L 由于灾难性的介质错误或磁盘数据结构破坏引起请求的操作不能完成1383L LSA数据库内部不一致1359L SAM遇到内部数据库不一致的错误,可防止SAM的进一步操作1800L 指定的优先级无效1448L 滚动条范围大于0x7FFF1338L 安全描述符结构无效198L 操作系统不能运行%1180L 系统检测到不正确的段号1799L 指定的分隔符文件无效1352L SAM服务器状态错误,不能完成期望的操作1057L 帐号名无效或不存在1052L 对该服务请求的控制无效1071L 指定的服务数据锁定无效1213L 指定的服务名格式无效1215L 指定的共享名格式不正确1449L SHOWWINDOWS命令无效1337L SID结构无效209L 公布的信号不正确1439L 参数无效189L 操作系统不能运行%1188L 操作系统不能运行%11335L 子权限值无效114L 目标内部文件标识符不正确1444L 线程ID无效1784L 提供的用户缓冲区对请求操作失效118L 写后验证开关参数值不正确1400L 窗口处理无效1329L 用户帐号限制,不能从源工作站登录1117L 由于I/O设备错误,请求不能完成996L 重叠的IO时间不在发信号状态997L 重叠的IO操作在处理中197L 操作系统当前不能配置来运行应用程序1119L 不能打开与其它设备共享IRQ的设备,至少有一使用该IRQ的其他设备已打开147L 没有足够的可用资源来处理这一命令133L 由于驱动器已包含连接,JOIN或SUBST命令不能使用134L 试图在已连接的驱动器上使用JOIN或SUBST命令146L 指定的路径正在用替换149L 试图替代先前已替代的驱动器目录135L 试图在已替代的驱动器上使用JOIN或SUBST命令194L 操作系统不能运行%1138L 系统试图替代已替代的目录140L 系统试图替代已替代的目录1430L 日常异常处理已安装1018L 在有删除标志的登记键上非法操作1020L 试图在已有子键或值的登记键建立符号连接154L 输入的卷标超过11个字符的限制,前11个字符写在磁盘上,其余字符自动删除1322L 请求的操作被禁止或删除最新的其余管理员帐号1434L 该列表框不支持制表符1416L 列表符ID没有找到1390L 试图修改用户口令,但没有提供要求的LM口令1303L 联接局部RPC,要求用户话路密钥167L 试图锁定文件失败的区域33L 由于其他进程已锁定部分文件,该文件不能被进程存取212L 端锁定,因此不能重新分配1502L 事件登录文件已满1326L 由于用户名或验证信息不正确,试图登录无效1380L 请求登录的类型(如网络,服务等)没有被目标系统授权1366L 登录话路ID已在使用1363L 试图启动新的话路管理程序或用已在使用的LSA登录话路1385L 请求登录的类型(如网络,服务等)没有授权1334L 没有更多可分配的LUID164L 在系统中不能生成更多的线程1110L 驱动器中的介质已改变1378L 指定的帐号名不是别名的成员1320L 指定的用户帐号已在指定的组帐号中或由于组中有成员,不能删除1377L 指定的帐号名不是别名的成员1321L 指定的用户帐号不是指定组帐号的成员1374L 由于组是基本组,因此成员不能从该组中删除208L 取决文件名符号*或?输入不正确或指定的全局文件符号更多126L 不能找到指定的模块234L 需要更多的数据1120L 一系列的I/O操作被其他写到串口的操作完成317L 系统不能找到消息号为0x%1的消息131L 试图在超出文件头的位置移动文件指针215L 不能嵌套调用LoadModule1792L 试图登录,但网络登录服务没有启动88L 网络写失败64L 指定的网络名不再有效65L 网络存取非法54L 网络在忙6118L 该工作组的服务器列表当前不可用232L 管道在进程中关闭1104L 在磁带存取中,到达数据标志尾部1309L 试图由当前不在模拟客户的线程上操作模拟符号1391L ACL不包含可继承的组件1019L 系统不能分配记录文件要求的空间1807L 使用的帐号在内域受托帐号中,使用正常的帐号或远程用户帐号来存取该服务器1809L 使用的帐号在服务器受托帐号中,使用正常的帐号或远程用户帐号来存取该服务器1311L 当前没有可用的登录服务器来服务登录请求1808L 使用的帐号在工作站受托帐号中,使用正常的帐号或远程用户帐号来存取该服务器1112L 由于驱动器中没有介质,磁带查询失败18L 没有更多的文件259L 没有更多的可用数据113L 没有更多的可用内部文件标识符1203L 没有网络提供者接收给定的路径2138L 没有网络或网络未启动89L 此时系统不能启动另一进程1302L 对该帐号没有指定限额1447L 窗口不能有滚动条1350L 试图对没有安全性的对象操作1116L 由于没有关机在处理中,试图放弃关机失败205L 在命令子树中没有进程有信号句柄62L 在服务器上存储等待打印文件的空间不足1376L 指定的别名不存在1355L 指定的域不存在1319L 指定的组不存在1312L 指定的登录话路不存在,可能已终止1387L 不存在的新成员不能添加到别名中1364L 指定的验证包未知1313L 指定的特权不存在1317L 指定的用户不存在1437L 窗口不能具有系统菜单1008L 试图引用不存在的符号1786L 工作站没有受托秘密1787L 域控制器对该工作站没有帐号1113L 对目标多字节代码页存在的Unicode字符没有映射1394L 对指定的登录话路没有用户话路密钥125L 磁盘没有卷标1417L 没有找到通配符998L 对内存位置的无效存取1445L 用非MDI子窗口调用DefMDIChildProc1332L 映射的信息没有转变1300L 不是所有权限赋给调用者1442L 窗口不是子窗口2250L 网络连接不存在1207L 不能枚举非容器26L 指定的磁盘不能存取8L 没有足够的空间处理该命令1130L 没有足够的空间处理该命令服务器136L 系统试图删除没有连接的驱动器158L 段已锁定1362L 请求的动作只受登录进程的限制,调用进程没有登记为登录进程288L 试图释放不被调用者拥有的互斥法21L 驱动器没有准备好1017L 系统试图装载或恢复文件到登记中,但指定的文件格式不正确17L 系统不能将文件移动到不同的驱动器上137L 系统试图删除没有替代的驱动器50L 不支持网络请求1022L 改变请求正在完成,信息没有返回在调用者的缓冲区.调用者现在需要模拟文件,以找到所做的修改1386L 没有提供必要的NT交叉保密口令而试图以安全帐号管理员改变用户口令1304L WindowsNT的口令太复杂,无法将其转换为Windows的网络口令(该口令返回NULL字符串)110L 系统不能打开指定的设备或文件2401L 有打开文件或请求在连接期995L 由于线程退出或应用程序请求,I/O操作放弃28L 打印机没有纸84L 处理该请求没有足够的空间14L 处理该操作没有足够的空间1105L 磁带没有分区1330L 用户帐号的口令已到期1325L 在更新口令,该状态表示违反一些口令更新规则148L 指定的路径现在不能用3L 系统不能找到指定的路径231L 所有的管道实体在忙535L 在管道的另一端有进程536L 等待进程打开管道的另一端233L 在管道的另一端没有进程1446L 下拉式菜单已激活1131L 已检测到潜在的僵局条件63L 要打印的等待文件被删除1802L 打印机已存在1795L 指定的打印驱动程序已安装61L 打印队列已满。
Delphi常用代码（个人自用整理2）
Delphi常⽤代码（个⼈⾃⽤整理2）3.Delphi 实现⽂件加密源码unit main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI,inifiles,registry,Des ,FileCtrl, jpeg, ExtCtrls;typeTBruce = class(TForm)dlgOpen1: TOpenDialog;Image1: TImage;Button2: TButton;Edit1: TEdit;Label1: TLabel;Button1: TButton;Label2: TLabel;Edit2: TEdit;Button3: TButton;Label3: TLabel;Edit3: TEdit;Button5: TButton;procedure FormCreate(Sender: TObject);procedure Button5Click(Sender: TObject);procedure JiaMI(var FilePath,MiMa:string);procedure JieMi(var DianFile:string);procedure ZhuCeCaiDan;procedure DelZhuCe;procedure Button1Click(Sender: TObject);procedure Edit2Exit(Sender: TObject);procedure FormShow(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varBruce: TBruce;FilePahtName :string;sRoot:WideString;sCaption:string;implementationuses Unit2;{$R *.dfm}DianFile,IniPath:string;inifile: TInifile;beginDianFile:=FilePath+'..\';iniPath:='dat.ini';inifile:=TIniFile.Create(IniPath);inifile.WriteString('111','key',DES.EncryStrHex(MiMa,'FEIGEW')); inifile.Free;renamefile(FilePath,DianFile);end;procedure TBruce.FormCreate(Sender: TObject);vari: Integer;beginZhuCeCaiDan;for i := 1 to ParamCount dobeginif LowerCase(ParamStr(i)) <> '' then beginFilePahtName:= ParamStr(i);end;end;end;procedure TBruce.JieMi(var DianFile:string);varFileName,FileJD:string;i:Integer;beginFileName:=DianFile+'.\';I:=Length(FileName);FileJD:=Copy(FileName,1,i-3);renamefile(FileName,FileJD);end;procedure TBruce.ZhuCeCaiDan;vara:TRegistry;begina:=TRegistry.create;a.rootkey:=HKEY_CLASSES_ROOT;if a.openkey('Folder\Shell\cutbig',true) thena.closekey;end;if a.openkey('Folder\Shell\cutbig\command',true) thenbegin//command⼦键的内容是点击右键后选择相应项后要运⾏的程序；//%1是在单击右键时选中的⽂件名a.writestring('','"'+Application.exeName+'" "%1"');a.closekey;end;a.free;end;procedure TBruce.DelZhuCe;vara:TRegistry;begina:=TRegistry.create;a.rootkey:=HKEY_CLASSES_ROOT;//⽤deletekey删除⼀个主键，其所包含的⼦键也被删除，如果已⽆此主键，运⾏删除操作不会带来别的危害a.deletekey('Folder\Shell\cutbig');a.free;Application.MessageBox('成功删除系统右键菜单！', '成功', MB_OK +MB_ICONINFORMATION);end;procedure TBruce.Button5Click(Sender: TObject);beginapplication.Terminate;end;procedure TBruce.Button1Click(Sender: TObject);varpassword:string;beginif FilePahtName='' then beginApplication.MessageBox('没有可加密的⽂件夹，请从⽂件夹上右键启动加密程序！','系统', MB_OK + MB_ICONWARNING);//Application.Terminate;end;if (Edit1.Text='') or (Edit2.text='') then beginApplication.MessageBox('密码不能为空，请输⼊你的密码！', '系统', MB_OK +MB_ICONWARNING);Exit;end;if Edit2.Text=Edit1.Text then beginpassword:=Edit2.Text;JiaMI(FilePahtName,password);Application.MessageBox('⽂件夹添加密码成功，请牢记您的密码！', '系统', MB_OK+ MB_ICONINFORMATION);//Application.Terminate;end else beginend;end;procedure TBruce.Edit2Exit(Sender: TObject);beginif Edit2.Text<>Edit1.Text then beginApplication.MessageBox('两次输⼊的密码不⼀致，请重新输⼊！', '系统', MB_OK + MB_ICONWARNING);Edit2.SetFocus;end;end;procedure TBruce.FormShow(Sender: TObject);beginEdit1.SetFocus;end;procedure TBruce.Button2Click(Sender: TObject);begin{ FilePahtName:='';if not dlgOpen1.Execute then exit;FilePahtName:=dlgOpen1.FileName;ShowMessage(FilePahtName);}sCaption := '⽂件夹'; //弹出框标题名(⾮弹出框窗体名)sRoot := ''; //初始⽂件夹(如'C:\','D:\DownLoad'等, 不存在则从桌⾯)beginif SelectDirectory(sCaption, sRoot, FilePahtName) then//已返回所选⽂件夹路径给FilePahtName,⾃⾏处理end;ShowMessage(FilePahtName);end;procedure TBruce.Button3Click(Sender: TObject);varlen:Integer;inifile: TInifile;IniPath,password,sstemp:string;beginBruce.JieMi(FilePahtName);len:=Length(FilePahtName);sstemp:=Copy(FilePahtName,1,len-1);iniPath:='dat.ini';inifile:=TIniFile.Create(IniPath);password:=inifile.ReadString('111','key','');password:=des.DecryStrhex(password,'FEIGEW');inifile.Free;Bruce.JiaMI(sstemp,password);if Edit3.Text=password then beginBruce.JieMi(FilePahtName);DeleteFile(IniPath) ;Application.MessageBox('您输⼊的密码错误，请重新输⼊密码！', '系统', MB_OK +MB_ICONWARNING);Edit3.SetFocus;end;end;end.⼀、“软件限时注册”控件（TShareRegist）功能说明：简介：⼀、1、只要将该控件加⼊主窗体，使Action属性设为true，再设置其它属性，你的软件就有限时注册的功能了，只要你牢记三个密钥，并加上给你的算号软件（RegObject_Admin.exe）你就可以⽆敌天下了。
delphi合并pdf代码
delphi合并pdf代码在 Delphi 中，你可以使用第三方库如 iTextSharp 来合并PDF 文件。
以下是一个简单的示例代码：uses..., iTextSharp.text.pdf;varpdfDoc1, pdfDoc2, pdfOutput: TPDFDocument;begin// 创建两个 TPDFDocument 对象pdfDoc1 := TPDFDocument.Create(nil);pdfDoc2 := TPDFDocument.Create(nil);try// 加载 PDF 文件pdfDoc1.LoadFromFile('path_to_pdf1');pdfDoc2.LoadFromFile('path_to_pdf2');// 创建一个新的 TPDFDocument 对象作为输出pdfOutput := TPDFDocument.Create(nil);try// 将两个 PDF 文件合并到输出 PDF 文件中pdfOutput.CopyPages(pdfDoc1, 1, pdfDoc1.PageCount);pdfOutput.CopyPages(pdfDoc2, 1,pdfDoc2.PageCount);// 保存合并后的 PDF 文件pdfOutput.SaveToFile('path_to_output_file');finally// 释放 TPDFDocument 对象pdfOutput.Free;end;finally// 释放 TPDFDocument 对象pdfDoc1.Free;pdfDoc2.Free;end;end;这段代码将加载两个 PDF 文件，并将它们合并到一个新的 PDF 文件中。
你需要替换path_to_pdf1、path_to_pdf2 和path_to_output_file 为你的实际文件路径。
常用代码(Delphi 自我复制自我删除)
Delphi 自我复制源码这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码:procedure TForm1.FormCreate(Sender: TObject);var myname: string;beginmyname := ExtractFilename(Application.Exename); //获得文件名if application.Exename <> GetWindir + myname then //如果文件不是在Windows\System\那么..begincopyfile(pchar(application.Exename), pchar(GetWindir + myname), False);{将自己拷贝到Windows\System\下}Winexec(pchar(GetWindir + myname), sw_hide);//运行Windows\System\下的新文件application.Terminate;//退出end;end;其中GetWinDir是自定义函数,起功能是找出Windows\System\的路径.function GetWinDir: String;varBuf: array[0..MAX_PATH] of char;beginGetSystemDirectory(Buf, MAX_PATH);Result := Buf;if Result[Length(Result)]<>'\' then Result := Result + '\';end;Delphi 程序自删除.运行Delphi，新建一个工程，添加一个Button到窗体上，全部代码如下：unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure DeleteMe; //自定义程序自杀过程procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);beginDeleteMe;end;procedure TForm1.DeleteMe; //程序自杀//-----------------------------------------------------------function GetShortName(sLongName: string): string; //转换长文件名varsShortName: string;nShortNameLen: integer;beginSetLength(sShortName, MAX_PATH);nShortNameLen := GetShortPathName(PChar(sLongName),PChar(sShortName), MAX_PATH - 1);if (0 = nShortNameLen) thenbegin// handle errors...end;SetLength(sShortName, nShortNameLen);Result := sShortName;end;//-------------------------------------------------varBatchFile: TextFile;BatchFileName: string;ProcessInfo: TProcessInformation;StartUpInfo: TStartupInfo;beginBatchFileName := ExtractFilePath(ParamStr(0)) + '$$Delme$$.bat'; AssignFile(BatchFile, BatchFileName);Rewrite(BatchFile);Writeln(BatchFile, ':try');Writeln(BatchFile, 'del "' + GetShortName(ParamStr(0)) + '"');Writeln(BatchFile, 'if exist "' + GetShortName(ParamStr(0)) + '"' + ' goto try');Writeln(BatchFile, 'del %0');Writeln(BatchFile, 'cls');Writeln(BatchFile, 'exit');CloseFile(BatchFile);FillChar(StartUpInfo, SizeOf(StartUpInfo), $00); StartUpInfo.dwFlags := STARTF_USESHOWWINDOW; StartUpInfo.wShowWindow := SW_Hide;if CreateProcess(nil, PChar(BatchFileName), nil, nil, False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo) thenbeginCloseHandle(ProcessInfo.hThread);CloseHandle(ProcessInfo.hProcess);end;Application.Terminate;end;end.。
delphi fft 程序代码
标题：深度解析Delphi中的FFT程序代码在Delphi中，FFT（快速傅里叶变换）算法是一种常用的数学计算方法，用于处理信号和图像处理、数据压缩、声音分析等领域。
本文将深度解析Delphi中的FFT程序代码，帮助读者全面理解并掌握这一重要的算法。
一、FFT简介快速傅里叶变换（FFT）是一种离散傅里叶变换（DFT）的快速算法，能够在计算机上高效地计算离散信号的频谱。
FFT算法在数字信号处理中得到广泛应用，是一种高效的频域分析方法。
在Delphi中，我们可以利用现成的FFT库或者自行编写FFT算法来实现信号的频域分析。
接下来，我们将对Delphi中常用的FFT程序代码进行深入讨论。
二、Delphi中的FFT程序代码在Delphi中，可以使用现成的FFT库来实现快速傅里叶变换，也可以自行编写FFT算法。
下面以调用现成的FFT库为例进行讨论。
1. 引入FFT库要在Delphi中进行FFT变换，首先需要引入FFT库。
可以在Delphi 的组件库中找到对应的FFT组件，或者下载第三方的FFT库，并在项目中引入相关的单元或者库文件。
2. 调用FFT函数一般来说，FFT库会提供FFT函数，我们可以通过调用这些函数来实现快速傅里叶变换。
在Delphi中，可以通过简单的函数调用来完成FFT变换，实现信号的频域分析。
以下是一个简单的示例代码：```delphivarSignal: TArray<Double>;FreqDomain: TArray<Complex>;begin// 初始化信号// ...// 进行FFT变换FFT(Signal, FreqDomain);// 处理频域数据// ...end;```以上代码演示了如何利用FFT库进行信号的频域分析，通过调用FFT 函数实现快速傅里叶变换，得到频域数据。
接下来我们将对FFT算法进行深入探讨。
三、FFT算法原理FFT算法是一种复杂的数学计算方法，其原理涉及到复数运算、递归计算等多个方面。
delphi11.3中linuxpaserver源代码 -回复
delphi11.3中linuxpaserver源代码-回复Delphi 11.3 LinuxPaserver源代码解析Delphi 11.3是一款非常流行的集成开发环境（IDE），主要用于在Windows操作系统上使用Object Pascal编程语言开发应用程序。
然而，对于那些希望将Delphi代码扩展到其他平台上的开发人员来说，这样的选择可能有限。
好在，Delphi 11.3引入了LinuxPaserver源代码，使开发人员能够在Linux操作系统上开发和调试代码。
LinuxPaserver作为一个独立的组件，它充当了Windows操作系统和Linux操作系统之间的桥梁，使得Delphi开发者能够使用Delphi IDE在Windows上构建应用程序，并在Linux上运行和调试。
这为Delphi开发者提供了在不同操作系统上的更多选择，使其能够将代码移植到多个平台。
现在，让我们一步一步地解析Delphi 11.3中LinuxPaserver的源代码。
第一步：了解PaserverPaserver是Delphi 11.3中运行在Linux操作系统上的后台服务。
它允许Delphi IDE与Linux主机之间进行通信，并且可以实时调试和追踪代码。
Paserver支持通过TCP/IP协议进行通信，并提供了一组命令来执行各种操作，如启动调试会话、加载和保存文件等。
第二步：建立连接在Delphi IDE中，要在Linux操作系统上进行开发，首先需要与Linux 主机建立连接。
这可以通过打开“Tools”菜单，选择“Deploy Linux Paserver”选项来实现。
在弹出的对话框中，输入Linux主机的IP地址和登录凭据，然后点击“Connect”按钮。
第三步：配置和部署应用程序连接成功后，Delphi IDE会将应用程序的文件和相关资源部署到Linux主机上。
在部署过程中，Delphi IDE将自动调用Paserver来执行相关操作，如创建目录、复制文件等。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验7：BeginIf RadoButton1.Checked=true thenBeginWith Open Dialog1 doBeginFilter:=’文本文件’(*.txt)*.txt’ ;DefaultExt:=’txt’;Filename:=”;Options:=[ofHideReadOnly,ifFilemustexist,ofpathmustexist];If execute thenIf ofextensiondifferent in options thenMessigedlg(不存在扩展名为.txt的文件’,mterror,[mbok],0) ElseMemol1.Lines.loadfromfile(filename);End;EndIf radiobutton2.cheaked=true thenBeginWith optiondialog1 doBeginFilter:=’任何类型文件（*.*）|*.*‘；Filename:=”;Options:=[];If execute thenMemo1.lines.loadfromfile(filename);End;End;End;Procedure tform1.button2click(sender:tobject);BeginIf radiobutton1.checked=true thenBeginWith savedialog1 doBeginFilter:=’文本文件(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;Options:=[ofhidereadonly,ofpathmustexist];If execute thenIf ofextensiondifferent in options thenMessagedlg(‘不是扩展名为.txt的文件’,mterror,[mbok],0) ElseMemo1.lines.savetofile(filename);End;If radiobutton2.checked=true thenBeginWith savedialog1 doBeginFile:=’任何类型文件(*.*)|*.*’;Filename:=”;Options:=[ofpathmustexist];If execute thenMemo1.lines.savetofile(filename);End;End;End;Procedure tform1.button3click(sender:tobject); BeginWith fondialog1 doBeginOptions:=[fdeffects,fdtruetypeonly,fdforcefontexist]; If execute thenMemo1.font:=font;End;Procedure tform1.button4click(sender:tobject);BeginClose;End;实验8Procedure twinform.button1.checked=true thenBeginIf radiobutton1.checked=true thenBeginWith openfiledialog1 doBeginFilter:=’文本文件(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;Restoredirectory:=true;If showdialog=system.windos.forms.dialogresult.ok thenRich textbox1.loadfile(filename,richtextboxstreamtype.plaintext); End;End;If radiobutton2.checked=true thenWith optionfiledialog1 doBeginFilename:=’任何类型文件（*.*）|*.*‘；Filename:=”;Restoredictory:=true;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.loadfile(filename,richtextboxstreamtype.plaintext);End;End;End;Proceduretwinform.button2_click(sender:system.object;e:system.eventargs);BeginWith savefiledialog1.doBeginFilter:=’文本文件’(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.savefile(filename,richtextboxstreamtype.plaintext);End;End;If radiobutton2.checked=true thenBeginWith savefiledialog1 doBeginFilter:=’任何类型文件’(*.*)|*.*’;Filename:=”;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.savefile(filename,richtextboxstreamtype.plaintext);End;End;End;Proceduretwinform.button3_chick(sender:system.object;e:system.eventargs);BeginWith fontdialog1 do beginIf showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.font:=font;End;End;Proceduretwinform.button4_click(sender:system.object;e:system.eventargs);BeginClose;End;实验9Procedure tform1.new1click(sender:tobject);BeginForm1.caption:=’文档1’;Txtname1:= ’文档1’;Form1.richedit1.lines.clear;End;Procedure tform1.open1click(sender:tobject);BeginIf form1.opendialog1.execute thenBeginForm1.richedit1.lines.loadfromfile(form1Opendialog1.filename);Form1.caption:=form1.optiondialog1.filename;End;End;Procedure tform1.save1click(sender:tobject); BeginIf richedit1.modified thenIf form1.caption<>’文档1’thenForm1.richedit1.lines.savetofile(txtname) Else if form1.savedialog1.execute then BeginTxtname:=form1.savedialog1.filename; Form1.richedit1.lines.savetofile(txtname); End;End;Procedure tform1.exit1click(sender:tobject); BeginClose;End;Procedure tform1.printclick(seder:tobject); BeginForm1.printdialog1.execute;End;Procedure tform1.cut1click(sender:tobject); BeginForm1.richedit1.undo;Procedure tform1.cut1click(sender:tobject);BeginForm1.richedit1.cuttoclpboard;End;Procedure tform1.copyclick(sender:tobject);BeginForm1.richedit1.copytoclipboard;End;Proceduretform1.richedit1.paste1click(sender:tobject); BeginForm1.richedit1.pastefromclipboard;End;Procedure tform1.replacedialog1.extcute;End;Procedure tform1.toolbutton1click(sender:tobject); BeginForm1.caption:=’文档1’;Txtname:= ’文档1’;Form1.richedit1.lines.clear;End;Procedure tform1.toolbutton2click(sender:object);If form1.opendialog1.execute thenBeginIf form1.opendialog1.execute thenBeginForm1.richedit1.lines.loadfromfile(form1.opendialog1.filename); Form1.caption:=form1.opendialog1.filename;End;End;Procedure tform1.toolbutton1click(sender:tobject);BeginIf richedit1.modified thenIf form1.caption<>’文档1’thenForm1.richedit1.lines.savetofile(txtname);Else if form1.savedialog1.execute thenBeginTxtname:=form1.savedialog1.filename;Form1.richedit1.lines.savetofile(txtname);End;End;Procedure tform1.toolbutton4click(sender:tobject);BeginForm1.printdialog1.execute;End;Procedure tform1.toolbutton5click(sender:tobject); BeginForm1.richedit1.cuttoclipboard;End;Procedure tform1.toolbutton6click(sender:tobject); BeginForm1.richedit1.copytoclipboard;End;Procedure tform1.toolbutton7click(sender:tobject); BeginForm1.richedit1.paste1fromclipboard;End;Procedure tform1.toolbutton8click(sender:tobject); BeginForm1.richedit1.font.style:=[fsbold];End;Procedure tform1.toolbutton9click(sender:tobject); BeginForm1.richedit1.font.style:=[fsunderline];End;Procedure tform1.toolbutton10click(sender:tobject);BeginForm1.richedit1.font.style:=[fsitalic];End;Procedure tform1.formcreat(sender:tobject);BeginForm1.caption:=’文档1’;txtname:=’文档1’;form1.statusbar1.panels[0].text:=txtname;form1.statusbar1.panels[1].text:=timetostr;form1.statusbar1.panels[2].text:=datetostr;end;实验十Proceduretform.menultem2_click(sender:system.object;e:system.eventargs);BeginText:=’文档1’;Txtname:=’文档1’;Richtextbox1.clear;End;Proceduretform.menultem3_click(sender:system.object;e:system.eventargs);BeginIf openfiledialog1.showdialog=system.windows.forms.dialogrsult.ok thenBeginRichtextbox1.loadfile(openfiledialog1.filename,richtextboxstreamty pe.plaintext);Text:=openfiledialog1.filename;End;End;Proceduretform.menultem4_click(sender:system.object;e:system.eventargs);BeginIf richtextbox1.modidied thenIf text<>’文档1’thenRichtextbox1.savefile(txtname);Else if savefiledialog1.showdialog=system.wimdows.forms.dialogresutl.ok then BeginTxtname:=savefiledialog1.filename;Richtextbox1.savefile(txtname);End;End;Proceduretform.menultem6_click(sender:system.object;e:system.eventargs);BeginClose;End;Proceduretform.menultem8_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.undo;End;Proceduretform.menultem9_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.cut;End;Proceduretform.menultem10_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.copy;End;Proceduretform.menultem11_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.paste;End;Proceduretwinform.twform_load(sender:system.object;e:system.event);BeginText:=’文档1’;txtname:=’文档1’;statusbar1.panels[0].text:=txtname;statusbar1.panels[1].text:=timetostr(time);statusbar1.panels[0].text:=datetostr(date);end;实验十一Procedure tformmainMminewexecute(sender:tobject);BeginControlbar1.visible:=false;Statusbar1.visible:=tfrmeditor.create(self);Procedure tformmaintbopenclick (sender:tobject);beginopendialog1.execute;if opendialog1.filename<>”thembegincontrobar1.visible:=false;statusbar1.visible:=false;with tformeditor.create(self)doopenfile(opendialog1.filename);end;end;Procedure tformmainmmihelpextcute(sender:tobject);consthelp_tab=15;contents_active=-3;beginapplication.helpcommand(help_tab,contents_active); end;application.helpcommand(help_tab,contents_active); end;procedure tfmmain.mmiaboutexecute(sender:tobject);beginwith taboutbox.create(self)dotryshowmodal;finallyfree;end;end;procedure tfrmmain.formtreate(sender.tobjec);beginapplication.onhint:=showhint;application.helpfile:=exetracefilepath(application.exename)+textedi tor.hlp’;end;。