Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

component update, fixed metamod plugins.ini bug once and for all

Browse Source
This commit is contained in:
Christian Hammacher 2006-09-16 23:26:24 +00:00
parent 73386b12c5
commit 947cb5f79d
4 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
installer/installer/AMXInstaller.exe
View File

Binary file not shown.

11
installer/installer/UnitInstall.pas
View File

@ -3,7 +3,7 @@ unit UnitInstall;
interface
uses SysUtils, Classes, Windows, Graphics, Forms, ShellAPI, Controls, Messages,
TlHelp32, IdFTPCommon, ComCtrls, JclFileUtils;
TlHelp32, IdFTPCommon, ComCtrls, JclFileUtils, Dialogs;
type TMod = (modNone, modCS, modDoD, modTFC, modNS, modTS, modESF);
type TOS = (osWindows, osLinux32, osLinux64);
@ -500,15 +500,15 @@ begin
if (FileExists(ePath + 'addons\metamod\plugins.ini')) then begin
eStr.LoadFromFile(ePath + 'addons\metamod\plugins.ini');
if OS = osWindows then begin
if (Pos(eStr.Text, 'addons\amxmodx\dlls\amxmodx_mm.dll') <> 0) then
if (Pos('addons\amxmodx\dlls\amxmodx_mm.dll', eStr.Text) <> 0) then
UpdatePluginsIni := False;
end
else if OS = osLinux32 then begin
if (Pos(eStr.Text, 'addons/amxmodx/dlls/amxmodx_mm_i386.so') <> 0) then
if (Pos('addons/amxmodx/dlls/amxmodx_mm_i386.so', eStr.Text) <> 0) then
UpdatePluginsIni := False;
end
else begin
if (Pos(eStr.Text, 'addons/amxmodx/dlls/amxmodx_mm_amd64.so') <> 0) then
if (Pos('addons/amxmodx/dlls/amxmodx_mm_amd64.so', eStr.Text) <> 0) then
UpdatePluginsIni := False;
end;
end
@ -804,7 +804,8 @@ begin
frmMain.ggeItem.Progress := 0;
end;
AddStatus('', clBlack, False);
AddStatus('Cleaning installation...', clBlack, False);
AddStatus('Cleaning up installation...', clBlack, False);
if (DirectoryExists(ExtractFilePath(ParamStr(0)) + 'temp')) then
DelTree(ExtractFilePath(ParamStr(0)) + 'temp');
AddDone;

4
installer/installer/UnitfrmMain.dfm
View File

@ -6433,6 +6433,8 @@ object frmMain: TfrmMain
Width = 509
Height = 24
AdvColorBorder = 0
Color = clBtnFace
ColorBorder = 8623776
Progress = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -6455,6 +6457,8 @@ object frmMain: TfrmMain
Width = 509
Height = 24
AdvColorBorder = 0
Color = clBtnFace
ColorBorder = 8623776
Progress = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText

8
installer/installer/UnitfrmMain.pas
View File

@ -763,6 +763,7 @@ begin
rtfDetails.Clear;
end;
// delete files, then directories
if (DirectoryExists(ExtractFilePath(ParamStr(0)) + 'temp')) then
DelTree(ExtractFilePath(ParamStr(0)) + 'temp');
end;
@ -874,11 +875,16 @@ begin
if IdFTP.Connected then
IdFTP.Quit;
end
else
else begin
Action := caNone;
exit;
end;
end;
if (DirectoryExists(ExtractFilePath(ParamStr(0)) + 'temp')) then
DelTree(ExtractFilePath(ParamStr(0)) + 'temp');
end;
procedure TfrmMain.ExceptionHandler(Sender: TObject; E: Exception);
begin
// we don't want any exceptions after close, so leave this empty