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

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

  更多优质资料尽在考试大论坛 考试大在线题库
  得到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), 传回第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);

上一页123下一页

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答