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正式上市开卖.在"沉寂"了 ...
一周排行
  •   问题 想要实现一个功能 比如一个listbox1 内容为 fad1saZZZffffdsfffdfg fdsaafd999afdaffaf fd3safdafdsa999fdssafd fdsd9999afhgd ...
  • 除去课业上的事,今天看到两个比较有意思的,一个是pjax,这个技术大概是去年前年开始有的,第二是websocket,这个的话其实前两个星期就看到了,不过只是了解了一下,主要说说pjax,这和ajax听着很像,其实也正 ...
  • WLAN相关概念: 1.AP(Access Point):无线终端访问有线网络的接入点,相当于无线终端与有线网络通信的 桥梁. 2.AC(Access Control):无线控制器通过有线网络与AP 相连,用于集中管 ...
  • 特仑苏金牌10周年之际,携手<中国企业家>杂志.易网共同开启“十年敢想”,为您奉献十位企业家的十年敢想故事.因为敢想,我们变得更好,更好的十年,从更好的你开始.今日敢想人物:董明珠 董明珠,年龄:61.1 ...
  • 尽管三星被裁定赔偿苹果10.5亿美元(约合人民币66.75亿元),但双方的专利案尚未算落幕--苹果正拟定一份申请禁售的28款三星产品名单,经美国法院认可后,这些产品将被禁止在当地市场销售.其中中国涉及2款手机和1款平 ...
  • $my_curl = curl_init(); //初始化一个curl对象 curl_setopt($my_curl, CURLOPT_URL, "http://www.webjoy.net"); ...
  • 今日(2月23日)吉视传媒将在A股上市,其"低价传媒股"概念被分析人士视为具有资金热炒的潜质.资料显示,吉视传媒主要从事有线电视网络和规划建设.经营管理.维护和广播电视节目的接受.转发和传播,是东 ...
  •  [每日一题] 11gOCP 1z53 :4 普通文件损的最佳恢复步骤       正确答案C   这题简单,主要考在归档模式下,有备份,一个非关键性的文件坏了的恢复过程.   答案A不正确, ...
  • sudo apt-get install python-scipy sudo apt-get install python-numpy sudo apt-get install python-matplotlib p ...
  • 题意:有0,1,2三种任务,0任务中的任务至少得完成一件,1中的任务最多完成1件,2中的任务随便做.每一个任务最多只能做一次 .n代表有n组任务,t代表有t分钟,m代表这组任务有m个子任务,s代表这m个子任务属于0, ...