摘要：
//声明: SetWindowPos( hWnd: HWND; {窗口句柄} hWndInsertAfter: HWND; {窗口的 Z 顺序} X, Y: Integer; {位置} cx, cy: Integer; {大小} uFlags: UINT {选项} ): BOOL; //hWndInser... 阅读全文
posted @ 2008-02-12 16:56
万一
阅读(32033)
评论(11)
推荐(2)
摘要：
//声明: MoveWindow( hWnd: HWND; {窗口句柄} X, Y: Integer; {位置} nWidth, nHeight: Integer; {大小} bRepaint: BOOL {是否重绘} ): BOOL; //举例: procedure TForm1.Button1Clic... 阅读全文
posted @ 2008-02-12 15:47
万一
阅读(15655)
评论(5)
推荐(0)
摘要：
//声明: IsIconic( hWnd: HWND {窗口句柄} ): BOOL; IsZoomed( hWnd: HWND {窗口句柄} ): BOOL; 阅读全文
posted @ 2008-02-12 13:46
万一
阅读(7378)
评论(1)
推荐(0)
摘要：
//声明: IsChild( hWndParent, hWnd: HWND {参数是两个窗口句柄, 父窗口在前} ): BOOL; 阅读全文
posted @ 2008-02-12 13:40
万一
阅读(2694)
评论(0)
推荐(0)
摘要：
//声明: GetParent( hWnd: HWND {窗口句柄} ): HWND; {返回父窗口句柄} //举例: procedure TForm1.Button1Click(Sender: TObject); var h1,h2: HWND; begin h1 := GetParent(Button1.Handle); h2 := Panel1.Handle; ... 阅读全文
posted @ 2008-02-12 13:31
万一
阅读(15047)
评论(0)
推荐(0)
摘要：
//声明: GetFocus: HWND; {无参数; 返回当前拥有焦点窗口的句柄} //举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TFo... 阅读全文
posted @ 2008-02-12 13:17
万一
阅读(12542)
评论(0)
推荐(0)
摘要：
//声明: 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号