Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2010-01-19 15:54:09 ЛС | профиль | цитата
А я думал так.

#pas
procedure THIDir._work_doDir;
begin
If ForceDirectories(ToString(_Data)) then
_hi_CreateEvent(_Data,@_event_onEnd, ToString(_Data)+'\')
else _hi_CreateEvent(_Data,@_event_onError);
end;
Т.е. при благополучном создании или наличии директории выдать путь к ней.
И никому этот путь не повредит.
Ну не смог я придумать ситуацию, где бы это смогло случиться.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0