Delphi 创建线程(API)
来源:互联网 发布:学生用爽肤水推荐知乎 编辑:程序博客网 时间:2024/06/05 18:38
(*----下面这个程序介绍了我们在使用线程及未使用线程二种情况下,运行该程序的反 应。当点UsedThread按钮时,则建立一个线程,这时我们可以在程序进行计算的同 时,改变窗体的尺寸及移动它。当按下NoUsedThread按钮时,不建立线程,我们会发 现在程序没有计算完之前根本不能做其它任何事情!unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
UsedThread: TBitBtn;
NoUsedThread: TBitBtn;
procedure UsedThreadClick(Sender: TObject);
procedure NoUsedThreadClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function MyThreadFunc(P:pointer):Longint;stdcall;
var
i:longint;
DC:HDC;
S:string;
begin
DC:=GetDC(Form1.Handle);
for i:=0 to 500000 do begin
S:=Inttostr(i);
Textout(DC,10,10,Pchar(S),length(S));
end;
ReleaseDC(Form1.Handle,DC);
end;
procedure TForm1.UsedThreadClick(Sender: TObject);
var
hThread:Thandle;//定义一个句柄
ThreadID:DWord;
begin
//创建线程,同时线程函数被调用
hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
if hThread=0 then
messagebox(Handle,'Didn’tCreateaThread',nil,MB_OK);
end;
procedure TForm1.NoUsedThreadClick(Sender: TObject);
begin
MyThreadfunc(nil);
//没有创建线程时,直接调用线程函数
end;
end.
- Delphi 创建线程(API)
- Delphi多线程 尽量避免使用API创建线程
- delphi线程创建事例
- Pthreads API解析(创建销毁线程)
- Delphi中使用Win32 API创建内建消息循环的线程函数
- Delphi调用CreateProcess创建线程
- Delphi 下用Windows API 创建窗体
- Delphi下用API代码创建Form
- 线程(创建线程)
- 多线程(九):线程相关知识点(创建方式,API,守护线程,状态转换)
- Delphi 多线程 (API篇)
- window下创建线程的API方法
- window下创建线程的API方法
- WINDOWS API学习笔记之创建线程
- delphi中用api创建多线程的简单例子
- Delphi Thread 线程(1)
- Delphi 线程学习(一)
- Delphi API
- [JS] 改变控件的透明度
- 防止空连接#返回到页面顶端
- 段选择符,段描述符,80x86的页表寻址机制
- Delphi 字符串
- CSS精粹之布局技巧
- Delphi 创建线程(API)
- 疯狂自爆(图)
- 保护U盘批处理文件
- 网站素材
- Delphi中对象解除技巧
- OpenCV学习——step的应用
- 一个简单的DFS(深度优先搜索)算法加剪枝技术的程序演示
- uclinux内核中的I2C驱动学习
- 用Delphi创建服务程序