WriteFile(shenqingzhizhen, ziyuanzhizhen^, ziyuandaxiao, BytesWritten, nil);
Sleep(100);
{**** 这里是写入信息数据 ****}
SetFilePointer(shenqingzhizhen, OFFSET_MSG, nil, FILE_BEGIN);
WriteBuff := PChar(MyMsg + StringOfChar(#0, 150 - Length(MyMsg)));
WriteFile(shenqingzhizhen, WriteBuff^, 150, BytesWritten, nil);
{**** 这里写入第二个数据 ****}
SetFilePointer(shenqingzhizhen, OFFSET_FileName, nil, FILE_BEGIN);
WriteBuff := PChar(FName + StringOfChar(#0, 30 - Length(FName)));
WriteFile(shenqingzhizhen, WriteBuff^, 30, BytesWritten, nil);
{**** 这里写入第三个数据 ****}
SetFilePointer(shenqingzhizhen, OFFSET_Time, nil, FILE_BEGIN);
WriteBuff := PChar(WaitTime + StringOfChar(#0, 10 - Length(WaitTime)));
WriteFile(shenqingzhizhen, WriteBuff^, 10, BytesWritten, nil);
CloseHandle(shenqingzhizhen);//关闭资源
Application.MessageBox('恭喜您!文件生成成功!','恭喜您',64);
Except
Application.MessageBox('生成文件失败!请检查操作!','错误',16);
end;
end;
procedure TForm1.spSkinSpeedButton3Click(Sender: TObject);
begin
if ssavedia.Execute then
EFilePath.Text:=Ssavedia.FileName;
end;
end.
