当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: {1.} functionMyExitWindows(Rebo
 

 

 ·delphi中动态调用dll    »显示摘要«
    摘要: 显式例子: unit main; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, extctrls, grids, dbgrids, db, dbtables, dbctrls; type......
    摘要: windows可以将多个显示器映射为虚拟桌面,使我们可以利用这一点设计出方便工作的应用程序。例如powerpoint就充分发挥了双显示器的优势(大多数的笔记本电脑都支持),它可以在一个显示器上播放幻灯片,而在另一个显示器上显示备注,可以控制播放的进程,使使用者做商务演说的时候非常等心应手。那么我们怎么开发这种应用程序呢?这篇文章将向你展示如果用delphi实现使用多显示器的应用程序。 ......


Shutdown reboot logoff Windows 98/ME/XP
{1.}

【程序编程相关:delphi7找不到TBDEClient

【推荐阅读:一个读取速度超快的FileStream!

function myexitwindows(rebootparam: longword): boolean; 【扩展信息:发现Delphi 2005的几个小Bug

var

  ttokenhd: thandle;

  ttokenpvg: ttokenprivileges;

  cbtpprevious: dword;

  rttokenpvg: ttokenprivileges;

  pcbtppreviousrequired: dword;

  tpresult: boolean;

const

  se_shutdown_name = seshutdownprivilege;

begin

  if win32platform = ver_platform_win32_nt then

  begin

    tpresult := openprocesstoken(getcurrentprocess(),

      token_adjust_privileges or token_query,

      ttokenhd);

    if tpresult then

    begin

      tpresult := lookupprivilegevalue(nil,

                                       se_shutdown_name,

                                       ttokenpvg.privileges[0].luid);

      ttokenpvg.privilegecount := 1;

      ttokenpvg.privileges[0].attributes := se_privilege_enabled;

      cbtpprevious := sizeof(rttokenpvg);

      pcbtppreviousrequired := 0;

      if tpresult then


...   下一页
    摘要: 在一些碰到过的多媒体软件编制过程中通常需要彻底屏蔽任务条,通常的办法是调用showwindow(h,sw_hide)来隐藏任务条,但是不能屏蔽开始菜单,通过键盘的win功能键还是可以打开开始菜单,所以配合键盘钩子,来屏蔽开始菜单。 library hide; { important note about dll memory management: sharemem must be th......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE