delphi Createthread的线程传参数(小熊论坛的)

示例一:

delphi Createthread的线程传参数(小熊论坛的)
delphi Createthread的线程传参数(小熊论坛的)
Test=record
    a: Integer;
    b: Integer;
  end;
  
  function MyThreadFun(var Param:  Test): Integer; stdcall;
begin
  Form1.Memo1.Text := IntToStr(Param.a);    
  Result := 0;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  Id: Dword;
  P: test;
begin
  p.a:=5;
  Createthread(nil, 0, @MyThreadFun, @p, 0, Id);
end;
View Code

 

示例二:

delphi Createthread的线程传参数(小熊论坛的)
delphi Createthread的线程传参数(小熊论坛的)
  PTest = ^Test;
  Test=record
    a: Integer;
    b: Integer;
  end;
  
  function MyThreadFun(Param: Pointer): Integer; stdcall;
begin
  Form1.Memo1.Text := IntToStr(PTest(Param)^.a);
  Result := 0;
end; 

procedure TForm1.Button3Click(Sender: TObject);
var
  Id: Dword;
  P: test;
begin
  p.a:=5;
  Createthread(nil, 0, @MyThreadFun, @p, 0, Id);
end;
View Code

 

更多相关文章
  • 金万维异速联越权漏洞目录:一. 关于“异速联”二. 关于漏洞利用三. 关于危害风险一. 关于“异速联” 二. 关于漏洞利用可以看到通过“异速联”发布了一个用友软件,供远程办公: 点击此“用友”图标,弹出登陆界面:(服务器DELL位于内网) 异速联软件存在越权漏洞,可以轻易控制此台运行“用友”的服务器 ...
  • 洪偌馨今年以来,外界对于监管部门即将出台互联网金融监管政策的预期不断升温.而在这其中,作为互联网金融领域最具代表性的行业,解决P2P网络借贷行业的准入和监管问题"首当其冲".<第一财经日报>记者获悉,昨日,由中国支付清算协会组织并发起的互联网金融专业委员会在京举行了P ...
  • 北京时间7月2日凌晨消息,苹果向美国法院提出请求,要求颁布一份针对三星的初步禁令,阻止三星使用四项专利.同时,苹果还要求加快审讯进程,从而尽快解决与三星的专利诉讼.如果初步禁令获得许可,它将会被采用在三星Galaxy S 4G智能手机和Galaxy Tab 10.1寸平板上.三星新闻发言人 Kim ...
  • 本文是Grush儿童智能牙刷合伙人翟强所写,记录分享了这款产品的艰难融资之路,文中提到的王勇竞博士是Grush牙刷研发者和创始人,现在居住在美国.36氪之前曾对这款产品有过报道(报道链接).这是最紧张的时刻了.虽然头一夜熬到半夜两点半,但"六一"这一大早还是忍不住爬起来,打开手机 ...
  • 三星最擅长的就是推出热销机型的衍生版,Galaxy S6都出来这么久了,其mini版看来也是准备的差不多了吧.现在有外媒送出了一组所谓Galaxy S6 mini的谍照,其强调机身为全金属材质,机身正面的实体Home按键提供指纹识别.对于这款新机,消息还声称,其屏幕尺寸是4.6或4.7寸,分辨率为7 ...
  • 本报讯 (记者段郴群)PC巨头惠普公司昨日发布新的入门级平板电脑,这是在退出平板市场18个月之后,惠普再次"杀"入平板市场.而此前一日,三星电子发布了8英寸的平板电脑Galaxy Note 8.0,2月9日微软的Surface Pro正式上市开卖.在"沉寂"了 ...
一周排行
  • 易网邮箱经过15年的发展,用户数已突破5亿,对此易网CEO丁磊称,邮箱业务已成为公司的龙头产品和核心战略平台,其将继续专注于技术和产品创新.为更好地满足用户需求,日前易网发布了最新的易网邮箱5.0版,对邮箱进行了重新 ...
  • 在工作中我们经常需要把二维数组变成一维数组.那么就需要循环拿出来,其实有时候我们可以使用一些小技巧,借助php的内置函数来实现,但是我说的只是简单的二维数数组$arr= array('name'=>array( ...
  • 几周之前在博客更新一篇Windows phone应用开发[18]-下拉刷新 博文,有很多人在微博和博客评论中提到了很多问题.其实在实际项目中我基于这篇博文提出解决问题思路优化了这个解决方案.为了能够详细系统解决和说明 ...
  • 一.将PHP预处理器作为Apache的模块(插件) Apache软件自身的功能都是基于模块化管理的. 将PHP预处理器作为Apache的一个模块即可.   在apache/conf/httpd.conf的配置文件中可 ...
  • 1.CONCAT(str1,str2,...) mysql> SELECT CONCAT('My', 'S', 'QL'); -> 'MySQL' mysql> SELECT CONCAT('My' ...
  • 硬件厂商们总是热衷于把它们最新最酷的产品推广给游戏玩家们,如今,以生产竞技摇杆/手柄等主机周边产品而闻名的Mad Catz给PC玩家们带来了他们的最新产品:专门为网游玩家打造的Cyborg M.M.O.7游戏鼠标.
  • 听说过蹭吃蹭喝,您听过"蹭网"吗?现今,越来越多的家庭使用无线路由器上网,随之而来的"蹭网族"迅速壮大.不单如此,"蹭网"设备的买卖也越来越公开化.据福建& ...
  • 此前有传言称冠捷已经与飞利浦草签协议并购后者的电视业务,不过飞利浦似乎没有受到该消息的影响,其自家首款3D电视Philips 8605H目前已经上市开卖. 8605H从严格意义上讲应该是一款"准3D电视&q ...
  • ARM9 2410移植之ARM中断原理, 中断嵌套的误区,中断号的怎么来的 几天前一个学生问我ARM中断嵌套的问题,我才发现原在我心中理所当然的事对学生来说理解实属不易.      ARM有七种模式,我们这里只讨论S ...
  •        MS出了WINDOWS SERVER 2003的SP2了,前幾天一直裝不上SP2, 連著裝了N次,都是裝到2/3就裝不下去了,提示拒絕訪問,最後機子也搞得出問題了,周日重新安裝了一下WINDOIW SE ...