DELPHI函数.doc

DELPHI函数

目录
TOC\o"1-3"\uDELPHI函数 PAGEREF_Toc270179738\h1
目录 PAGEREF_Toc270179739\h1
API函数大全 PAGEREF_Toc270179740\h1
通过调用API确定MEMO控件中的当前行和列 PAGEREF_Toc270179741\h1
得到程序的路径 PAGEREF_Toc270179742\h2
改变文件扩展名 PAGEREF_Toc270179743\h2
得到文件的扩展名 PAGEREF_Toc270179744\h2
如何取得Windows的临时文件目录? PAGEREF_Toc270179745\h2
程序不出现在任务栏 PAGEREF_Toc270179746\h3
改计算机名 PAGEREF_Toc270179747\h3
控制热启动 PAGEREF_Toc270179748\h4
临时路径 PAGEREF_Toc270179749\h4
关闭Windows PAGEREF_Toc270179750\h5
定时关闭计算机 PAGEREF_Toc270179751\h5
关闭外部应用程序 PAGEREF_Toc270179752\h5
得到执行程序的目录 PAGEREF_Toc270179753\h5
停止一个线程？ PAGEREF_Toc270179754\h9
PostMessage PAGEREF_Toc270179755\h10

API函数大全
通过调用API确定MEMO控件中的当前行和列
你可以调用WINDOWSAPI中的EM—LINEFROMCHAR和EM—LINEINDEX函数来确定MEMO控件中的当前行和列，具体调用的过程见下面的过程。
varLineNum：longint；
CharsBeforeLine：longint；
begin
LineNumΚSendMessage（Memo1．Handle，EM—LINEFROMCHAR，Memo1．SelStart，0）；
CharsBeforeLine：=SendMessage（Memo1．Handle，EM—LINEINDEX，LineNum，0）；
Label1．Caption：=′Line′＋IntToStr（LineNum＋1）
Lab
el2．Caption：=′Position′＋IntToStr（（Memo1．SelStart－CharsBeforeLine）＋1）；
end；
得到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运行程序时都会在任务栏上出现按钮，如果你的程序是一个监视程序，那么出现按钮就不是明智之举了。要实现该功能就要在OnCreat