end;
// DLL\83A\83\93\83\8d\81[\83h\8e\9e\82É\8cÄ\82Î\82ê\82é\81B
-// \82½\82Ô\82ñ\82â\82é\82±\82Æ\82Í\82È\82¢\81B
procedure Unload; cdecl;
begin
Ghost2File.Free;
ALine.CommaText := Lines[0];
if (ALine[0] <> 'GHOST') then
Exit;
+
+ Ghost2File.Values[Ghost] := FileName; // \8e\9f\82©\82ç\82Ì\83V\83\87\81[\83g\83J\83b\83g
if (ALine[1] <> Ghost) then
begin
- Ghost2File.Values[Ghost] := FileName; // \8e\9f\82©\82ç\82Ì\83V\83\87\81[\83g\83J\83b\83g
Exit;
end;
if SameText(Key, 'sakura') then
begin
SakuraName := Val;
+ Ghost2File.Values[SakuraName] := FileName; //\8e\9f\82©\82ç\82Ì\83V\83\87\81[\83g\83J\83b\83g
if SakuraName <> Ghost then //\95Ê\83S\81[\83X\83g\82Ì\92è\8b`\83t\83@\83C\83\8b\82È\82Ì\82Å\83p\83X
- begin
- Ghost2File.Values[SakuraName] := FileName; //\8e\9f\82©\82ç\82Ì\83V\83\87\81[\83g\83J\83b\83g
Exit;
- end;
end else if SameText(Key, 'surfacefile') then
begin
Result := Val;
end;
end;
+ // \83S\81[\83X\83g\82ª\8c©\82Â\82©\82ç\82È\82©\82Á\82½\8c\8b\89Ê\82ð\8bL\89¯\81B
+ // \8c©\82Â\82©\82Á\82½\8fê\8d\87\82É\82Í\83t\83@\83C\83\8b\96¼\82Å\8fã\8f\91\82«\82³\82ê\82é
+ if Result = '' then
+ Ghost2File.Values[Ghost] := '*';
+
// \93à\95\94\8aÖ\90\94\81Bghost.txt\82ð\93Ç\82Ý\8d\9e\82Þ\81B
Dir := ExtractFilePath(GhostFile);
Ghosts := TStringList.Create;
finally
Ghosts.Free;
end;
- if Result = '' then
- Ghost2File.Values[Ghost] := '*'; // \83S\81[\83X\83g\82ª\8c©\82Â\82©\82ç\82È\82©\82Á\82½\8c\8b\89Ê\82ð\8bL\89¯
end;
// Ghost\82Å\8ew\92è\82³\82ê\82é\83S\81[\83X\83g\82ÌSurface\94Ô\82Ì\83T\81[\83t\83B\83X\83C\83\81\81[\83W\82ð\8eÀ\8dÛ\82É\93Ç\82Ý\8fo\82·\81B