ab.com コミュニティ

#ifndef _SVN_INC_CHAR
#define _SVN_INC_CHAR

	Declare Function CharNext Lib "user32" Alias "CharNextA" (ByVal lpsz As LPCSTR) As LPSTR
	Declare Function CharNextExA Lib "user32" (ByVal CodePage As Word,ByVal lpCurrentChar As LPCSTR,ByVal dwFlags As DWord) As LPSTR

	Declare Function CharPrev Lib "user32" Alias "CharPrevA" (ByVal lpszStart As LPCSTR,ByVal lpszCurrent As LPCSTR) As LPSTR
	Declare Function CharPrevExA Lib "user32" (ByVal CodePage As Word,ByVal lpStart As LPCSTR,ByVal lpCurrentChar As LPCSTR,ByVal dwFlags As DWord) As LPSTR

	Declare Function LoadString Lib "user32" Alias "LoadStringA" (ByVal hInstance As HINSTANCE,ByVal uID As DWord,ByVal lpBuffer As LPSTR,ByVal nBufferMax As Long) As Long

	Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As LPSTR,ByVal lpString2 As LPCSTR,ByVal iMaxLength As Long) As LPSTR

#endif

#ifndef _SVN_INC_DLGITEM
#define _SVN_INC_DLGITEM

	Declare Function SetDlgItemInt Lib "user32" (ByVal hDlg As HWND,ByVal nIDDlgItem As Long,ByVal uValue As DWord,ByVal bSigned As BOOL) As BOOL
	Declare Function GetDlgItemInt Lib "user32" (ByVal hDlg As HWND,ByVal nIDDlgItem As Long,ByVal lpTranslated As *BOOL,ByVal bSigned As BOOL) As DWord

	Declare Function CheckDlgButton Lib "user32" (ByVal hDlg As HWND,ByVal nIDButton As Long,ByVal uCheck As DWord) As BOOL
	Declare Function CheckRadioButton Lib "user32" (ByVal hDlg As HWND,ByVal nIDFirstButton As Long,ByVal nIDLastButton As Long,ByVal nIDCheckButton As Long) As BOOL
	Declare Function IsDlgButtonChecked Lib "user32" (ByVal hDlg As HWND,ByVal nIDButton As Long) As DWord

	Declare Function GetNextDlgGroupItem Lib "user32" (ByVal hDlg As HWND,ByVal hCtl As HWND,ByVal bPrevious As BOOL) As HWND
	Declare Function GetNextDlgTabItem Lib "user32" (ByVal hDlg As HWND,ByVal hCtl As HWND,ByVal bPrevious As BOOL) As HWND

	Declare Function DlgDirList Lib "user32" Alias "DlgDirListA" (ByVal hDlg As HWND,ByVal lpPathSpec As LPSTR,ByVal nIDListBox As Long,ByVal nIDStaticPath As Long,ByVal uFileType As DWord) As Long
	Declare Function DlgDirListComboBox Lib "user32" Alias "DlgDirListComboBoxA" (ByVal hDlg As HWND,ByVal lpPathSpec As LPSTR,ByVal nIDComboBox As Long,ByVal nIDStaticPath As Long,ByVal uFiletype As DWord) As Long

	Declare Function DlgDirSelectComboBoxEx Lib "user32" Alias "DlgDirSelectComboBoxExA" (ByVal hDlg As HWND,ByVal lpString As LPSTR,ByVal nCount As Long,ByVal nIDComboBox As Long) As BOOL
	Declare Function DlgDirSelectEx Lib "user32" Alias "DlgDirSelectExA" (ByVal hDlg As HWND,ByVal lpString As LPSTR,ByVal nCount As Long,ByVal nIDListBox As Long) As BOOL

	Declare Function GetListBoxInfo Lib "user32" (ByVal hwnd As HWND) As DWord

	Declare Function DefDlgProc Lib "user32" Alias "DefDlgProcA" (ByVal hDlg As HWND,ByVal Msg As DWord,ByVal wParam As WPARAM,ByVal lParam As LPARAM) As LRESULT

#endif

#ifndef _SVN_INC_CLIPBOARD
#define _SVN_INC_CLIPBOARD

	Declare Function ChangeClipboardChain Lib "user32" (ByVal hWndRemove As HWND,ByVal hWndNewNext As HWND) As BOOL

	Declare Function SetClipboardViewer Lib "user32" (ByVal hWndNewViewer As HWND) As HWND
	Declare Function GetClipboardViewer Lib "user32" () As HWND

	Declare Function GetClipboardOwner Lib "user32" () As HWND
	Declare Function GetOpenClipboardWindow Lib "user32" () As HWND

	Declare Function GetPriorityClipboardFormat Lib "user32" (ByVal lpFormatList As *DWord,ByVal FormatNum As Long) As Long

	Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal uFormat As DWord) As BOOL

#endif