Текущий архив: 2007.01.28;
Скачать: CL | DM;

Вниз

работа с папками   Найти похожие ветки 

← →
cava ©   (2007-01-06 11:22) [0]

Помгите пожалуйста нужна сылка где можно скачать литературу где описана работа с папками (создание ,удаление и т.д.).Можно на API.Заранее спасибо.

---

← →
Virgo_Style ©   (2007-01-06 11:43) [1]

Нажатие клавиши F1 в литературе практически не описано, приходится экспериментировать

---

← →
Nic ©   (2007-01-06 12:02) [2]

советую FAQ скачать. Там обычно эти функции описаны с примерами.

---

← →
Алхимик ©   (2007-01-06 12:08) [3]

Яндекс - найдется всё!
http://help.yandex.ru/search/

---

← →
kaZaNoVa ©   (2007-01-06 12:19) [4]

cava ©   (06.01.07 11:22)
function CreateDir(const Dir: string): Boolean;
begin
 Result := CreateDirectory(PChar(Dir), nil);
end;

function RemoveDir(const Dir: string): Boolean;
begin
 Result := RemoveDirectory(PChar(Dir));
end;

function DeleteDir(Dir:string):Boolean;
var
 Found  : integer;
 SearchRec : TSearchRec;
begin
 Result := False;
 ChDir(Dir);
 if IOResult<>0 then begin
//   ShowMessage("Не могу войти в каталог: "+Dir);
  Exit;
 end;
Found := FindFirst("*", faAnyFile, SearchRec);
while Found = 0 do
 begin
  if (SearchRec.Name<>".")and(SearchRec.Name<>"..") then
   if (SearchRec.Attr and faDirectory)<>0 then
    begin
    if not DeleteDir(SearchRec.Name) then exit;
    end else
    if not DeleteFile(SearchRec.Name) then begin
//      ShowMessage("Не могу удалить файл: "+SearchRec.Name);
     exit;
    end;
   Found := FindNext(SearchRec);
 end;
 FindClose(SearchRec);
 ChDir(".."); RmDir(Dir);
 Result := IOResult = 0;
end;

function FileExists(const FileName:String): Boolean;
var
 Code: Integer;
begin
 Code := GetFileAttributes(PChar(FileName));
 Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code = 0);
end;

function FileAge(const FileName: string): Integer; //27.07.03
var
 Handle: THandle;
 FindData: TWin32FindData;
 LocalFileTime: TFileTime;
begin
 Handle := FindFirstFile(PChar(FileName), FindData);
 if Handle <> INVALID_HANDLE_VALUE then
 begin
   Windows.FindClose(Handle);
   if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
   begin
     FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
     if FileTimeToDosDateTime(LocalFileTime, LongRec(Result).Hi,
       LongRec(Result).Lo) then Exit;
   end;
 end;
 Result := -1;
end;

function DirectoryExists(const Name: string): Boolean;
var
 Code: Integer;
begin
 Code := GetFileAttributes(PChar(Name));
 Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
end;


---

← →
kaZaNoVa ©   (2007-01-06 12:21) [5]

заметьте, часто на простые ответы людей посылают в справку, вместо того, чтобы сразу дать код ... :( грустная тенденция

---

← →
Алхимик ©   (2007-01-06 12:23) [6]

> [5] kaZaNoVa ©   (06.01.07 12:21)
> заметьте, часто на простые ответы людей посылают в справку,
> вместо того, чтобы сразу дать код ... :( грустная тенденция

Автор не просил код, он просил ссылку. :)

---

← →
kaZaNoVa ©   (2007-01-06 12:25) [7]

Алхимик ©   (06.01.07 12:23) [6]
Автор не просил код, он просил ссылку. :)
о точно))) сорри не заметил)))

---

← →
ors_archangel ©   (2007-01-06 12:25) [8]

>  часто на простые ответы людей посылают в справку

Да, на сложные ответы самим приходится ходить

---

← →
$Pl@Sh ©   (2007-01-06 15:13) [9]

> cava ©   (06.01.07 11:22)  
>
> Помгите пожалуйста нужна сылка где можно скачать литературу
> где описана работа с папками (создание ,удаление и т.д.).
>


В справочнике Windows для чайников :-)

---

← →
Вредина   (2007-01-06 21:39) [10]

Мне бы вот такое же где найти, но только по работе с мамками.

---

← →
kaZaNoVa ©   (2007-01-06 21:42) [11]

Вредина   (06.01.07 21:39) [10]
Вас что-то беспокоит? хотите об этом поговориить?

---

← →
Чапаев ©   (2007-01-06 21:50) [12]

> [10] Вредина   (06.01.07 21:39)
А мне -- с бабками.

---

Страницы: 1 вся ветка

Текущий архив: 2007.01.28;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.056 c