Delphi&Delphi.NET技术

导航

随笔分类 -  Delphi Win32技术

调用Windows内核
摘要:对程序员而言,有一句至理名言就是:“写得好就是写得少!(Writing better is writing less)” 回答: 以下命令可以直接在Windows的运行窗口直接执行,在Delphi中你要这样使用: winexec(Pchar('ABCD'),sw_Show); 其中"ABCD"代表以下命令之一: "rundll32 shell32,Control_RunDLL" - 运行控制面板 ... 阅读全文

posted @ 2005-05-05 16:56 睿亲王多尔衮 阅读(520) 评论(0) 推荐(0)

在20000下关机
摘要:在20000下关机不象在98下直接调用ExitWindows函数就成,你首先要用OpenProcessToken函数打开与进程相关的访问信令然后再使用ExitWindow函数退出Win2000. 以下这段程序可供参考: var hToken :THandle ; tkp :TOKEN_PRIVILEGES ; otkp :TOKEN_PRIVILEGES ; dwLen :Dwor... 阅读全文

posted @ 2005-05-05 16:55 睿亲王多尔衮 阅读(426) 评论(0) 推荐(0)

用 Delphi 下载网页
摘要:新建一个工程,放上一个TIdHTTP控件,一个TIdAntiFreeze控件,一个TProgressBar用于显示下载进度。最后放上一个TButton用于开始执行我们的命令。代码如下: procedureTForm1.Button2Click(Sender:TObject); var MyStrea... 阅读全文

posted @ 2005-05-05 16:53 睿亲王多尔衮 阅读(759) 评论(0) 推荐(0)