Прежде чем задавать вопрос - поищите его в поиске!
+1 голос
35 просмотров
foleder = class(TThread)
  private
  procedure CreatFolder;
  protected
    procedure Execute; override;
  end;
var
  Form6: TForm6;
hSem:THandle=0;
implementation

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
hSem:=CreateSemaphore(nil,1,1,nil);
foleder.Create(false);
foleder.Create(false);
end;

{ foleder }

procedure foleder.CreatFolder;
begin
CreateDir('F:\MyFolder\');
end;

procedure foleder.Execute;
begin
repeat
Synchronize(CreatFolder);
Suspended:=true;
until terminated;
ReleaseSemaphore(hSem,1,nil);
end;
спросил 10 Сен, 15 от Павел (170 баллов) в категории Мастер Delphi | 35 просмотров

2 Ответы

0 голосов
Вы попробуйте это использовать и отпишитесь - работает или нет.
ответил 10 Сен, 15 от krotovroman Мастер (131,190 баллов)
0 голосов
Лучший ответ
У меня вроде, да)
ответил 10 Сен, 15 от аноним
выбран 10 Сен, 15 от krotovroman

Похожие вопросы

0 голосов
3 ответов
спросил 20 Фев, 14 от Виктория Березина в категории Отчеты в 1С | 124 просмотров
0 голосов
0 ответов
+1 голос
1 ответ
513 вопросов
694 ответов
433 пользователей