有的时候，我们需要查看一个动态链接库的输出函数列表，有很多软件可以满足此要求，比如说 exeScope。不过，去下载一个软件总归是很麻烦，Delphi 本身就自带一个类似的工具，那就是 tdump.exe，Delphi 的所有版本都有，是一个命令行程序，在 Delphi 安装目录的 Bin 目录下。用法：tdump.exe D:\example.dll以上命令将在控制台输出该 DLL 导出的函数列表；也可以将控制台的输出信息保存到一个文件，使用以下命令格式：tdump.exe D:\Example.dl
MessageBox对话框 输入控件的 ImeName属性把输入法去掉就默认为英文输入了MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。1、函数原型及参数 function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Integer; hWnd
最近的项目用到一个视频模块，要求很简单，就是用本机的摄像头、摄像机或照相机实时拍照获取照片，用 VFW 很容易实现了，不过 avicap 中的函数 capGetDriverDescription 在获取驱动名称的时候，只能获取基本接口驱动的名称 Microsoft WDM Image Capture (Win32)，无法获取真实设备的名称，而且没有其它相关函数来实现此功能。视频相关的开发现在首选 DirectShow，用 Delphi + DirectShow 很容易就实现了：unit DirectSh
procedure TForm1.Button1Click(Sender: TObject);vari: integer;beginfor i:= 1 to 6 dobeginTLabel(FindComponent('Label' + IntToStr(i))).Caption := '我是'+inttostr(i)+'号';//TEdit(FindComponent('Edit' + IntToStr(i))).Caption := &
procedure TForm1.Button3Click(Sender: TObject);var I, L: Integer;begin Memo1.WordWrap:= False; Memo1.Lines.LoadFromFile('Windows.pas'); I:= Pos('finalization', Memo1.Text); if I > 0 then begin L := SendMessage(Memo1.Handle, EM_
Excel的sheet1表中有N个列，第一列的数据是字段名，分别是学号 姓名 性别 年龄……，表中数据如下：学号 姓名 性别 年龄 ……001 张三 男 20 ……002 李四 男 19 ……003 王五 女 18 ……我想将所有字段名（学号 姓名 性别 年龄……）读入到ComboBox的列表中，如何实现？ComboBox下拉列表数据如下： 学号 姓名 性别 年龄 ……你的意思是第一行的数据是字段名吧？就是
Delphi中一行一行读取txt文件内容有两个高效的方法。 1、使用Readln（）方法。 2、使用TStringList。以读取D:\delphi_work\shijian.txt文件为例，具体代码如下： 1、procedure TForm1.Button2Click(Sender: TObject);var txtFile:TextFile; s:String;begin AssignFile(txtFile,'D:\delphi_work\shijian.txt'); Re
var i: Integer; s: string; begin for I := 0 to mmo1.Lines.Count - 1 do begin s := mmo1.Lines[i]; mmo1.Lines.Delete(i); while mmo1.Lines.IndexOf(s) > -1 do mmo1.Lines.Delete(mmo1.Lines.IndexOf(s)); mmo1.Lines.Insert(i, s); end; end;结果：