IT博客-学好delphi-随笔分类-windows API函数

转Delphi托盘编程实战演练

小叶子 — Wed, 20 Jan 2010 12:25:00 GMT

在Delphi中涉及到系统编程的方面毫无例外都要调用API函数，在ShellAPI.pas单元中有要用到的API函数的原型。
实战演练：
一．新建一个应用程序： File->New Applicaton，在uses后部分定义一个消息常量：
WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。
再定义过程
procedure WMNID(var msg:TMessage);message WM_NID;
二．定义一个全局变量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一个变量，整个程序基本上是围着这个变量在转。TNotifyIconData是一个记录类型，按住Ctrl键，在TNotifyIconData 双击即进入ShellAPI.pas单元。（注：在Delphi中，这是一个非常好的对源代码进行分析的方法，源代码说明一切，你要想知道程序背后的内幕，最好的方法就是分析源代码！）此时出现了以下赋值语句：
TNotifyIconData = TNotifyIconDataA，这个意思很明显，就是说TNotifyIconData和TNotifyIconDataA是同种数据类型，接着往下看有：TNotifyIconDataA = _NOTIFYICONDATAA，意思与刚才的一样，再往下看：
type
_NOTIFYICONDATAA = record
     cbSize: DWORD;
     Wnd: HWND;
     uID: UINT;
     uFlags: UINT;
     uCallbackMessage: UINT;
     hIcon: HICON;
     szTip: array [0..63] of AnsiChar;
end;
这可真是“千呼万唤始出来，犹抱琵琶半遮面”。现在大家很清楚了，我们刚才定义的全局变量NotifyIcon其实是一个包含有7个成分的记录类型变量，就相当于C/C++中的结构体变量（C/C++的程序员应该是再熟悉不过了）。下面我们逐个来解释记录类型中的7个部分各有什么功能。
1> cbSize就是你定义的NotifyIcon变量的大小，用SizeOf(TNotifyIconData)可以取得，如果你是一个熟练的C/C++程序员，你应该不会陌生。在C/C++中，每当要为一个结构体变量分配内存的时候都要：通过 SizeOf(Struct type) 来获知存放一个这样的结构体变量要多少内存。
2> Wnd是一个句柄，你希望托盘程序产生的消息有哪个窗体来处理就让Wnd指向那个窗体。
例如：你准备在任务栏的托盘小图标上单击时窗体是窗体在“显示”和“隐藏”之间切换，则把Wnd指向主窗体。
3> uID:如果你要创建多个托盘小程序，那么怎么区分它们呢？就是靠这个ID号来区分。
3> uFlags是一个标志位，它表示当前所创建的托盘程序具有哪些性质：
     NIF_ICON     表示当前所设置的图标（即hIcon的值）是有效的
     NIF_MESSAGE 表示当前所设置的系统消息（即uCallBackMessage的值）是有效的
     NIF_TIP      表示当前所设置的提示条（即szTip的值）是有效的。
4> uCallBackMessage这是7个部分里面最重要的一个。这里指定一个回调消息，也就是说这里定义一个消息名，当你单击或者右击托盘图标的时候就会向你在Wnd所指向的窗体发送一个你在
uCallBackMessage中定义的消息名，然后你在程序中定义一个消息出来函数来处理这个消息。这样就把Windows关于消息的整套流程都处理好了。
6> hIcon为托盘图标的句柄，根据这个句柄你就可以增加、修改、删除。
7> szTip就是当你的鼠标放到任务栏托盘的小图标上的时候弹出来的提示信息。
在这里我花了大量的笔墨介绍TNotifyIconData的内幕，把这部分搞清楚了，后面的东西就顺理成章了。
三．双击主窗体，进入FormCreate的代码区域：
   TForm1.FormCreate(Sender:TObject);
   Begin
      //NotifyIcon为全局变量，在程序的开头已经定义了
      with NotifyIcon do
      begin
        cbSize:=SizeOf(TNotifyIconData);
        Wnd:=Handle;   //指向当前窗体Form1的句柄
        uID:=1;
        uFlags:=NIM_ICON or NIM_MESSAGE or NIM_TIP;
        uCallBackMessage:=WM_NID;
        hIcon:=Application.Icon.Handle;
        szTip:=”张家恶少”；
      end;.
     //把设置好的变量NotifyIcon加入到系统中以便处理
    Shell_NotifyIcon(NIM_ADD,@NotifyIcon);
   End;
