delphi 线程
来源:互联网 发布:代码淘宝模板多少钱 编辑:程序博客网 时间:2024/05/22 13:24
unit threadutil;
interface
uses classes,windows;
type
TLock=class
private FLock: TRTLCriticalSection;
public constructor create;
public procedure lock;
public procedure unlock;
end;
TBaseThread=class(TThread)
public test:integer;
public onwork:TNotifyEvent;
procedure execute;override;
end;
implementation
constructor TLock.create;
begin
InitializeCriticalSection(FLock);
end;
procedure TLock.lock;
begin
EnterCriticalSection(FLock);
end;
procedure TLock.unlock;
begin
LeaveCriticalSection(FLock);
end;
procedure TBaseThread.execute;
begin
if assigned(onwork) then
onwork(self);
end;
end.
- delphi 线程
- delphi线程
- delphi 线程
- 线程!线程!!线程!!!(Delphi版)
- 线程!线程!!线程!!!(Delphi版)
- 线程!线程!!线程!!!(Delphi版)
- Delphi中的线程类
- Delphi中的线程类
- Delphi中的线程类
- Delphi中的线程类
- DELPHI线程类
- Delphi中的线程类
- delphi关于线程安全问题
- delphi线程同步
- delphi 关闭线程函数
- DELPHI 线程池代码
- Delphi中的线程类
- DELPHI 线程池代码
- SQl函数
- 年薪10万的乞丐给我上了震撼的一课 (转)
- 表的自增列问题
- 有趣的 UNIX 时间: 1234567890
- 标准http状态码
- delphi 线程
- 哄老婆的词
- 表数据的导入导出
- 专家:云计算会遭到与SOA一样的衰败吗?
- CThread类
- Java程序的输入与输出
- 开始学写一些辅助编码的基类(1)--关于数据库操作
- 用jQuery合并表格中左侧表头同列相同文本的相邻单元格
- 中国教育“绞肉机”