
system
文章平均质量分 54
iseekcode
Delphi票友
展开
-
Get system default language
Use GetSystemDefaultLangID function. It returns identifier of system language. And after that, use VerlanguageName procedure. It translates this identifier to PChar-string. procedure TForm1.Button转载 2009-10-10 21:27:00 · 902 阅读 · 0 评论 -
Create a temporary file name in Windows temp area
Create a temporary file name in Windows temp area {******************************************************function skuGetTempFileName(prefix: string): string;Creates a temporary file name with th转载 2010-02-03 14:26:00 · 741 阅读 · 0 评论 -
如何获取多核、多cpu系统中指定cpu的序列号
如何获取多核、多cpu系统中指定cpu的序列号作者:SkyJacker(转贴请保持完整并注明作者和出处)http://www.cnpack.orgCnPack IV QQ Group: 1309702007-01-23感谢:Passion,Bahamut,早安,空气,SkyJacker...没有Bahamut的奇思妙点,就没有这片文章。在多cpu、多核中,会随机的获得不同的序列号.这就为转载 2010-02-03 13:56:00 · 1851 阅读 · 0 评论 -
How can I read native text of current locale?
How can I read native text of current locale? Sometimes in application we want to show a text with description of current used locale.For example, "english", "russian", "ukrainian", "chinese" etcFor转载 2009-11-22 21:54:00 · 618 阅读 · 0 评论 -
How to make a child form listen to broadcasted messages
How to make a child form listen to broadcasted messagesIn the sender add a procedure such as: procedure TForm1.Button2Click(Sender: TObject);var Receiver: THandle; buffer: array[0..1023] of char转载 2009-11-17 12:37:00 · 579 阅读 · 0 评论 -
GetStockObject Function
GetStockObject FunctionThe <a id="ctl00_MTCS_main_ctl01" onclick="function onclick(){Track(ctl00_MTCS_main_ctl00|ctl00_MTCS_main_ctl01,this);}" href="http://msdn.microsoft.com/en-us转载 2009-11-08 22:57:00 · 585 阅读 · 0 评论 -
发送消息执行记事本的“另存为”菜单功能
发送消息执行记事本的“另存为”菜单功能procedure TForm1.FormCreate(Sender: TObject);var hNotepad: Cardinal;begin hNotepad := FindWindow(Notepad, nil); if hNotepad > 0 then begin SendMessage(hNotepad, WM_COMMAND,转载 2009-10-29 14:37:00 · 880 阅读 · 0 评论 -
Window 消息大全使用详解
Window 消息大全使用详解消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的,这个记录中包含了消息的类型以及其他信息。例如,对于消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的转载 2009-10-29 10:55:00 · 505 阅读 · 0 评论 -
delphi获取Windows系统的进程运行信息
delphi获取Windows系统的进程运行信息 自从出现windows系统以来,各种各样的软件层出不穷。购买或者免费下载以后,轻轻点击Install或者Setup以后,稍作些许简单配置就完成安装的整个过程。显然这给用户带来了许多方便,但对用户来说这些软件似乎是个"黑匣子",展现在用户面前的仅仅是华丽的外表和简洁的操作,至于软件运行过程中调用了哪些文件和模块文件就无法知道了。或许真正希望转载 2009-10-28 21:43:00 · 2871 阅读 · 0 评论 -
捕捉窗体的最小化、最大化、还原消息
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; //在Public部分声明procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) then begin //最小化消息 end else if (Msg.CmdType =转载 2009-10-28 22:42:00 · 2750 阅读 · 0 评论 -
如何控制其他程序窗体上的窗口控件
用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是回调函数。我的理解是这样的: 回调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如windows操作系统,比如其他的程序等等之类的。但是什么时候被调用却不知道了。回调函数一般是按照调用者的要求定义好参数和返回值的类型,你向调用者提供你的回调函数的入口地址,然后调用者有什么事件发生的时候就可以随时按照你提供的地址调用转载 2009-10-28 22:12:00 · 1118 阅读 · 0 评论 -
DELPHI 中如何提升进程令牌
转:DELPHI 中如何提升进程令牌近一段时间在用DELPHI写个程序,当我写到一个结束其他进程的模块的时候有时不成功,那是因为其他进程,如病毒进程的权限高,通过常规的结束进程的函数行不通,要首先提高自身程序的权限,再结束其他进程在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代码中提取出了一个好的提升进程令牌的函数,不敢独享,跟大家分享下 头部请加转载 2010-03-07 16:16:00 · 927 阅读 · 0 评论