摘要：
显示系统信息
实例说明
在本实例中，我们通过使用sysinfo控件得到有关操作系统的信息，屏幕和电源的信息。程序运行结果如图97-1所示。
技术要点
l 使用sysinfo控件
l 得到操作系统版本号、电源属性
实现过程
■ 新建项目
打开visual studio.net，选择“新建项目”，在项目类型窗口中选择“visual bas......
摘要：以下内容转载自http://www.blong.com/conferences/borconuk2002/interop1/win32anddotnetinterop.htm#pinvoke
.net interoperability: .net ? win32
brian long (www.blong.com)
table of contents
introduction
......
VB.NET实现关机和重新启动private declare function exitwindowsex lib "user32" (byval uflags as integer, byval dwreserved as integer) as integer
const ewx_logoff as short = 0 【程序编程相关:
SYSTEM FLAGS AND FIE】
const ewx_force as short = 4 【推荐阅读:
多表连接中的各种连接的区别和联系】
const ewx_shutdown as short = 1 【扩展信息:
正确优雅的解决用户退出问题——JSP】
const ewx_reboot as short = 2
dim retval as integer
´ 定义esc按键
const vk_escape as short = &h1bs
private sub command1_click(byval eventsender as system.object, byval eventargs as system.eventargs) handles command1.click
if option1.checked then
´ 注销当前用户
retval = exitwindowsex(ewx_force, 0)
elseif option2.checked then
´ 关闭计算机
retval = exitwindowsex(ewx_shutdown, 0)
elseif option3.checked then
´ 重新启动
retval = exitwindowsex(ewx_reboot, 0)
end if
end sub...
下一页 摘要：以下内容转自：http://www.drbob42.com/examines/examin55.htm
delphi 8 for .net assemblies; packages and librariesin this article, bob swart will explain what .net assemblies are, how we can use them in delphi......
