摘要：
//声明: GetActiveWindow: HWND; {无参数; 返回当前活动窗口的句柄} //举例: var h: HWND; begin h := GetActiveWindow; FlashWindow(h, True); end; 阅读全文
posted @ 2008-02-12 12:43
万一
阅读(10894)
评论(0)
推荐(0)
摘要：
//声明: FlashWindow( hWnd: HWND; {窗口句柄} bInvert: BOOL {设为 True 才会闪烁} ): BOOL; //举例: begin FlashWindow(Handle, True); end; 阅读全文
posted @ 2008-02-12 12:39
万一
阅读(5357)
评论(1)
推荐(0)
摘要：
//声明: SetVolumeLabel( lpRootPathName: PChar; {根路径} lpVolumeName: PChar {新卷标指针, nil 表示删除卷标} ): BOOL; //举例: begin SetVolumeLabel('c:\', 'NewLabel'); end; 阅读全文
posted @ 2008-02-12 11:41
万一
阅读(4175)
评论(0)
推荐(0)
摘要：
//声明: SetCurrentDirectory( lpPathName: PAnsiChar {路径名} ): BOOL; GetCurrentDirectory( nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区} ): DWORD; {返回目录实际长度} //举例: var... 阅读全文
posted @ 2008-02-12 10:44
万一
阅读(9102)
评论(0)
推荐(0)
摘要：
//声明: RemoveDirectory( lpPathName: PAnsiChar {目录名} ): BOOL; //举例: var Dir: string; begin Dir := 'c:\temp\Test'; if RemoveDirectory(PChar(Dir)) then ShowMessage(Dir + ' 已被删除') else ... 阅读全文
posted @ 2008-02-12 10:33
万一
阅读(4309)
评论(3)
推荐(0)
摘要：
//声明: CreateDirectoryEx ( lpTemplateDirectory: PChar; {模版目录名} lpPathName: PChar; {新目录名} lpSecurityAttributes: PSecurityAttributes {TSecurityAttributes 结构的指针... 阅读全文
posted @ 2008-02-12 10:23
万一
阅读(3895)
评论(0)
推荐(0)
摘要：
//声明: CreateDirectory( lpPathName: PChar; {目录名} lpSecurityAttributes: PSecurityAttributes {TSecurityAttributes 结构的指针} ): BOOL; //TSecurityAttributes 是 _SECURITY_ATTRIBUTES... 阅读全文
posted @ 2008-02-12 10:04
万一
阅读(9394)
评论(0)
推荐(0)
浙公网安备 33010602011771号