📄 howto_getexepath.htm
字号:
<html><head><title>如何得知当前程序的路径</title><meta http-equiv=Content-Type content=text/html; charset=gb2312><meta name=GENERATOR content=Microsoft FrontPage 3.0><meta name=Microsoft Border content=none></head><body style=font-family: 宋体, serif; font-size: 9pt><center><span style=font-family: 宋体, serif; font-size: 12pt><b>如何得知当前程序的路径</b></span></center><center><span style=font-family: 宋体, serif; font-size: 9pt>西安 <a href=mailto:delphifan@990.net>梁 明</a></span></center><hr><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt>至少有两种理想办法： </span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>下面是源代码：<br> </b></span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt>unit main;<br> <br> interface<br> <br> uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br> <br> type<br> TMainFrom = class(TForm)<br> Button1: TButton;<br> Button2: TButton;<br> procedure Button1Click(Sender: TObject);<br> procedure Button2Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br> <br> var<br> MainFrom: TMainFrom;<br> <br> implementation<br> <br> {$R *.DFM}<br> <br> procedure TMainFrom.Button1Click(Sender: TObject);<br> begin<br> //方法一<br> Caption:=ExtractFilePath(paramstr(0));<br> end;<br> <br> procedure TMainFrom.Button2Click(Sender: TObject);<br> begin<br> //方法二<br> Caption:=ExtractFilePath(Application.ExeName);<br> end;<br> <br> end.</span></li></ul><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>窗体As text代码</b></span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt>object MainFrom: TMainFrom<br> Left = 192<br> Top = 107<br> Width = 346<br> Height = 172<br> Caption = 'EXE的路径'<br> Color = clBtnFace<br> Font.Charset = DEFAULT_CHARSET<br> Font.Color = clWindowText<br> Font.Height = -11<br> Font.Name = 'MS Sans Serif'<br> Font.Style = []<br> OldCreateOrder = False<br> PixelsPerInch = 96<br> TextHeight = 13<br> object Button1: TButton<br> Left = 160<br> Top = 32<br> Width = 153<br> Height = 41<br> Caption = '方法一'<br> TabOrder = 0<br> OnClick = Button1Click<br> end<br> object Button2: TButton<br> Left = 161<br> Top = 80<br> Width = 153<br> Height = 41<br> Caption = '方法二'<br> TabOrder = 1<br> OnClick = Button2Click<br> end<br> end<br> </span></li></ul><ul> <li> </li> <li> </li> <li><span style=font-family: 宋体, serif; font-size: 9pt>版主：梁明<br> 日期：1999-03-07-01:34<br> E-mail：<a href=mailto:delphifan@990.net>delphifan@990.net</a></span></li></ul><hr></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -