掌握DELPHI开发：技巧与方法汇总

### DELPHI一系列开发技巧 #### 1. 执行程序外文件 在Delphi中，执行程序外的文件可以使用多种方法，以下是两种常用方法的详细说明： - **使用WINEXEC函数** WINEXEC函数是Windows API中的一个函数，可以在Delphi程序中调用。它可以启动一个可执行文件或打开文件、目录等。使用WINEXEC时，一般需要指定执行命令和窗口显示方式。示例代码如下： ```delphi winexec('command.com /c copy *.* c:\',SW_Normal); // 复制当前目录下所有文件到C盘根目录 winexec('start abc.txt'); // 打开当前目录下名为abc.txt的文件 ``` 在这段代码中，`/c` 参数表示执行完命令后关闭命令行窗口；`SW_Normal` 是窗口显示方式，还可以选择 `SW_HIDE`（隐藏窗口）等。 - **使用ShellExecute或ShellExecuteEx函数** `ShellExecute` 函数同样属于Windows API，用于启动文件关联程序，执行特定文件或打开文件。它比WINEXEC功能更强大，使用起来也更为灵活。示例代码如下： ```delphi function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle; begin ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0); ExecuteFile('http://tingweb.yeah.net','','',0); ExecuteFile('mailto:[email protected]','','',0); end; ``` 在这个函数中，`filename` 是要执行的文件名，`params` 是命令行参数，`defaultDir` 是默认目录，`showCmd` 是窗口显示参数。例如，可以启动一个文本文件的关联程序，或打开一个网页链接，甚至是发送一个邮件。 #### 2. 取得系统运行的进程名 在Delphi中，若要获取系统当前运行的进程信息，可以使用Windows API函数`GetWindow`和`GetWindowText`。示例代码如下： ```delphi var hCurrentWindow:HWnd; szText:array[0..254] of char; begin hCurrentWindow:=Getwindow(handle,GW_HWndFrist); while hCurrentWindow <> 0 do begin if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext)); hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext); end; end; ``` 此代码片段通过遍历所有窗口并读取窗口标题来获取当前运行的进程名，并将其添加到列表框中显示。需要注意的是，此方法得到的进程名可能是可执行文件名或窗口标题，并不一定是进程的实际名称。 #### 3. 关于汇编的嵌入 Delphi提供了内嵌汇编语言的机制，使得开发者可以在Delphi代码中直接编写汇编语句。示例代码如下： ```delphi Asm // 在这里写汇编代码 End; ``` 在内嵌的汇编代码中，可以自由地修改EAX、ECX、EDX这三个寄存器的值。但是，ESI、EDI、ESP、EBP、EBX这些寄存器在Delphi中被使用，因此在内嵌汇编代码中不能修改它们。 #### 4. 关于类型转换函数 Delphi提供了很多内置的函数用于数据类型的转换，这在处理不同类型数据时非常有用。主要类型转换函数包括： - **FloatToStr**：将浮点数转换成字符串。 - **FloatToStrF**：将浮点数转换成带格式的字符串。 - **IntToHex**：将整数转换为十六进制表示的字符串。 - **TimeToStr**：将时间格式转换成字符串。 - **DateToStr**：将日期格式转换成字符串。 - **DateTimeToStr**：将日期时间格式转换成字符串。 - **FmtStr**：根据给定的格式化字符串输出结果。 示例代码如下： ```delphi var MyDate: TDateTime; begin MyDate := Now; Memo1.Lines.Add(FloatToStr(MyDate)); Memo1.Lines.Add(FloatToStrF(MyDate, ffFixed, 15, 2)); Memo1.Lines.Add(IntToHex(123456)); Memo1.Lines.Add(TimeToStr(Now)); Memo1.Lines.Add(DateToStr(Now)); Memo1.Lines.Add(DateTimeToStr(Now)); Memo1.Lines.Add(FmtStr('格式化字符串：%s', ['示例文本'])); end; ``` 在这里，`Memo1` 是一个文本框控件，用于显示转换后的字符串。这些函数通常在需要将数据转换为易于用户阅读的格式时使用。 #### 总结 以上是Delphi中几种常见的开发技巧，包括执行外部文件、获取系统进程信息、内嵌汇编语言以及类型转换等。掌握这些技巧能够极大提升Delphi开发的效率和灵活性。对于Delphi开发者而言，这些基础知识的熟练运用将有助于解决实际开发中遇到的各种问题。