var sBackupPath : string; begin ... sBackupPath := gsExePath + gcsDictionarySubDir; { check if not exists } if not DirectoryExists( sBackupPath ) then begin { try to create new directory } b := ForceDirectories( sBackupPath ); if not b then begin ShowMessage( 'Backup directory cannot be created.' ); exit; end; end; ...
|