VPF::Поиск файлов с копированием - Форум программистов

Busik

Дата 9.11.2006, 01:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.10.2006

Репутация: нет
Всего: нет

Господа программисты ! Помогите решить проблему!
Как на Delphi одним кликом бутона осуществить программный поиск всех файлов *.JPEG
скажем на всём диске C:\ ,и копировать эти файлы в заданную папку.
Особо буду признателен за пример .

Quadr0

Дата 9.11.2006, 01:56 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 13:20

Cashey

Дата 9.11.2006, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

поиск файлов на выбор

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Busik

Дата 9.11.2006, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.10.2006

Репутация: нет
Всего: нет

С поиском всё ясно как день ,но как согласно списку в Memo скопировать эти файлы.
Нашол такую функцию,у кого она работает?Вот листинг.

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function CopyFiles( Handle : Hwnd; Src : array of string; Dest : string; 
Move : Boolean; AutoRename : Boolean ) : Integer; 
var
  SHFileOpStruct : TSHFileOpStruct; 
  SrcBuf : TBuffer;
begin 
  CreateBuffer( Src, SrcBuf ); 
  with SHFileOpStruct do 
    begin 
      Wnd := Handle; 
      wFunc := FO_COPY; 
      if Move then wFunc := FO_MOVE; 
      pFrom := Pointer( SrcBuf ); 
      pTo := PChar( Dest ); 
      fFlags := 0; 
      if AutoRename then fFlags := FOF_RENAMEONCOLLISION; 
      fAnyOperationsAborted := False; 
      hNameMappings := nil; 
      lpszProgressTitle := nil; 
    end; 
  Result := SHFileOperation( SHFileOpStruct ); 
  SrcBuf := nil; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFiles( Handle, [ 'C:\Test1', 'C:\Test2' ], 'C:\Temp', True, True );
end; 

end.

Это сообщение отредактировал(а) Snowy - 9.11.2006, 14:41

Busik

Дата 9.11.2006, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.10.2006

Репутация: нет
Всего: нет

У меня на Delphi 6 при компиляции две ошибки,подскажите как исправить.

[Error] Unit1.pas(29): Undeclared identifier: 'TBuffer'
[Error] Unit1.pas(31): Undeclared identifier: 'CreateBuffer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Sunvas

Дата 9.11.2006, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Busik @ 9.11.2006, 14:22

)

[Error] Unit1.pas(29): Undeclared identifier: 'TBuffer'
[Error] Unit1.pas(31): Undeclared identifier: 'CreateBuffer'

Код


type TBuffer = array of Char; 


procedure CreateBuffer( Names : array of string; var P : TBuffer ); 
var I, J, L : Integer; 
begin 
  for I := Low( Names ) to High( Names ) do 
    begin 
      L := Length( P ); 
      SetLength( P, L + Length( Names[ I ] ) + 1 ); 
      for J := 0 to Length( Names[ I ] ) - 1 do 
        P[ L + J ] := Names[ I, J + 1 ]; 
      P[ L + J ] := #0; 
    end; 
  SetLength( P, Length( P ) + 1 ); 
  P[ Length( P ) ] := #0; 
end;

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Busik

Дата 9.11.2006, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.10.2006

Репутация: нет
Всего: нет

Спасибо, всё работает !!!
Я всегда знал что виноград самый лучший forum. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »