您的位置：首页 > 理论基础 > 计算机网络

Delphi 文件、目录等常用操作函数 - delphi - gliethttp

2009-08-18 09:43 615 查看

[ http://blog.chinaunix.net/u1/38994/showart_303315.html ]

Delphi 文件、目录等常用操作函数 - delphi - gliethttp< /BR>
...
Delphi 文件、目录等常用操作函数

1．获取exe程序的相对路径（不含"/"）

ShowMessage(ExtractFileDir(Application.Exename));//如: D:/gliethttp

2．获取exe程序的相对路径（含"/"）

ShowMessage(ExtractFilePath(Application.Exename));//如: D:/gliethttp/

3．打开指定文件：首先，uses ShellAPI；然后，调用如下函数

ShellExecute(handle,'open','c:/gliethttp.c',nil,nil,sw_shownormal);

或 ShellExecute(handle,'open','c:/gliethttp.exe',nil,nil,sw_shownormal);

4．Memo常用消息

滚到底：SendMessage(Memo1.Handle,EM_LINESCROLL,0,Memo1.Lines.Count);

获取当前最顶行的行号：Result:=SendMessage(Memo1.Handle,EM_GETFIRSTVISIBLELINE,0,0);

获取当前矩形下容纳的行数：FontHeight:Integer;

ARect:TRect;

begin

FontHeight:=abs(Memo1.Font.Height);

SendMessage(Memo1.Handle,EM_GETRECT,0,DWord(@ARect));

Result:=(ARect.Bottom-ARect.Top)
div
FontHeight;

...

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航