摘要: ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil} Directory: PChar; ... 阅读全文
posted @ 2008-02-13 21:59 万一 阅读(47160) 评论(19) 推荐(3)
摘要: //声明 WinExec( lpCmdLine: LPCSTR; {文件名和参数; 如没指定路径会按以下顺序查找: 程序目录/当前目录/System32/Windows/PATH环境变量} uCmdShow: UINT {启动选项} ): UINT; //返回值: 大于 31 {调用成功} 等于 0 ... 阅读全文
posted @ 2008-02-13 14:14 万一 阅读(20841) 评论(12) 推荐(1)
摘要: //声明 GetSystemPowerStatus( var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 结构} ): BOOL; //TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 结构的重定义: _SYSTEM_POWER_STATUS = packed record A... 阅读全文
posted @ 2008-02-13 13:37 万一 阅读(5494) 评论(2) 推荐(1)
摘要: //声明 GetLocalTime( var lpSystemTime: TSystemTime {TSystemTime 结构} ); {无返回值} //设置本地时间 SetLocalTime( const lpSystemTime: TSystemTime {TSystemTime 结构} ): BOOL; //SetSy... 阅读全文
posted @ 2008-02-13 11:31 万一 阅读(8388) 评论(0) 推荐(0)
摘要: //声明 SwapMouseButton( fSwap: BOOL {True: 交换; False: 恢复} ): BOOL; 阅读全文
posted @ 2008-02-13 08:49 万一 阅读(2142) 评论(0) 推荐(0)
摘要: //声明 GetDoubleClickTime: UINT; {无参数; 返回鼠标双击间隔时间, 单位是毫秒} SetDoubleClickTime( Interval: UINT {依毫秒为单位的时间数} ): BOOL; //举例: var c: Cardinal; begin c := GetDoubleClickTime; ShowMessage(... 阅读全文
posted @ 2008-02-13 08:38 万一 阅读(3674) 评论(0) 推荐(0)