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 Instance := TSakuraSeeker.Create(nil);
  16   Result := Instance;
  17   with Instance do begin
  18     FileMappingTarget.AddStrings(Pref.AdditionalFMOName);
  19   end;
  20 end;
  21
  22 initialization
  23
  24 Instance := nil;
  25
  26 finalization
  27
  28 if Instance <> nil then SakuraSeeker.Free;
  29
  30 end.