资源描述：
《高中信息技术教学论文Delphi常用应用函数》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Delphi常用应用函数 得到WINDOWS的SYSTEM路径: 方法: var MySysPath:PCHAR; begin GetMem(MySysPath,255); GetSystemDirectory(MySysPath,255); end; 注:MySysPath为SYSTEM路径得到程序的路径 ExtractFileDir(Application.Exe
2、name);察看文件是否存在 FileExists(FileName:String):Boolean;6用心爱心专心改变文件扩展名 ChangeFileExt(FileName:String)得到文件的扩展名 ExtractFileExt(FileName:String):String;如何取得Windows的临时文件目录?适合版本:Delphi3,2.0,1.0Windows95&NT都指定了放置临时文件的目录，然而，用户能改变临时目录的位置而不使用缺省的目录。这篇文章的目的是告诉你如何得到Windows95&NT当前的临时目录
3、位置。这个WindowsAPI函数GetTempPath就是解决这个问题的。其函数原形为:DWORDGetTempPath(DWORDnBufferLength,LPTSTRlpBuffer);下面的例子示范如何使用：functionGetTempDirectory:String;varTempDir:array[0..255]of6用心爱心专心Char;beginGetTempPath(255,@TempDir);Result:=StrPas(TempDir);end;备注：临时目录的确定原则：1,如果有TMP环境变量则临时目录
4、为TMP指定的目录2,如果没有TMP环境变量而有TEMP环境变量，则为TEMP变量指定的目录3,如果TMP和TEMP都没有定义，则取当前目录为临时目录程序不出现在任务栏 一般Windows95运行程序时都会在任务栏上出现按钮，如果你的程序是一个监视程序，那么出现按钮就不是明智之举了。要实现该功能就要在OnCreate事件里利用到API函数SetWindowLongprocedure6用心爱心专心TForm1.FormCreate(sender:TObject);beginSetWindowLong(Application,Han
5、dle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);end;改计算机名改变计算机在网络中的名字，重新启动后才生效SetComputerName('HelloWorld');控制热启动要使系统的热启动键（Ctrl+Alt+Del）失效，使用以下语句SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);要恢复系统的热启动键（Ctrl+Alt+Del），使用以下语句SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0);临时路径
6、有时需要Windows的临时路径来做备份等工作，那么就要知道路径在哪，下面的程序帮你忙：var6用心爱心专心aa:pchar;beginGetTempPath(20,aa);file://返回路径名edit1.text:=aa;end;返回程序执行参数 有关Delphi传入应用程式的命令列参数,请参考以下的说明：用ParamCount函数取得命令参数的个数:呼叫ParamStr(0),传回执行档的档名(含路径)呼叫ParamStr(n),传回第ｎ个参数的内容procedureTForm1.FormCreate(Sender:TO
7、bject);varsFileName:string;beginifParamCount>0thenbegin(*有执行参数传入*)sFileName:=ParamStr(1);(*取得参数内容*)ifFileExists(sFileName)6用心爱心专心thenMemo1.Lines.LoadFromFile(sFileName)elseApplication.MessageBox('找不到指定的档案','讯息',48);end;end;6用心爱心专心
