黑白程式

黑白程式

导航

2008年9月24日

IS/AS 示例代码

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) edt1: TEdit; btn1: TButton; proced... 阅读全文

posted @ 2008-09-24 16:48 黑白程式 阅读(185) 评论(0) 推荐(0)

ParamStr function<参考Delphi帮助>

摘要： Sample code ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMessage(GetCurrentDir + '\'); //获取当前目录 r... 阅读全文

posted @ 2008-09-24 15:49 黑白程式 阅读(430) 评论(0) 推荐(0)