procedure Log(name: string; Log: string); stdcall; overload;
var
  f: Textfile;
  FileName: string;
begin
//  SetLogValue();
  if m_nWriteLog<>1 then Exit;//m_nWriteLog声明在DLL工程中的另外一个单元中,EXE程序在调用时,执行了一次setlogvalue使m_nWriteLog:=1
  FileName := '' + name + '' + '.log'; 
  AssignFile(f, FileName);
  try
    if FileExists(FileName) = False then
      Rewrite(f)
    else
    begin
      Reset(f);
      Append(f);
    end;
    Writeln(f, FormatDateTime('yyyy''/''mm''/''dd hh:nn:ss ', Now) + Log);
  finally
    CloseFile(f);
  end;end;不知道为何,每次运行到注释那句,就直接退出了。。不知道是哪里弄错了,我另外写了一个DEMO的全局变量都可以这样用