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正式上市开卖.在"沉寂"了 ...
一周排行
  • SQL盲注+本地文件包含.如果可以请给高点分以示鼓励!嘿嘿! 注入点实在是太多,我挑了一处作为演示:星号部分为注入点   GET /events/share/index.php?category=&domai ...
  • 当xp系统修复安装后,会遇到以下几个问题 1首先本机的ip配置丢失,当重新设置地址后,会提示已将此地址绑定在另一个接口中,此时需要在注册表中搜索你要设定的ip地址,然后删除注册表中关于TCP配置的注册表. 2IE打开 ...
  • 首先看一下效果: 自定义的View: import com.example.circlepregress.R; import android.content.Context; import android.conte ...
  • 灵科自组网路由协议简析   所谓的自组网是移动通信和电脑网络相结合的一种网络模式,信息交换采用电脑网络中的分组交换机制,用户终端是可以移动的便携式终端,自组网中每个用户终端都兼有路由器和主机两种功能.   今天我们要 ...
  • com_invoke()<?php// ==================================================================================/// ...
  • 因为<The C Programming Language>一书中有一个练习,需要用到快速排序,所以又复习了一下,感觉收获颇多,故而分享之. 快速排序的核心是一种 divide and conquer 算 ...
  • Ajax实现的效果       究竟Ajax能实现什么功能呢?今天下午学习了一下Ajax,现在跟大家分享一下我的学习心得.Ajax是什么?工作机制又是什么?可能不大准确,只是我个人看了视频学习后的一点点看法.     ...
  • 这篇文章主要介绍了使用css如何操作Table没有外边框只有内边框,需要的朋友可以参考下 效果图:  实现方法: 代码如下: <!DOCTYPE html> <html> <head&g ...
  • #!/usr/bin/env python #-*- coding:utf-8 -*- #http://mysql-python.sourceforge.net/MySQLdb.html#introduction # ...
  • 申请过程,大家可以在网上找一下.我这里只写下申请中遇到的问题.基本是口述,没有写太多技术性的问题.不喜勿喷 1.开发者帐号申请.会有一个名字.这个名字还请大家不要乱填. 2.邓白氏码的申请,在网上这步有很多都没有说清 ...