bottleclient/SakuraSeekerInstance.pas

   1 unit SakuraSeekerInstance;
   2
   3 interface
   4
   5 uses SakuraSeeker, SysUtils, Classes, Forms, BottleDef;
   6
   7 function SakuraSeeker: TSakuraSeeker;
   8
   9 implementation
  10
  11 var Instance: TSakuraSeeker;
  12
  13 function SakuraSeeker: TSakuraSeeker;
  14 begin
  15   if Instance = nil then begin
  16     Instance := TSakuraSeeker.Create(nil);
  17     with Instance do begin
  18       FileMappingTarget := Pref.FMOName;
  19     end;
  20   end;
  21   Result := Instance;
  22 end;
  23
  24 initialization
  25
  26 Instance := nil;
  27
  28 finalization
  29
  30 if Instance <> nil then SakuraSeeker.Free;
  31
  32 end.