日志_测试代码_Delphi7

1、

2、Delphi (Windows API 文件尾部添加)

function LogFile(_str :string) :integer;

var hFile :THandle;

    strFileName :string;

    dwWritten :DWORD;

    lb :LongBool;

begin

  Result := ;

  strFileName := ParamStr()+'.'+FormatDateTime('yyyymmdd', now)+'.log';

  hFile := CreateFile(PChar(strFileName), GENERIC_WRITE, FILE_SHARE_READ, , CREATE_NEW, , );

  if (hFile = INVALID_HANDLE_VALUE) then

  begin

    Result := GetLastError;

    Exit;

  end;

  lb := Windows.SetEndOfFile(hFile);

  if (not lb) then

  begin

    Result := GetLastError;

    CloseHandle(hFile);

    Exit;

  end;

  dwWritten := ;

  lb := Windows.WriteFile(hFile, _str[], Length(_str), dwWritten, nil);

  if (not lb) then

  begin

    Result := GetLastError;

    CloseHandle(hFile);

    Exit;

  end;

  CloseHandle(hFile);

end;

3、