### Delphi 开发 API 方面技巧
在 Delphi 开发中，熟练掌握并运用 Windows API 是提高程序功能性和效率的重要手段。以下将详细介绍文件中提到的一些关键知识点。
#### 一、获得特殊文件夹名称
在编程过程中，经常需要访问一些特殊文件夹，如 Windows 路径、System 路径、Temp 路径等。这些操作可以通过调用相应的 Windows API 函数来完成。
1. **获得 WINDOWS 文件夹**
- **API 函数**: `GetWindowsDirectory`
- **函数原型**:
```c++
UINT GetWindowsDirectory(LPTSTR lpBuffer, UINT uSize);
```
- **参数说明**:
- `lpBuffer`: 指向缓冲区的指针，用于接收文件夹名称。
- `uSize`: 缓冲区的大小，通常至少应为 `MAX_PATH`（260）个字符。
- **返回值**: 成功时返回缓冲区中字符串的实际长度；若缓冲区大小不足，则返回所需缓冲区大小；若失败则返回零，并可通过调用 `GetLastError` 获取错误代码。
- **示例代码**:
```delphi
function GetWinPath(): string;
var
WinPath: PChar;
begin
GetMem(WinPath, MaxInt);
try
if GetWindowsDirectory(WinPath, MaxInt) = 0 then
raise Exception.Create('Failed to get Windows directory');
Result := WinPath;
finally
FreeMem(WinPath);
end;
end;
```
2. **获得 SYSTEM 文件夹**
- **API 函数**: `GetSystemDirectory`
- **函数原型**:
```c++
UINT GetSystemDirectory(LPTSTR lpBuffer, UINT uSize);
```
- **参数说明**同 `GetWindowsDirectory`。
- **示例代码**:
```delphi
function GetSysPath(): string;
var
SysPath: PChar;
begin
GetMem(SysPath, MaxInt);
try
if GetSystemDirectory(SysPath, MaxInt) = 0 then
raise Exception.Create('Failed to get System directory');
Result := SysPath;
finally
FreeMem(SysPath);
end;
end;
```
3. **获得 TEMP 文件夹**
- **API 函数**: `GetTempPath`
- **函数原型**:
```c++
DWORD GetTempPath(DWORD nBufferLength, LPTSTR lpBuffer);
```
- **参数说明**:
- `nBufferLength`: 缓冲区的大小。
- `lpBuffer`: 指向缓冲区的指针，用于接收文件夹名称。
- **示例代码**:
```delphi
function GetTmpPath(): string;
var
TmpPath: PChar;
begin
GetMem(TmpPath, MaxInt);
try
if GetTempPath(MaxInt, TmpPath) = 0 then
raise Exception.Create('Failed to get Temp path');
Result := TmpPath;
finally
FreeMem(TmpPath);
end;
end;
```
#### 二、控制任务栏
1. **如何使程序不出现在任务栏**
通过修改窗口的扩展样式属性可以达到此目的。具体做法是在 `Form` 的 `OnCreate` 事件中加入以下代码：
```delphi
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
```
2. **如何隐藏和显示 Windows 的任务栏**
任务栏本身也是一个窗口，其窗口类名为 `Shell_TrayWnd`。隐藏和显示任务栏需要调用 `ShowWindow` 函数。
- **API 函数**: `ShowWindow`
- **函数原型**:
```c++
BOOL ShowWindow(HWND hWnd, int nCmdShow);
```
- **参数说明**:
- `hWnd`: 任务栏窗口句柄。
- `nCmdShow`: 显示命令，如 `SW_HIDE` 用于隐藏，`SW_SHOW` 用于显示。
- **示例代码**:
```delphi
procedure HideTaskBar;
var
hWnd: HWND;
begin
hWnd := FindWindow('Shell_TrayWnd', nil);
if hWnd <> 0 then
ShowWindow(hWnd, SW_HIDE);
end;
procedure ShowTaskBar;
var
hWnd: HWND;
begin
hWnd := FindWindow('Shell_TrayWnd', nil);
if hWnd <> 0 then
ShowWindow(hWnd, SW_SHOW);
end;
```
以上内容详细介绍了如何通过 Delphi 调用 Windows API 来完成一系列常见操作，包括获取特殊文件夹路径以及对任务栏的操作。这些技巧对于提高应用程序的功能性及用户体验具有重要意义。
