procedure npcok;
begin
log('1');
asm
push 1 mov eax,$00484f90
call eax
end;
log('2');end;
以上函数 用BUTTON就行 但放在线程下就不用了 ,不知道什么问题
以下为线程
procedure TMyThread.Execute;
var
i: Integer;
begin
FreeOnTerminate := True; //Ïß³ÌÖ´ÐÐÍê³Éºó×Ô¶¯ÊÍ·Å
// rw(Form1.edt2.Text);
npcok;
end;
procedure TForm1.btn8Click(Sender: TObject);
var MyThread: TMyThread;
begin
MyThread := TMyThread.Create(True);//´´½¨Ïß³Ì MyThread := TMyThread.Create(False);Ϊֱ½ÓÖ´ÐÐ ²»ÐèÒªµÈ´ý
MyThread.Resume; //µ÷ÓÃÏß³Ì
end;
begin
log('1');
asm
push 1 mov eax,$00484f90
call eax
end;
log('2');end;
以上函数 用BUTTON就行 但放在线程下就不用了 ,不知道什么问题
以下为线程
procedure TMyThread.Execute;
var
i: Integer;
begin
FreeOnTerminate := True; //Ïß³ÌÖ´ÐÐÍê³Éºó×Ô¶¯ÊÍ·Å
// rw(Form1.edt2.Text);
npcok;
end;
procedure TForm1.btn8Click(Sender: TObject);
var MyThread: TMyThread;
begin
MyThread := TMyThread.Create(True);//´´½¨Ïß³Ì MyThread := TMyThread.Create(False);Ϊֱ½ÓÖ´ÐÐ ²»ÐèÒªµÈ´ý
MyThread.Resume; //µ÷ÓÃÏß³Ì
end;
解决方案 »
- 图片存储问题(急)
- 关于adodataset 的locktype=ltBatchOptimistic数据批量处理 刪除
- 请教大家在SQL中的日期处理问题,在人事表怎样用SQL语句更新全部员工的的工龄和年龄?
- 将数据库中某一字段添加到combobox中去。不希望有重复的,并且不希望将空记录添加上去。怎么办呢?
- 如何处理大数组?例如超过100万长度的数组?
- 用户权限管理问题 ,大虾们进来看看呀!!!!!!!!!!!
- 我用delphi有一段时间了,现在想在学习一种语言,是学java还是c#好
- zzzworm :怎么用呢???
- 各位大哥请问一下去那里下载pascal and object pascal(这两种语言不同吗)?
- wwtable4: dataset not in edit or insert mode ???我就弄不懂为什么TABLE也会提示这个错???
- fastreport中 绑定数据自动换行问题
- 如何读USB口打印机返回的值
我是输出到MEMO
乱码是注释 不管在BUTTON下 LOG1 LOG(2) 都没问题 都正常输出了 但放在线程下 就只执行到log(1),没有执行log(2之前的代码)
procedure log(str: string);
var
str1:string;
begin
str1:=str;
sendmessage(Form1.Handle,11113,0,Integer(@str1));
//Form1.mmo1.Lines.Add(str)
end;
var
i: Integer;
begin
FreeOnTerminate := True; //Ïß³ÌÖ´ÐÐÍê³Éºó×Ô¶¯ÊÍ·Å
// rw(Form1.edt2.Text);
Synchronize(npcok); // 这句应该这样写!
end;