Delphi常用应用函数

得到WINDOWS的SYSTEM路径:

方法:

var

MySysPath : PCHAR ;

begin

GetMem(MySysPath,255);

GetSystemDirectory(MySysPath,255);

end;

注:MySysPath为SYSTEM路径

得到程序的路径

ExtractFieDir(Appication.Exename);

察看文件是否存在

FieExists(FieName:String):Booean;

改变文件扩展名

ChangeFieExt(FieName:String)

得到文件的扩展名

ExtractFieExt(FieName:String):String;

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

适合版本:Dephi 3,2.0,1.0

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

DWORD GetTempPath(DWORD nBufferLength, LPTSTR pBuffer);

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

function GetTempDirectory: String;

var

TempDir: array[0..255] of Char;

begin

GetTempPath(255, @TempDir);

Resut := StrPas(TempDir);

end;

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

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

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

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

程序不出现在任务栏

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

procedure TForm1.FormCreate(sender:TObject);

begin

SetWindowLong(Appication,Hande,GWLEXSTYLE,WSEX_TOOLWINDOW);

end;

改计算机名

改变计算机在网络中的名字，重新启动后才生效

SetComputerName('Heo Word');

控制热启动

要使系统的热启动键（Ctr+At+De）失效，使用以下语句

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);

要恢复系统的热启动键（Ctr+At+De），使用以下语句

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

临时路径

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

var aa:pchar;

begin

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

edit1.text:=aa;

end;

返回程序执行参数

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

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

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

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

procedure TForm1.FormCreate(Sender: TObject);

var

sFieName: string;

begin

if ParamCount > 0 then begin ( 有执行参数传入 )

sFieName := ParamStr(1); ( 取得参数内容 )

if FieExists(sFieName) then

Memo1.Lines.LoadFromFie(sFieName)

ese

Appication.MessageBox('找不到指定的档案', '讯息', 48);

end;

end;

关闭Windows

控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFags,DWORD dwReserved);是实现这一功能的API函数

首先定义常数

const

EWX_FORCE=4; fie://关闭所有程序并以其他用户身份登录

EWX_LOGOFF=0; fie://重新启动计算机并切换到MS-DOS方式

EWX_REBOOT=2; fie://重新启动计算机

EWX_SHUTDOWN=1;//关闭计算机

运行时给How赋值，让他等于EWX_SHUTDOWN或其他，调用以下语句

ExitWindowsEx(How,0);

关闭外部应用程序

如何在 Dephi 应用程序中, 去关闭外部已开启的应用程序？

下面给出一段在 Dephi 中关闭"计算器"程序为例：

var

HWndCacuator : HWnd;

begin

// find the exist cacuator window

HWndCacuator := Winprocs.FindWindow(ni, '计算器'); // cose the exist Cacuator

if HWndCacuator <> 0 then

SendMessage(HWndCacuator, WM_CLOSE, 0, 0);

end;

得到执行程序的目录

SysUtis 单元中有 ExtractFieDir 与 ExtractFiePath两个类似的函数, 用哪一个?没有太大的关系。

不过有以下的差别: ExtractFiePath 传回值的最後一个字元是反斜杠"／"。

procedure TForm1.Button1Cick(Sender: TObject);

begin

ShowMessage(ExtractFieDir(Appication.Exename));

// ie: c:temp

ShowMessage(ExtractFiePath(Appication.Exename));

// ie: c:temp

end;

相同点： 如果执行文件在根目录下(如：C:SAMPLE.EXE)的话, 两者的传回值相同， 且最后一个字符都是"／"。

使用GetFieVersionInfo 得到版本信息的例子

Sampes Using GetFieVersionInfo?

回答1:

procedure GetBuidInfo(var V1, V2, V3, V4: Word);

var

VerInfoSize: DWORD;

VerInfo: Pointer;

VerVaueSize: DWORD;

VerVaue: PVSFixedFieInfo;

Dummy: DWORD;

begin

VerInfoSize := GetFieVersionInfoSize(PChar(ParamStr(0)), Dummy);

GetMem(VerInfo, VerInfoSize);

GetFieVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);

VerQueryVaue(VerInfo, '', Pointer(VerVaue), VerVaueSize);

with VerVaue^ do

begin

V1 := dwFieVersionMS shr 16;

V2 := dwFieVersionMS and $FFFF;

V3 := dwFieVersionLS shr 16;

V4 := dwFieVersionLS and $FFFF;

end;

FreeMem(VerInfo, VerInfoSize);

end;