在Delphi中，使用WriteFile函数来写入文件时，需要先打开文件，然后使用WriteFile函数将数据写入文件。以下是使用WriteFile函数的一般步骤：
在程序中包含Windows单元：uses Windows;。定义文件句柄变量和缓冲区变量：var hFile: THandle; Buffer: array of Byte;。打开文件，获取文件句柄：hFile := CreateFile('文件路径', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);。'文件路径’是要写入的文件的路径。GENERIC_WRITE表示以写入方式打开文件。CREATE_ALWAYS表示如果文件不存在，则创建一个新文件。将要写入的数据存储在缓冲区中。使用WriteFile函数将缓冲区中的数据写入文件：WriteFile(hFile, Buffer[0], Length(Buffer), BytesWritten, nil);。hFile是文件句柄。Buffer[0]是缓冲区的起始位置。Length(Buffer)是要写入的数据的长度。BytesWritten是一个变量，用于存储实际写入的字节数。关闭文件句柄：CloseHandle(hFile);。下面是一个写入文件的简单示例：
uses Windows;var hFile: THandle; Buffer: array of Byte; BytesWritten: DWORD;begin // 打开文件 hFile := CreateFile('C:\example.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); if hFile <> INVALID_HANDLE_VALUE then begin try // 准备要写入的数据 SetLength(Buffer, 5); Buffer[0] := $48; // 'H' Buffer[1] := $65; // 'e' Buffer[2] := $6C; // 'l' Buffer[3] := $6C; // 'l' Buffer[4] := $6F; // 'o' // 写入文件 if WriteFile(hFile, Buffer[0], Length(Buffer), BytesWritten, nil) then ShowMessage('写入成功') else ShowMessage('写入失败'); finally // 关闭文件句柄 CloseHandle(hFile); end; end else ShowMessage('无法打开文件');end.以上示例中，将字符串"Hello"写入了文件C:\example.txt中。在实际使用中，可以根据需要进行修改。