四．接下来就是定义一个消息处理函数：系统给窗体发来了一个消息，就由下面这个函数来处理。每个消息处理函数都是处理某一类消息的，大家仔细地看看下面函数体的定义和一般的函数定义有什么不一样：消息处理函数要在后面加上消息的名称，这样当系统发来WM_NID消息时，就是自动触发
WMNID消息处理函数。
procedure tform1.WMNID(var msg:TMessage);message WM_NID;
begin
   case msg.LParam of
      WM_LBUTTONUp; Form1.Visible:=not Form1.Visible;
      WM_RBUTTONUP: ShowMessage(‘您点击的是右键’);
   End;
End;
好了，一个最简单的程序诞生了，大家自己设置好自己喜欢的图标.
Project->Options,选中Application页面，在Icon项中加载自己喜欢的图标，这样程序运行时，在任务栏里显示的就是你喜欢的图标了。当你单击图标时，窗体Form1会在可见与不可见之间切换，也就是说单击一下显示，再单击一下又隐藏。当你右击图标的时候会弹出一条消息：“你点击的是右键”。
五．最后要记住在关闭应用程序的时候要释放掉建立的托盘程序，否则会占用系统资源。
TForm1.FormDestroy(Sender:TObject);
Begin
Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
End;

毕业快半年了，很多东西在学校总理解不了，认识不够深刻；出到社会，接触了不少道中朋友，受益非浅，每有心得体会，总想写成文字，一来总结自己学的东西，二来和大家共同交流。

//托盘图标是否显示
procedure HideSysTray(visible:boolean);
var
Tray, Child : hWnd;
C : array[0..127] of char;
S : string;
begin
Tray := FindWindow('Shell_TrayWnd', NIL);
Child := GetWindow(Tray, GW_CHILD);
While Child <> 0 do
begin
If GetClassName(Child, C, SizeOf(C)) > 0 Then
Begin
S := StrPAS(C);
If UpperCase(S) = 'TRAYNOTIFYWND' then
begin
If visible then ShowWindow(Child, 1)
else ShowWindow(Child, 0);
end;
end;
Child := GetWindow(Child, GW_HWNDNEXT);
end;
end;
当自定义过程 HideSysTray() 的参数为 False 时,托盘区隐藏，参数为 True 时，托盘区显示。

小叶子 2010-01-20 20:25 发表评论

API获取网页源文件

小叶子 — Sun, 08 Feb 2009 19:36:00 GMT

工程中加:
Memo1: TMemo;
Button1: TButton;两个
在uses中加入wininet,windows;

implementation

{$R *.dfm}

function GetWebPage(const Url: string):string;
var
Session,
HttpFile:HINTERNET;
szSizeBuffer:Pointer;
dwLengthSizeBuffer:DWord;
dwReserved:DWord;
dwFileSize:DWord;
dwBytesRead:DWord;
Contents:PChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
form1.Memo1.Lines.Add(Contents);
FreeMem(Contents);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetWebPage(pchar('http://www.baidu.com'));

end;

小叶子 2009-02-09 03:36 发表评论

API窗口句柄函数

小叶子 — Sun, 08 Feb 2009 13:28:00 GMT

FindWindow(
lpClassName,        {窗口的类名}
lpWindowName: PChar {窗口的标题}
): HWND;              {返回窗口的句柄; 失败返回 0}

FindWindowEx(
Parent: HWND;     {要查找子窗口的父窗口句柄}
Child: HWND;      {子窗口句柄}
ClassName: PChar; {}
WindowName: PChar {}
): HWND;

GetClassName(
hWnd: HWND;         {指定窗口句柄}
lpClassName: PChar; {缓冲区}
nMaxCount: Integer {缓冲区大小}
): Integer;           {返回类名大小; 失败返回 0}获取指定窗口的类名

GetNextWindow(
hWnd: HWND; {指定的窗口句柄}
uCmd: UINT {指定的关系选项}
): HWND;      {失败返回0; 成功返回符合的窗口句柄}
//uCmd 可选值:
GW_HWNDNEXT = 2; {同级别 Z 序之下}
GW_HWNDPREV = 3; {同级别 Z 序之上}获取指定窗口Z上或Z下的窗口的句柄

