- 博客(4)
- 资源 (17)
- 收藏
- 关注
原创 Delphi我的文档路径
uses Registry;function GetMyDocument: string;var reg: TRegistry;begin Result := ; reg := TRegistry.Create; try reg.RootKey := HKEY_CURRENT_USER; if reg.OpenKey(Software/Microsoft/Wind
2007-10-22 12:11:00 980
原创 Delphi浏览文件夹
Delphi如何实现浏览文件夹,并得出所选择的文件夹名:SelectDirectory函数(FileCtrl单元)1、function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;2、function SelectDirect
2007-10-19 12:22:00 1782
原创 Memo/RichEdit行列定位
网上求Memo/RichEdit中的行、列的文章比较多,但是根据行列号定位光标的比较下:求行列号var i, j, iRow, iCol: longint;begin i := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); j := SendMessage(Mem
2007-10-18 17:34:00 837
原创 双击文件名打开应用程序
当开发诸如记事本 、MP3类的软件时,用应用程序打开方式没有问题,但是想点击文件名打开应用程序,却不见文件内容?原因在于没有处理ParamStr参数。ParamCount参数为选定打开文件的个数,当点击应用程序进入时,ParamCount为0;ParamStr(i),0ParamStr(0)为应用程序绝对路径名,等同于Application.ExeName。ParamStr(i
2007-10-08 14:53:00 905 1
delphi jpeg.pas
2012-05-04
Pascal精要-delphi的基础
2009-02-20
井拾贰图片格式转换软件V1.1
2007-11-23
井拾贰自动关机软件V1.1
2007-11-23
井拾贰图片格式转换软件V1.0
2007-10-30
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人