unit Log;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TfraLog = class(TFrame)
    Memo1: TMemo;
  private
    { Private declarations }
    function WindowsUserName: string;
  public
    { Public declarations }
    procedure LoadLog;
    procedure SaveLog;
    procedure WriteLog;
  end;

implementation

uses Main;

{$R *.DFM}

function TfraLog.WindowsUserName;
var
  Buf: array [0..255] of Char;
  iSize: DWORD;
begin
  iSize := 256;
  if Windows.GetUserName(@Buf, iSize) then
    Result := string(Buf)
  else
    Result := '';
end;

procedure TfraLog.LoadLog;
begin
  if FileExists(frmMain.LogFile) then
    Memo1.Lines.LoadFromFile(frmMain.LogFile);
end;

procedure TfraLog.SaveLog;
begin
  try
    Memo1.Lines.SaveToFile(frmMain.LogFile);
  except
  end;
end;

procedure TfraLog.WriteLog;
var
  sGroup, sUserName: string;
begin
  if frmMain.SelGrpIndex <> -1 then
    sGroup := fraPassList.slPassGroup[frmMain.SelGrpIndex];
  if fraPassList.ListBox1.ItemIndex <> -1 then
    sUserName := fraPassList.slUserName[frmMain.SelGrpIndex][fraPassList.ListBox1.ItemIndex];

  Memo1.Lines.Add(FormatDateTime('YYYY-MM-DD HH:NN:SS', Now) + '  '
    + '使用者:' + WindowsUserName + '  '
    + '密碼組:' + sGroup + '  '
    + '用戶名:' + sUserName);

  SaveLog;
end;


end.