Hi used your greate component TFindFile in my project .
i'm wondering if it's possible to add the Suspend and Resume feature to its Thread it will be very greate .
Regards Salim.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FindFile,
SyncObjs; // don't miss this unit
type
TForm1 = class(TForm)
FindFile: TFindFile;
btnSuspend: TButton;
btnReume: TButton;
procedure FormCreate(Sender: TObject);
procedure FindFileFolderChange(Sender: TObject; const Folder: String;
var IgnoreFolder: TFolderIgnore);
procedure FindFileFileMatch(Sender: TObject; const Folder: String;
const FileInfo: TSearchRec);
procedure btnSuspendClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnReumeClick(Sender: TObject);
private
{ Private declarations }
Event: TEvent;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Event := TEvent.Create(nil, True, True, '');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Event.Free;
end;
procedure TForm1.FindFileFolderChange(Sender: TObject;
const Folder: String; var IgnoreFolder: TFolderIgnore);
begin
Event.WaitFor(INFINITE);
// your code
end;
procedure TForm1.FindFileFileMatch(Sender: TObject; const Folder: String;
const FileInfo: TSearchRec);
begin
Event.WaitFor(INFINITE);
// your code
end;
procedure TForm1.btnSuspendClick(Sender: TObject);
begin
Event.ResetEvent;
end;
procedure TForm1.btnReumeClick(Sender: TObject);
begin
Event.SetEvent;
end;
end.
Return to DELPHI AREA Projects
Users browsing this forum: No registered users and 3 guests