得到WINDOWS的SYSTEM路径:

方法:

var

MySysPath:PCHAR;

begin

GetMem(MySysPath,255);

GetSystemDirectory(MySysPath,255);论文网>

end;

注:MySysPath为SYSTEM路径

得到程序的路径

ExtractFileDir(Application。Exename);

察看文件是否存在

FileExists(FileName:String):Boolean;

改变文件扩展名

ChangeFileExt(FileName:String)

得到文件的扩展名

ExtractFileExt(FileName:String):String;

如何取得Windows的临时文件目录?

适合版本:Delphi3,2。0,1。0

Windows95 NT都指定了放置临时文件的目录,然而,用户能改变临时目录的位置而不使用缺省的目录。这篇文章的目的是告诉你如何得到Windows95 NT当前的临时目录位置。这个WindowsAPI函数GetTempPath就是解决这个问题的。其函数原形为:

DWORDGetTempPath(DWORDnBufferLength,LPTSTRlpBuffer);

下面的例子示范如何使用:

functionGetTempDirectory:String;

var

TempDir:array[0。。255]ofChar;

begin

GetTempPath(255,@TempDir);

Result:=StrPas(TempDir);

end;

备注:临时目录的确定原则:

1,如果有TMP环境变量则临时目录为TMP指定的目录

2,如果没有TMP环境变量而有TEMP环境变量,则为TEMP变量指定的目录

3,如果TMP和TEMP都没有定义,则取当前目录为临时目录

程序不出现在任务栏

一般Windows95运行程序时都会在任务栏上出现按钮,如果你的程序是一个监视程序,那么出现按钮就不是明智之举了。要实现该功能就要在OnCreate事件里利用到API函数SetWindowLong

procedureTForm1。FormCreate(sender:TObject);

begin

SetWindowLong(Application,Handle,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);

临时路径

有时需要Windows的临时路径来做备份等工作,那么就要知道路径在哪,下面的程序帮你忙:

varaa:pchar;

begin

GetTempPath(20,aa);file://返回路径名

edit1。text:=aa;

end;

返回程序执行参数

有关Delphi传入应用程式的命令列参数,请参考以下的说明:

用ParamCount函数取得命令参数的个数:

呼叫ParamStr(0),传回执行档的档名(含路径)

呼叫ParamStr(n),传回第ｎ个参数的内容

procedureTForm1。FormCreate(Sender:TObject);

var

sFileName:string;

begin

ifParamCount>0thenbegin(星号有执行参数传入星号)

sFileName:=ParamStr(1);(星号取得参数内容星号)

ifFileExists(sFileName)then

Memo1。Lines。LoadFromFile(sFileName)

else

Application。MessageBox(找不到指定的档案,讯息,48);

end;

end;

[1][2]下一页