Delphi编程
文章平均质量分 74
foxriver_886
这个作者很懒,什么都没留下…
展开
-
sting转换为Unicode
function strtounicode(souce:ansistring):string; var lenz,len,i:integer; uncode:pwidechar; begin len:=length(souce); //length()函数返回的字符串长度是以char字符为单位的,汉字是双字符; lenz:=len-round(len/2)原创 2015-05-04 19:15:10 · 578 阅读 · 0 评论 -
使用DLL共享数据:用钩子记录键盘
做了好几天终于把这个键盘记录的钩子函数给做出来了。中间有好多小毛病值得注意:对于钩子函数形如:Function HotKeyHook(Icode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;export;如果icode如果icode>=0 则在钩子函数定义后,最好使用CallNextHookEx函数来返回其返回值,否则,原创 2015-05-04 19:26:03 · 659 阅读 · 0 评论 -
Delphi 多线程 (API篇)
之前也接触过一些关于多线程的技术文章,但却总是很模糊的状态的,最近通过一个Demo 来一步步理解多线程以及线程同步技术。这篇文章主要是使用Delphi 提供的API 函数来创建线程,今后有时间写一下Delphi中如何使用TThread类创建线程,以方便今后查阅。 试想,如果想要创建一个小程序,程序中的Label控件上不断闪动着我们的实时数据。为了简化,这个小程序的功能就只是循环在L原创 2015-05-07 16:35:54 · 1336 阅读 · 0 评论