Ответ отправил: Bochvarov NikB (статус: 10-ый класс)
Ответ отправлен: 30.08.2006, 15:51
Отвечает: Архангельский Андрей Германович
Здравствуйте, Archangel!
SPath := ExtractFilePath(Application.ExeName);
SaveDir := SPath+'VIPersonEdit';
if not DirectoryExists(SaveDir) then // если каталог не существует
if not CreateDir(SaveDir) then // то создать его
raise Exception.Create('Cannot create '+SaveDir);
--------- Если дело заслуживает быть сделаным, то оно заслуживает чтобы его сделали ХОРОШО