计算机二级DELPHI函数:WindowsAPI函数使用技巧计算机二级考试

文章作者 100test 发表时间 2009:05:02 15:09:16
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　得到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的临时文件目录?
　　适合版本:Delphi 3,2.0,1.0
　　Windows 95 &. NT都指定了放置临时文件的目录，然而，用户能改变临时目录的位置而不使用缺省的目录。这篇文章的目的是告诉你如何得到Windows 95 &. NT当前的临时目录位置。这个Windows API函数 GetTempPath就是解决这个问题的。其函数原形为:
　　DWORD GetTempPath(DWORD nBufferLength, LPTSTR lpBuffer).
　　下面的例子示范如何使用：
　　function GetTempDirectory: String.
　　var
　　TempDir: array[0..255] of Char.
　　begin
　　GetTempPath(255, @TempDir).
　　Result := 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(Application,Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW).
　　end.
　　改计算机名
　　改变计算机在网络中的名字，重新启动后才生效
　　SetComputerName(\Hello World\).
　　控制热启动
　　要使系统的热启动键（Ctrl Alt Del）失效，使用以下语句
　　SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0).
　　要恢复系统的热启动键（Ctrl Alt Del），使用以下语句
　　SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0).
　　临时路径
　　有时需要Windows的临时路径来做备份等工作，那么就要知道路径在哪，下面的程序帮你忙：
　　var aa:pchar.
　　begin
　　GetTempPath(20,aa). file://返回路径名
　　edit1.text:=aa.
　　end.
　　返回程序执行参数
　　有关 Delphi 传入应用程式的命令列参数, 请参考以下的说明：
　　用ParamCount函数取得命令参数的个数:
　　呼叫 ParamStr(0), 传回执行档的档名(含路径)
　　呼叫 ParamStr(n), 传回第ｎ个参数的内容
　　procedure TForm1.FormCreate(Sender: TObject).
　　var
　　sFileName: string.
　　begin
　　if ParamCount >. 0 then begin (* 有执行参数传入 *)
　　sFileName := ParamStr(1). (* 取得参数内容 *)
　　if FileExists(sFileName) then
　　Memo1.Lines.LoadFromFile(sFileName)
　　else
　　Application.MessageBox(\找不到指定的档案\, \讯息\, 48).
　　end.
　　end.
　　关闭Windows
　　控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved).是实现这一功能的API函数
　　首先定义常数
　　const
　　EWX_FORCE=4. file://关闭所有程序并以其他用户身份登录
　　EWX_LOGOFF=0. file://重新启动计算机并切换到MS-DOS方式
　　EWX_REBOOT=2. file://重新启动计算机
　　EWX_SHUTDOWN=1.//关闭计算机
　　运行时给How赋值，让他等于EWX_SHUTDOWN或其他，调用以下语句
　　ExitWindowsEx(How,0).
　　关闭外部应用程序
　　如何在 Delphi 应用程序中, 去关闭外部已开启的应用程序？
　　下面给出一段在 Delphi 中关闭“计算器”程序为例：
　　var
　　HWndCalculator : HWnd.
　　begin
　　// find the exist calculator window
　　HWndCalculator := Winprocs.FindWindow(nil, \计算器\). // close the exist Calculator
　　if HWndCalculator <.>. 0 then
　　SendMessage(HWndCalculator, WM_CLOSE, 0, 0).
　　end.
　　得到执行程序的目录
　　SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 用哪一个?没有太大的关系。
　　不过有以下的差别: ExtractFilePath 传回值的最後一个字元是反斜杠“／”。
　　procedure TForm1.Button1Click(Sender: TObject).