Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Ноя

Дерево жесткого диска в StringList

(читать всё…)

Добавлено в Пост-обзор. Дата Ноябрь 6th, 2010

6th

Поиск и замена файлов в заданных каталогах

Например так : (читать всё…)

Добавлено в Пост-обзор. Дата Ноябрь 6th, 2010

22nd
Сен

Скрытное копирование каталога

Terran:

от замечательная функция для копирования:

Function FullDirectoryCopy(SourceDir,TargetDir: String; StopIfNotAllCopied,
OverWriteFiles: Boolean): Boolean;
Var
    SR: TSearchRec;
    I: Integer;
Begin
    Result:=False;
    SourceDir:= IncludeTrailingBackslash(SourceDir);
    TargetDir:= IncludeTrailingBackslash(TargetDir);
    If Not DirectoryExists(SourceDir) Then Exit;
    If Not ForceDirectories(TargetDir) Then Exit;
    I:=FindFirst(SourceDir + ‘*’, FaAnyFil

e, SR);
    Try
        While I = 0 Do
        Begin
            If (SR.Name <> ”) And (SR.Name <> ‘.’) And (SR.Name <> ‘..’) Then
            Begin
                If SR.Attr = FaDirectory Then
                Result:= FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME, StopIfNotAllCopied, OverWriteFiles)
                Else If Not (Not OverWriteFiles And FileExists(TargetDir + SR.Name)) Then
                Result:= CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir + SR.Name),

False)
                Else Result:=True;
                If Not Result And StopIfNotAllCopied Then Exit;
            End;
            I:=FindNext(SR);
        End;
    Finally
        SysUtils.FindClose(SR);
    End;
End;

Тема на форуме

Добавлено в Топик-обзор. Дата Сентябрь 22nd, 2010

8th
Сен

Как в указанной папке и её подпапках найти все файлы определённого типа?

код:

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
SearchRec: TSearchRec;
begin
Dir := IncludeTrailingBackslash(Dir);

   if FindFirst(Dir + ‘*.*’, faAnyFile, SearchRec) = 0 then
     repeat
       Application.ProcessMessages;

       if (SearchRec.Attr and faDirectory) 0 then begin
         if (SearchRec.name ‘.’) and (SearchRec.name ‘..’) then
                 DirSearch(Dir + SearchRec.name, Mask, sl)
       end
       else
         if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
           Sl.Add(Dir + SearchRec.Name);
     until FindNext(SearchRec) 0;
   FindClose(SearchRec);
end;

// ИСПОЛЬЗОВАТЬ ТАК:
procedure TForm1.Button1Click(Sender: TObject);
begin
DirSearch(’C:\TEMP’, ‘*.AVI’, Memo1.Lines);
end;

Тема на форуме

Добавлено в Пост-обзор. Дата Сентябрь 8th, 2010

5th
Сен

Вывод содержимого папки

Пример выводит содержащиеся в папке файлы и папки.

Serge_Bliznykov:

код:

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;

var
   Dir : String;
   SearchRec: TSearchRec;
begin
   WriteLn;
   Write(’What’’s directory need dir ? ‘);
   Readln(Dir);

Dir := IncludeTrailingBackslash(Dir);

   if FindFirst(Dir + ‘*.*’, faAnyFile, SearchRec) = 0 then
     repeat
       if (SearchRec.Attr and faDirectory) 0 then begin
         if (SearchRec.name ‘.’) and (SearchRec.name ‘..’) then
            WriteLn(Dir + SearchRec.name,’ ‘)
       end
       else
          WriteLn(Dir + SearchRec.name,’ ‘,SearchRec.Size);
     until FindNext(SearchRec) 0;
   FindClose(SearchRec);
end.

Тема на форуме

Добавлено в Пост-обзор. Дата Сентябрь 5th, 2010

27th
Июл

Как сделать общий доступ к папке в сети по паролю?

Sparky:

Вообщем вдруг кому-то пригодиться пишу что нужно сделать:
1. «Панели управления» и отмечаем чекбокс “Общий доступ к файлам и принтерам”
2. Воспользоваться компонентом “Одноранговая сеть”
3. включить “Служба общего доступа к файлам и принтерам”
4. выбрать Сетевой доступ: модель совместного доступа…”
5. отключить гостя
6. назначить права на доступ к папке, в доступе удалить “все”
7. на 2 машине в cmd ввести
Код:

net use x: \\имя_компа_где_лежит_папка\ имя_папки пароль_пользователя /user:имя_компа_где_лежит_папка\пользователь

Все

Тема на форуме

Добавлено в Пост-обзор. Дата Июль 27th, 2010

27th
Апр

Как найти все подпапки скрытой папки.

Код:


procedure TForm1.ffind(cat: string);
var
  searchResult : TSearchRec;
begin
ListBox1.Clear;
  // Пробуем найти каталоги выше текущего каталога
  SetCurrentDir('..');

  if FindFirst(cat+'*', faDirectory, searchResult) = 0 then
  begin
    repeat
      // Показываем только каталоги
      //if (searchResult.attr and faDirectory) = faDirectory
      //then
      Listbox1.Items.Add(searchResult.Name);
    until FindNext(searchResult)  0;

    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;
end;

Тема на форуме.

Добавлено в Пост-обзор. Дата Апрель 27th, 2010

10th
Фев