GetTopWindow(
hWnd: HWND; {指定的窗口句柄}
): HWND;      {失败返回0; 成功返回最顶层的子窗口句柄}获取指定窗口的子窗口中最顶层的窗口句柄

GetWindow(
hWnd: HWND; {指定的窗口句柄}
uCmd: UINT {指定的关系选项}
): HWND;      {失败返回0; 成功返回符合的窗口句柄}

//uCmd 可选值:
GW_HWNDFIRST = 0; {同级别第一个}
GW_HWNDLAST = 1; {同级别最后一个}
GW_HWNDNEXT = 2; {同级别下一个}
GW_HWNDPREV = 3; {同级别上一个}
GW_OWNER     = 4; {属主窗口}
GW_CHILD     = 5; {子窗口}获取与指定窗口具有指定关系的窗口的句柄

GetForegroundWindow: HWND;
获取前台窗口的句柄

GetWindowTextLength(
hWnd: HWND {窗口句柄}
): Integer; {返回窗口标题长度} 获取窗口标题长度

GetWindowText(
hWnd: HWND;        {窗口句柄}
lpString: PChar;   {接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
): Integer;          {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
获取窗口标题

SetWindowText(
hWnd: HWND;     {窗口句柄}
lpString: PChar {新标题串指针}
): BOOL;设置窗口标题

GetDesktopWindow: HWND; {无参数; 返回桌面窗口的句柄}

小叶子 2009-02-08 21:28 发表评论

API数据j里的数据类型

小叶子 — Fri, 23 Jan 2009 17:07:00 GMT

ATOM                   原子（原子表中的一个字符串的参考）
BOOL                   布尔变量
BOOLEAN                布尔变量
BYTE                   字节（8位）
CCHAR                  Windows字符
CHAR                   Windows字符
COLORREF               红、绿、蓝(RGB)彩色值(32位)
Const                  变量，该变量的值在执行期间保持为常量
CRITICAL_SECTION       临界段对象
CTRYID                 国名标识符
DLGPROC                指向一个对话框过程的指针
DWORD                  双字(32位)
ENHMFENUMPROC          指向一个应用程序定义的回调函数的指针，该回调函数枚举增强的元文件记录
ENUMRESLANGPROC        指向一个应用程序定义的回调函数的指针，该回调函数枚举资源语言。
ENUMRESNAMEPROC        指向一个应用程序定义的回调函数的指针，该回调函数枚举资源名称。
ENUMRESTYPEPROC        指向一个应用程序定义的回调函数的指针，该回调函数枚举资源类型。
FARPROC                指向一个回调函数的指针
FLOAT                  浮点变量
FMORDER                32位字体映射值的数组
FONTENUMPROC           指向一个应用程序定义的回调函数的指针，该回调函数枚举字体
GOBJENUMPROC           指向一个应用程序定义的回调函数的指针，该回调函数枚举图形设备接口(GDI)对象
HACCEL                 加速键表句柄
HANDLE                 对象的句柄
HBITMAP                位图句柄
HBRUSH                 画刷句柄
HCONV                  动态数据交换(DDE)会话句柄
HCONVLIST              DDE会话句柄
HCURSOR                光标句柄
HDC                    设备描述表(DC)句柄
HDDEDATA               DDE数据句柄
HDLG                   对话框句柄
HDWP                   延期窗口位置结构句柄
HENHMETAFILE           增强原文件句柄
HFILE                  文件句柄
HFONT                  字体句柄
HGDIOBJ                GDI对象句柄
HGLOBAL                全局内存块句柄
HHOOK                  钩子句柄
HICON                  图标句柄
HINSTANCE              实例句柄
HKEY                   登记关键字句柄
HLOCAL                 局部内存块句柄
HMEMU                  菜单句柄
HMETAFILE              元文件句柄
HMIDIIN                乐器的数字化接口(MIDI)输入文件句柄
HMIDIOUT               MIDI输出文件句柄
HMMIO                  文件句柄
HOOKPROC               指向一个应用程序定义的钩子函数的指针
HPALETTE               调色板句柄
HPEN                   画笔句柄
HRGN                   域句柄
HRSRC                  资源句柄
HSZ                    DDE字符串句柄
HWAVEIN                波形输入文件句柄
HWAVEOUT               波形输出文件句柄
HWINSTA                工作站句柄
HWND                   窗口句柄
INT                    符号整数
LANGID                 语言标识符
LCID                   所在国(Locale)标识符
LCTYPE                 所在国类型
LINEDDAPROC            指向一个回调函数的指针，该回调函数处理行坐标
LONG                   32位符号整数
LP                     指向一个以"NULL"结束的Unicode(TM)字符串的指针
LPARAM                 32位消息参数
LPBOOL                 指向一个布尔变量的指针
LPBYTE                 指向一个字节的指针
LPCCH                  指向一个Windows字符常量的指针
LPCCHOOKPROC           指向一个应用程序定义的钩子函数的指针
LPCFHOOLPROC           指向一个应用程序定义的钩子函数的指针
LPCH                   指向一个Windows字符的指针
LPCOLORREF             指向一个COLORREF值的指针
LPCRITICAL_SECTION     指向一个临界段对象的指针
LPCSTR                 指向一个以"NULL"结束的WINDOWS字符串常量的指针
LPCTSTR                指向一个以"NULL"结束的Unicode或Windows字符串常量的指针
LPCWCH                 指向一个以"NULL"指向一个以"NULL"结束的Unicode字符常量的指针
LPCWSTR                指向一个以"NULL"指向一个以"NULL"结束的Unicode字符串常量的指针
LPDWORD                指向一个无符号双字(32位)的指针
LPFRHOOLPROC           指向一个应用程序定义的钩子函数的指针
LPHANDLE               指向一个句柄的指针
LOHANDLER_FUNCTION     指向一个处理程序函数的指针
LPHWAVEIN              指向一个波形输入文件句柄的指针
LPHWAVEOUT             指向一个波形输出文件句柄的指针
LPINT                  指向一个符号整数的指针
LPLONG                 指向一个符号长整数(32位)的指针
LPOFNHOOKPROC          指向一个应用程序定义的钩子函数的指针
LPPRINTHOOKPROC        指向一个应用程序定义的钩子函数的指针
LPSETUPHOOKPROC        指向一个应用程序定义的钩子函数的指针
LPTSTR                 指向一个以NULL结束的Unicode或Windows字符串的指针
LRESULT                消息处理的符号结果
LPVOID                 指向任何类型的指针
LPWSTR                 指向一个以"NULL"结束的Unicode字符串的指针
LUID                   局部唯一的标识符
MCIDEVICEID            媒体控制接口(MCI)设备标识符
MFENUMPROC             指向一个应用程序定义的回调函数的指针，该回调函数枚举元文件记录
MMRESULT               多媒体消息的处理结果
NPSTR                  指向一个以"NULL"结束的Windows字符串的指针
NWPSTR                 指向一个以"NULL"结束的Unicode字符串的指针
PBOOL                  指向一个布尔变量的指针
PBYTE                  指向一个字节的指针
PCCH                   指向一个Windows字符常量的指针
PCH                    指向一个Windows字符的指针
PCHAR                  指向一个Windows字符的指针
PCRITICAL_SECTION      指向一个临界段对象的指针
PCSTR                  指向一个以"NULL"结束的Windows字符串常量的指针
PCWCH                  指向一个Unicode字符常量的指针
PCWSTR                 指向一个以"NULL"结束的Unicode字符串常量的指针
PDWORD                 指向一个无符号双字的指针
PFLOAT                 指向一个浮点变量的指针
PFNCALLBACK            指向一个回调函数的指针
PHANDLE                指向一个句柄的指针
PHANDLER_ROUTINE       指向一个处理程序的指针
PHKEY                  指向一个登记关键字的指针
PINT                   指向一个符号整数的指针
PLONG                  指向一个符号长整数的指针
PLUID                  指向一个局部唯一的表示符(LUID)的指针
PROPENUMPROC           指向一个应用程序定义的回调函数的指针，该回调函数枚举窗口特征
PSHORT                 指向一个符号短整数的指针
PSID                   指向一个加密标识符(SID)的指针
PSTR                   指向一个以"NULL"结束的Windows字符串的指针
PSZ                    指向一个以"NULL"结束的Windows字符串的指针
PTCH                   指向一个Windows或Unicode字符的指针
PTCHAR                 指向一个Windows或Unicode字符的指针
PTSTR                  指向一个以"NULL"结束的Windows或Unicode字符串的指针
PUCHAR                 指向一个无符号Windows字符的指针
PUINT                  指向一个无符号整数的指针
PULONG                 指向一个无符号长整数的指针
PUSHORT                指向一个无符号短整数的指针
PVOID                  指向任何类型的指针
PWCH                   指向一个Unicode字符的指针
PWCHAR                 指向一个Unicode字符的指针
PWORD                  指向一个无符号字的指针
PWSTR                  指向一个以"NULL"结束的Unicode字符串的指针
REGSAM                 登记关键字的加密掩码
SC_HANDLE              服务句柄
SERVICE_STATUS_HANDLE 服务状态值句柄
SHORT                  短整数
SPHANDLE               指向一个句柄的指针
TCHAR                  Unicode或Windows字符
TIMERPROC              指向一个应用程序定义的定时器回调函数的指针
UCHAR                  无符号Windows字符
UINT                   无符号整数
ULONG                  无符号长整数
USHORT                 无符号短整数
VOID                   任何类型
WCHAR                  Unicode字符
WNDENUMPROC            指向一个应用程序定义的回调函数的指针，该回调函数枚举窗口
WNDPROC                指向一个应用程序定义的窗口过程的指针
WORD                   无符号字(16位)
WPARAM                 32位消息参数
YIELDPROC              指向一个输出回调函数的指针

小叶子 2009-01-24 01:07 发表评论

win32 API 中文电子书(chm)

小叶子 — Wed, 21 Jan 2009 09:39:00 GMT

些书由陈国强编写
中文说明
下载点击
/Files/shuyezi122/API32.rar

小叶子 2009-01-21 17:39 发表评论

内存操作API函数

小叶子 — Wed, 21 Jan 2009 09:32:00 GMT

System.IsMemoryManagerSet;
System.Move;
System.New;
System.ReallocMem;
System.ReallocMemory;
System.SetMemoryManager;
System.SysAllocMem;
System.SysFreeMem;
System.SysGetMem;
System.SysReallocMem;

SysUtils.DisposeStr;
SysUtils.NewStr;

TlHelp32.Heap32First;
TlHelp32.Heap32ListFirst;
TlHelp32.Heap32ListNext;
TlHelp32.Heap32Next;

Windows.CopyMemory;
Windows.FillMemory;
Windows.GetProcessHeap;
Windows.GetProcessHeaps;
Windows.GlobalAlloc;
Windows.GlobalAllocPtr;
Windows.GlobalCompact;
Windows.GlobalDiscard;
Windows.GlobalFix;
Windows.GlobalFlags;
Windows.GlobalFree;
Windows.GlobalFreePtr;
Windows.GlobalHandle;
Windows.GlobalLock;
Windows.GlobalMemoryStatus;
Windows.GlobalReAlloc;
Windows.GlobalReAllocPtr;
Windows.GlobalSize;
Windows.GlobalUnfix;
Windows.GlobalUnlock;
Windows.GlobalUnWire;
Windows.GlobalWire;
Windows.HeapAlloc;
Windows.HeapCompact;
Windows.HeapCreate;
Windows.HeapDestroy;
Windows.HeapFree;
Windows.HeapLock;
Windows.HeapReAlloc;
Windows.HeapSize;
Windows.HeapUnlock;
Windows.HeapValidate;
Windows.HeapWalk;
Windows.IsBadCodePtr;
Windows.IsBadReadPtr;
Windows.IsBadStringPtr;
Windows.IsBadWritePtr;
Windows.MoveMemory;
Windows.VirtualAlloc;
Windows.VirtualAllocEx;
Windows.VirtualFree;
Windows.VirtualFreeEx;
Windows.VirtualLock;
Windows.VirtualProtect;
Windows.VirtualProtectEx;
Windows.VirtualQuery;
Windows.VirtualQueryEx;
Windows.ZeroMemory;

Windows.LocalAlloc;
Windows.LocalCompact;
Windows.LocalDiscard;
Windows.LocalFlags;
Windows.LocalFree;
Windows.LocalLock;
Windows.LocalReAlloc;
Windows.LocalShrink;
Windows.LocalSize;
Windows.LocalUnlock;

小叶子 2009-01-21 17:32 发表评论

api--菜单命令

小叶子 — Tue, 20 Jan 2009 18:45:00 GMT

设置关闭按键不可用(存大,只是灰色)
var
hm: HMENU;
begin
hm := GetSystemMenu(Handle, False);
EnableMenuItem(hm, SC_CLOSE, MF_DISABLED or MF_GRAYED);
end;
设置关闭按键不可用(右键后你发现 "关闭" 没了)
var
hm: HMENU;
begin
hm := GetSystemMenu(Handle, False); // 这里的Handle就是要无效按钮的目标
DeleteMenu(hm, SC_CLOSE, 0);
end;
说下 DeleteMenu()中第二个参数
'禁止还原按钮
Success = DeleteMenu(hMenu, SC_RESTORE, 0)
'禁止改变大小
Success = DeleteMenu(hMenu, SC_SIZE, 0)
'禁止最大化
Success = DeleteMenu(hMenu, SC_MAXIMIZE, 0)
'禁止最小化
Success = DeleteMenu(hMenu, SC_MINIMIZE, 0)
'禁止关闭
Success = DeleteMenu(hMenu, SC_CLOSE, 0)
'禁止移动
Success = DeleteMenu(hMenu, SC_MOVE,0)

在主窗口加菜单(就是左键后出现最小(大)化,关闭那里)
var
hSysMenu:HMENU;
begin

hSysMenu:=GetSystemMenu(Handle,False);
AppendMenu(hSysMenu,MF_separator,0,nil);//加一条线
AppendMenu(hSysMenu,MF_STRING,0,'新菜单');

end;

小叶子 2009-01-21 02:45 发表评论

GetSystemDirectory()

小叶子 — Tue, 13 Jan 2009 11:42:00 GMT

得到系统路径
var
s:pchar;
begin
getmem(s,100);
GetSystemDirectory(s,100) ;
showmessage(s);
end;

小叶子 2009-01-13 19:42 发表评论

ExtractIcon()

小叶子 — Tue, 13 Jan 2009 10:48:00 GMT

判断一个可执行文件或DLL中是否有图标存在，并将其提取出来
function ExtractIcon; external shell32 name 'ExtractIconA';
返回integer;

小叶子 2009-01-13 18:48 发表评论

FileExists DirectoryExists

小叶子 — Tue, 13 Jan 2009 10:42:00 GMT

function FileExists(const FileName: string): Boolean;
用于判断文件是否存在(使用时请带有文件后辍名)
function DirectoryExists(const Directory: string): Boolean;
用于判断文件夹是否存在

小叶子 2009-01-13 18:42 发表评论

forcedirectories和CreateDirectory

小叶子 — Tue, 13 Jan 2009 10:37:00 GMT

forcedirectories和CreateDirectory都能创建文件
ForceDirectories可以创建多层目录.
如果你创建一个目录为c:\mymusic\music
如果你的C盘不存在一个叫mymusic的文件夹
的话程序会自动创建，函数执行的结果是，
创建了两个文件夹，mymusic和music，music为
mymusic的子文件夹.

CreateDirectory只能创建一个文件夹，如果
mymusic不存在，则反回创建music文件夹失败！

小叶子 2009-01-13 18:37 发表评论

ExtractFileName ExtractFilepath

小叶子 — Tue, 13 Jan 2009 10:34:00 GMT

返回指定文件的文件名及扩展名

var
s:string;
begin
s:=ExtractFileName('D:\Program Files\Borland\Delphi7\Projects\Unit1.dcu');
showmessage(s);\\显示:Unit1.dcu
end;

var
s:string;
begin
s:=ExtractFilepath('D:\Program Files\Borland\Delphi7\Projects\Unit1.dcu');
showmessage(s);\\显示:'D:\Program Files\Borland\Delphi7\Projects
end;

小叶子 2009-01-13 18:34 发表评论

ChangeFileExt

小叶子 — Tue, 13 Jan 2009 10:07:00 GMT

函数说明更改指定文件的扩展名,函数原型如下:
delphi中源码
function ChangeFileExt(const FileName, Extension: string): string;
var
I: Integer;
begin
I := LastDelimiter('.' + PathDelim + DriveDelim,Filename);
if (I = 0) or (FileName[I] <> '.') then I := MaxInt;
Result := Copy(FileName, 1, I - 1) + Extension;
end;

比如:
s:=changefileext('f:\123.txt','.ini');
showmessage(s);//f:\123.ini

小叶子 2009-01-13 18:07 发表评论