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

made it a little safer

Browse Source
This commit is contained in:
Christian Hammacher 2007-02-12 19:35:01 +00:00
parent 0caffa2b82
commit 811265e28b
2 changed files with 20 additions and 13 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.

7
installer/installer/UnitfrmMain.pas
View File

@ -651,6 +651,7 @@ begin
// ... change to / and create all the directories ... // ... change to / and create all the directories ...
CurNode := nil; CurNode := nil;
if (Path <> '/') then begin if (Path <> '/') then begin
try
IdFTP.ChangeDir('/'); IdFTP.ChangeDir('/');
with GetAllDirs do begin with GetAllDirs do begin
for i := 0 to Count -1 do begin for i := 0 to Count -1 do begin
@ -666,6 +667,12 @@ begin
Free; Free;
end; end;
IdFTP.ChangeDir(Path); IdFTP.ChangeDir(Path);
except
if (IdFTP.Connected) then
IdFTP.ChangeDir(Path)
else
IdFTP.Connect;
end;
end; end;
// ... find directories in start path ... // ... find directories in start path ...
if eStr.Count <> 0 then begin if eStr.Count <> 0 then begin