procedure RunServices(hWndForm :HWND);
var
ThreadID :DWORD;
begin
hThread_clock := CreateThread(nil,0,@myfunc,@hWndForm,0,ThreadID);
end;
function myfunc(param:pointer):integer;
var
hWndform :HWND;
begin
pWndForm := HWND(param^);
.....
单步运行线程,发现param居然是nil
var
ThreadID :DWORD;
begin
hThread_clock := CreateThread(nil,0,@myfunc,@hWndForm,0,ThreadID);
end;
function myfunc(param:pointer):integer;
var
hWndform :HWND;
begin
pWndForm := HWND(param^);
.....
单步运行线程,发现param居然是nil
解决方案 »
- 那位高手有空,请帮我把这段代码转成Delphi的,谢谢!
- 在从Excel表读入数据的过程中,如何建立一个序号列?聆听高手指教
- 各位进来谈谈在开发进销存的一些经验,欢迎参与!!
- 如何将一EXCEL中的内容读到ListView中啊,急,在线等!!!
- 100分,关于打包问题.
- 请问谁有汽车售票系统的软件?有源码最好!
- 一个有趣的小问题,帮帮我,好吗?
- ===傻傻的问一个关于制作CHM帮助的问题===
- 请教如何取得gif/jpg的大小尺寸,并实现Resize/加logo等简单处理?
- 请帮忙解释这个问题。
- 关于在不同的COM/DCOM的Marshaling的问题
- Paradox 中Number类型,sql的写法?
function myfunc(param: Pointer):LongInt;StdCall;