{$R *.res}
uses
- Windows, Classes, SysUtils, Graphics, IniFiles;
+ Windows, Classes, SysUtils, Graphics, IniFiles, Dialogs;
const
SurfaceWidth = 48;
// CanConfigure\82Í\81AConfigure\82ð\8cÄ\82Î\82ê\82Ä\82â\82é\82±\82Æ\82ª\82 \82é\82©\82Ç\82¤\82©\82ð\95Ô\82·\81B
function GetVersion(DLLName: PChar; NameLen: integer;
var Version: integer; var CanConfigure: boolean): integer; cdecl;
-const ThisDLL = 'SVG Surface Loader for Ver. 1';
+const ThisDLL = 'SVG Surface Loader for Ver. 1.1';
begin
Version := 1;
CanConfigure := true;
// DLL\8cÅ\97L\82Ì\90Ý\92è\82ð\8ds\82¤\81B
//
procedure Configure; cdecl;
+var OpenDialog: TOpenDialog;
+ Ini: TIniFile;
begin
+ try
+ ShowMessage('Specify SSTP Viewer''s ghost file.');
+ OpenDialog := TOpenDialog.Create(nil);
+ try
+ OpenDialog.Filter := 'Ghost Definition File(ghost.txt)|ghost.txt|' +
+ 'All Files(*.*)|*.*';
+ OpenDialog.FileName := GhostFile;
+ if OpenDialog.Execute then
+ begin
+ GhostFile := OpenDialog.FileName;
+ Ini := TIniFile.Create(MyPath + ConfigFile);
+ try
+ Ini.WriteString('SVG', 'GhostFile', GhostFile);
+ finally
+ Ini.Free;
+ end;
+ Ghost2File.Clear;
+ end;
+ finally
+ OpenDialog.Free;
+ end;
+ except
+ on E: Exception do
+ ShowMessage(E.Message);
+ end;
end;
exports