Patch level :2.0 partners

Files correlati     :setup.ins
Ricompilazione Demo : [ ]
Commento            :aggiunta creazione directory custom (se non esiste)


git-svn-id: svn://10.65.10.50/trunk@11467 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2003-10-07 09:16:15 +00:00
parent de6963e2b2
commit 3318647483

View File

@ -234,6 +234,12 @@ begin
szTemp = szAppPath ^ "Servers";
CreateDir(szTemp);
//controlla se esiste la directory "CUSTOM" delle personalizzazioni;se non esiste la crea
szTemp = szAppPath ^ "Custom";
if ( ExistsDir(szTemp) = NOTEXISTS ) then
CreateDir(szTemp);
endif;
Disable(STATUS);
end;