Як створити програмно каталог?
Всім привіт! Я самоучка і є одне питання, як поравільно користуватися функцією CreateDirectory? Вже дуже цікава штучка, а як і що писати - не знаю. Якщо не важко, МАЙСТРА, підкажіть будь ласка. (
ForceDirectory? Ой не знаю таку. (((
Якщо не проти - черкніте приклад, як правильно записати щось!
Я чайник: (((((((
Створена директорію можна і mkdir
BOOL CreateDirectory (
# XA0; # XA0; LPCTSTR lpPathName, // pointer to a directory path string
# XA0; # XA0; LPSECURITY_ATTRIBUTES lpSecurityAttributes # XA0; // pointer to a security descriptor
# XA0; );
ті
if CreateDirectory ( "c: \ lalala", nil) then
begin
end
Dmitrij_K # XA0; ти знаєш, я погано розумію (поки) "найважливіше", тобто наприклад ось я пишу
procedure TForm1.FormCreate (Sender: TObject);
begin
# XA0; CreateDirectory ( "C: \ NewCatalog");
end;
а компілятор лає, типу (недостатньо актуальних параметрів). Ось саме це для мене і перепони. Спасибі за допомогу.
Прошу вибачення:
function ForceDirectories (Dir: string): Boolean;
який тобі приклад треба? Тут і так все зрозуміло. Dir тільки повинен бути коректним і всі умови.
evvcom! Подивися, будь ласка, що я тута неправильно пишу.
procedure TForm1.FormCreate (Sender: TObject);
begin
# XA0; CreateDirectory ( "C: \ NewCatalog");
end.
> Типу (недостатньо актуальних параметрів).
ну так прототип функції дивись, там ще
> LPSECURITY_ATTRIBUTES lpSecurityAttributes # XA0;
напиши ForceDirectories ( "C: \ NewCatalog \ NewCatalog"); і буде працювати, причому навіть не треба піклуватися, щоб "C: \ NewCatalog" вже існувала.
> CreateDirectory ( "C: \ NewCatalog");
CreateDirectory ( "C: \ NewCatalog", nil);