Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

Как вызвать ?   Найти похожие ветки 

 
SemFLY ©   (2002-07-12 18:23) [0]

Я создал отдельный поток TThread. А как теперь мне вызвать эту процедуру в основном модуле программы, RF.Execute не работает.


unit Lame_Rename;

interface

uses
Windows,
SysUtils,
Classes,
Dialogs,
Lame_Code;

type
RF = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

implementation

{ RF }

procedure RF.Execute;
var
PI: TProcessInformation;
Success: integer;
SearchRec: TSearchRec;
begin
WaitForSingleObject(pi.hProcess,Infinite);
Success := FindFirst(ExtractFileName(Form1.CheckListBox1.Items[i]),faAnyFile,SearchRec);
if Success = 0 then
begin
RenameFile(OutFile,SaveMp3 + ExtractFileName(ChangeFileExt((Form1.CheckListBox1.Items[i]),".mp3")));
end;
FindClose(SearchRec);
end;
end.


-------
Спасибо !


 
Skier ©   (2002-07-12 18:26) [1]

>SemFLY

constructor Create(CreateSuspended: Boolean);

Description

Call Create to create a thread in an application. If CreateSuspended is False, Execute is called immediately. If CreateSuspended is True, Execute won’t be called until after Resume is called.



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

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

Наверх




Память: 0.46 MB
Время: 0.014 c
3-81180
mrgrin
2002-07-04 15:50
2002.07.25
Преобразование русской кодировки при экспорте из DBGrid


1-81272
CrazyRoger
2002-07-15 13:05
2002.07.25
Можно ли использовать TclientSocket в консольных приложениях?


3-81146
Юра
2002-06-27 13:08
2002.07.25
Paradox без BDE


14-81481
ZimZum
2002-06-27 23:27
2002.07.25
Браузер


4-81514
artgamer
2002-05-19 15:41
2002.07.25
Drag&Drop. Опять.