PDA

View Full Version : در خواست آموزش



morteza_1234m
چهارشنبه 10 آبان 1385, 08:59 صبح
لطفا اگه میشه یک آموزش کار با توابع API در دلفی را برای من و بقیه ئ دوستان بگذارید حالا اگه نمی خواهید کامل آموزش بدید لاقل یک چند دستور بدرد بخور باحالش را بذارید با
تشکر فراوان
در ضمن اگه میشه چند اسکین و روش استفاده آنها را هم بذبرید در سایت بود ولی بلد نبودم با هاش کار کنم.

m-khorsandi
چهارشنبه 10 آبان 1385, 12:13 عصر
برای تاپیکتون عنوان مناسب انتخاب کنید.

soroush_vs
چهارشنبه 10 آبان 1385, 13:45 عصر
لیست برخی از توابع از A تا F



function ActivateKeyboardLayout (HKL : Integer; Flags : Integer) : Integer; stdcall; external 'user32' name 'ActivateKeyboardLayout'

function AddFontResource (lpFileName : PChar) : Integer; stdcall; external 'gdi32' name 'AddFontResourceA'

function AlphaBlend (hdcDest : Integer; xDest : Integer; yDest : Integer; WidthDest : Integer; HeightDest : Integer; hdcSrc : Integer; xSrc : Integer; ySrc : Integer; WidthSrc : Integer; HeightSrc : Integer; var Blendfunc : : BLENDFUNCTION) : Integer; stdcall; external 'msimg32' name 'AlphaBlend'

function AngleArc (hdc : Integer; x : Integer; y : Integer; dwRadius : Integer; eStartAngle : Single; eSweepAngle : Single) : Integer; stdcall; external 'gdi32' name 'AngleArc'

function AnimateWindow (hwnd : Integer; dwTime : Integer; dwFlags : Integer) : Integer; stdcall; external 'user32' name 'AnimateWindow'

function AppendMenu (hMenu : Integer; wFlags : Integer; wIDNewItem : Integer; lpNewItem : Pointer) : Integer; stdcall; external 'user32' name 'AppendMenuA'

function Arc (hdc : Integer; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer; X3 : Integer; Y3 : Integer; X4 : Integer; Y4 : Integer) : Integer; stdcall; external 'gdi32' name 'Arc'

function ArcTo (hdc : Integer; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer; X3 : Integer; Y3 : Integer; X4 : Integer; Y4 : Integer) : Integer; stdcall; external 'gdi32' name 'ArcTo'

function auxGetNumDevs () : Integer; stdcall; external 'winmm' name 'auxGetNumDevs'

procedure AVIFileExit (); stdcall; external 'avifil32' name 'AVIFileExit'

procedure AVIFileInfo (pfile : Integer; var pfi : AVIFileInfo; lSize : Integer); stdcall; external 'avifil32' name 'AVIFileInfo'

procedure AVIFileInit (); stdcall; external 'avifil32' name 'AVIFileInit'

procedure AVIFileOpen (var ppfile : Integer; szFile : PChar; uMode : Integer; lpHandler : Integer); stdcall; external 'avifil32' name 'AVIFileOpen'

function AVIFileRelease (pfile : Integer) : Integer; stdcall; external 'avifil32' name 'AVIFileRelease'

function Beep (dwFreq : Integer; dwDuration : Integer) : Integer; stdcall; external 'kernel32' name 'Beep'

function BeginPath (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'BeginPath'

function BlockInput (fBlockIt : Integer) : Integer; stdcall; external 'USER32' name 'BlockInput'

function BringWindowToTop (hwnd : Integer) : Integer; stdcall; external 'user32' name 'BringWindowToTop'

function ChangeDisplaySettings (var lpDevMode : DEVMODE; dwFlags : Integer) : Integer; stdcall; external 'user32' name 'ChangeDisplaySettingsA'

function ChangeDisplaySettingsEx (lpszDeviceName : PChar; var lpDevMode : DEVMODE; hwnd : Integer; dwflags : Integer; var lParam : Pointer) : Integer; stdcall; external 'user32' name 'ChangeDisplaySettingsExA'

function CharLower (lpsz : PChar) : PChar; stdcall; external 'user32' name 'CharLowerA'

function CharLowerBuff (lpsz : PChar; cchLength : Integer) : Integer; stdcall; external 'user32' name 'CharLowerBuffA'

function CharUpper (lpsz : PChar) : PChar; stdcall; external 'user32' name 'CharUpperA'

function CharUpperBuff (lpsz : PChar; cchLength : Integer) : Integer; stdcall; external 'user32' name 'CharUpperBuffA'

function CheckMenuRadioItem (hMenu : Integer; un1 : Integer; un2 : Integer; un3 : Integer; un4 : Integer) : Integer; stdcall; external 'user32' name 'CheckMenuRadioItem'

function ChooseColor (var pChoosecolor : CHOOSECOLOR) : Integer; stdcall; external 'comdlg32' name 'ChooseColorA'

function Chord (hdc : Integer; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer; X3 : Integer; Y3 : Integer; X4 : Integer; Y4 : Integer) : Integer; stdcall; external 'gdi32' name 'Chord'

function ClientToScreen (hwnd : Integer; var lpPoint : POINTAPI) : Integer; stdcall; external 'user32' name 'ClientToScreen'

function ClipCursor (var lpRect : Pointer) : Integer; stdcall; external 'user32' name 'ClipCursor'

function CloseClipboard () : Integer; stdcall; external 'user32' name 'CloseClipboard'

function ClosePrinter (hPrinter : Integer) : Integer; stdcall; external 'winspool.drv' name 'ClosePrinter'

function CloseWindow (hwnd : Integer) : Integer; stdcall; external 'user32' name 'CloseWindow'

procedure CoCreateGuid (var pguid : GUID); stdcall; external 'ole32' name 'CoCreateGuid'

function CombineRgn (hDestRgn : Integer; hSrcRgn1 : Integer; hSrcRgn2 : Integer; nCombineMode : Integer) : Integer; stdcall; external 'gdi32' name 'CombineRgn'

function CompareFileTime (var lpFileTime1 : FILETIME; var lpFileTime2 : FILETIME) : Integer; stdcall; external 'kernel32' name 'CompareFileTime'

function CompareString (Locale : Integer; dwCmpFlags : Integer; lpString1 : PChar; cchCount1 : Integer; lpString2 : PChar; cchCount2 : Integer) : Integer; stdcall; external 'kernel32' name 'CompareStringA'

function ConfigurePort (pName : PChar; hwnd : Integer; pPortName : PChar) : Integer; stdcall; external 'winspool.drv' name 'ConfigurePortA'

function CopyFile (lpExistingFileName : PChar; lpNewFileName : PChar; bFailIfExists : Integer) : Integer; stdcall; external 'kernel32' name 'CopyFileA'

function CopyIcon (hIcon : Integer) : Integer; stdcall; external 'user32' name 'CopyIcon'

function CopyImage (handle : Integer; un1 : Integer; n1 : Integer; n2 : Integer; un2 : Integer) : Integer; stdcall; external 'user32' name 'CopyImage'

function CopyLZFile (n1 : Integer; n2 : Integer) : Integer; stdcall; external 'lz32' name 'CopyLZFile'

function CopyRect (var lpDestRect : RECT; var lpSourceRect : RECT) : Integer; stdcall; external 'user32' name 'CopyRect'

function CreateBrushIndirect (var lpLogBrush : LOGBRUSH) : Integer; stdcall; external 'gdi32' name 'CreateBrushIndirect'

function CreateCaret (hwnd : Integer; hBitmap : Integer; nWidth : Integer; nHeight : Integer) : Integer; stdcall; external 'user32' name 'CreateCaret'

function CreateDirectory (lpPathName : PChar; var lpSecurityAttributes : SECURITY_ATTRIBUTES) : Integer; stdcall; external 'kernel32' name 'CreateDirectoryA'

function CreateDirectoryEx (lpTemplateDirectory : PChar; lpNewDirectory : PChar; var lpSecurityAttributes : SECURITY_ATTRIBUTES) : Integer; stdcall; external 'kernel32' name 'CreateDirectoryExA'

function CreateEllipticRgn (X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer) : Integer; stdcall; external 'gdi32' name 'CreateEllipticRgn'

function CreateEllipticRgnIndirect (var lpRect : Rect) : Integer; stdcall; external 'gdi32' name 'CreateEllipticRgnIndirect'

function CreateFile (lpFileName : PChar; dwDesiredAccess : Integer; dwShareMode : Integer; var lpSecurityAttributes : SECURITY_ATTRIBUTES; dwCreationDisposition : Integer; dwFlagsAndAttributes : Integer; hTemplateFile : Integer) : Integer; stdcall; external 'kernel32' name 'CreateFileA'

function CreateHatchBrush (nIndex : Integer; crColor : Integer) : Integer; stdcall; external 'gdi32' name 'CreateHatchBrush'

function CreatePatternBrush (hBitmap : Integer) : Integer; stdcall; external 'gdi32' name 'CreatePatternBrush'

function CreatePen (nPenStyle : Integer; nWidth : Integer; crColor : Integer) : Integer; stdcall; external 'gdi32' name 'CreatePen'

function CreatePenIndirect (var lpLogPen : LOGPEN) : Integer; stdcall; external 'gdi32' name 'CreatePenIndirect'

function CreatePolygonRgn (var lpPoint : POINTAPI; nCount : Integer; nPolyFillMode : Integer) : Integer; stdcall; external 'gdi32' name 'CreatePolygonRgn'

function CreatePolyPolygonRgn (var lpPoint : POINTAPI; var lpPolyCounts : Integer; nCount : Integer; nPolyFillMode : Integer) : Integer; stdcall; external 'gdi32' name 'CreatePolyPolygonRgn'

function CreatePopupMenu () : Integer; stdcall; external 'user32' name 'CreatePopupMenu'

function CreateRectRgn (X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer) : Integer; stdcall; external 'gdi32' name 'CreateRectRgn'

function CreateRectRgnIndirect (var lpRect : RECT) : Integer; stdcall; external 'gdi32' name 'CreateRectRgnIndirect'

function CreateRoundRectRgn (X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer; X3 : Integer; Y3 : Integer) : Integer; stdcall; external 'gdi32' name 'CreateRoundRectRgn'

function CreateSolidBrush (crColor : Integer) : Integer; stdcall; external 'gdi32' name 'CreateSolidBrush'

function CreateToolhelp32Snapshot (dwFlags : Integer; th32ProcessID : Integer) : Integer; stdcall; external 'KERNEL32' name 'CreateToolhelp32Snapshot'

function DeleteFile (lpFileName : PChar) : Integer; stdcall; external 'kernel32' name 'DeleteFileA'

function DestroyIcon (hIcon : Integer) : Integer; stdcall; external 'user32' name 'DestroyIcon'

function DestroyMenu (hMenu : Integer) : Integer; stdcall; external 'user32' name 'DestroyMenu'

function DestroyWindow (hwnd : Integer) : Integer; stdcall; external 'user32' name 'DestroyWindow'

function DrawAnimatedRects (hwnd : Integer; idAni : Integer; var lprcFrom : Rect; var lprcTo : Rect) : Integer; stdcall; external 'user32' name 'DrawAnimatedRects'

function DrawCaption (hWnd : Integer; hDC : Integer; var pcRect : Rect; un : Integer) : Integer; stdcall; external 'user32' name 'DrawCaption'

function DrawEdge (hdc : Integer; var qrc : RECT; edge : Integer; grfFlags : Integer) : Integer; stdcall; external 'user32' name 'DrawEdge'

function DrawFocusRect (hdc : Integer; var lpRect : RECT) : Integer; stdcall; external 'user32' name 'DrawFocusRect'

function DrawFrameControl (hDC : Integer; var lpRect : RECT; un1 : Integer; un2 : Integer) : Integer; stdcall; external 'user32' name 'DrawFrameControl'

function DrawIcon (hdc : Integer; x : Integer; y : Integer; hIcon : Integer) : Integer; stdcall; external 'user32' name 'DrawIcon'

function DrawIconEx (hdc : Integer; xLeft : Integer; yTop : Integer; hIcon : Integer; cxWidth : Integer; cyWidth : Integer; istepIfAniCur : Integer; hbrFlickerFreeDraw : Integer; diFlags : Integer) : Integer; stdcall; external 'user32' name 'DrawIconEx'

function DrawMenuBar (hwnd : Integer) : Integer; stdcall; external 'user32' name 'DrawMenuBar'

function DrawText (hdc : Integer; lpStr : PChar; nCount : Integer; var lpRect : RECT; wFormat : Integer) : Integer; stdcall; external 'user32' name 'DrawTextA'

function DuplicateIcon (hInst : Integer; hIcon : Integer) : Integer; stdcall; external 'shell32' name 'DuplicateIcon'

function Ellipse (hdc : Integer; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer) : Integer; stdcall; external 'gdi32' name 'Ellipse'

function EmptyClipboard () : Integer; stdcall; external 'user32' name 'EmptyClipboard'

function EnableWindow (hwnd : Integer; fEnable : Integer) : Integer; stdcall; external 'user32' name 'EnableWindow'

function EndDoc (hDC : Integer) : Integer; stdcall; external 'gdi32' name 'EndDoc'

function EndMenu () : Integer; stdcall; external 'user32' name 'EndMenu'

function EndPage (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'EndPage'

function EndPath (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'EndPath'

function EnumChildWindows (hWndParent : Integer; lpEnumFunc : Integer; lParam : Integer) : Integer; stdcall; external 'user32' name 'EnumChildWindows'

function EnumDisplaySettings (lpszDeviceName : PChar; iModeNum : Integer; var lpDevMode : DEVMODE) : Integer; stdcall; external 'user32' name 'EnumDisplaySettingsA'

function EnumFonts (hDC : Integer; lpsz : PChar; lpFontEnumProc : Integer; lParam : Integer) : Integer; stdcall; external 'gdi32' name 'EnumFontsA'

function EnumWindows (lpEnumFunc : Integer; lParam : Integer) : Integer; stdcall; external 'user32' name 'EnumWindows'

procedure ExitProcess (uExitCode : Integer); stdcall; external 'kernel32' name 'ExitProcess'

function ExitWindowsEx (uFlags : Integer; dwReserved : Integer) : Integer; stdcall; external 'user32' name 'ExitWindowsEx'

function ExtractIcon (hInst : Integer; lpszExeFileName : PChar; nIconIndex : Integer) : Integer; stdcall; external 'shell32' name 'ExtractIconA'

function ExtractIconEx (lpszFile : PChar; nIconIndex : Integer; var phiconLarge : Integer; var phiconSmall : Integer; nIcons : Integer) : Integer; stdcall; external 'shell32' name 'ExtractIconExA'

function ExtTextOut (hdc : Integer; x : Integer; y : Integer; wOptions : Integer; var lpRect : Rect; lpString : PChar; nCount : Integer; var lpDx : Integer) : Integer; stdcall; external 'gdi32' name 'ExtTextOutA'

procedure FatalAppExit (uAction : Integer; lpMessageText : PChar); stdcall; external 'kernel32' name 'FatalAppExitA'

function fCreateShellLink (lpstrFolderName : PChar; lpstrLinkName : PChar; lpstrLinkPath : PChar; lpstrLinkArgs : PChar) : Integer; stdcall; external 'VB5STKIT' name 'fCreateShellLink'

function FileTimeToLocalFileTime (var lpFileTime : FILETIME; var lpLocalFileTime : FILETIME) : Integer; stdcall; external 'kernel32' name 'FileTimeToLocalFileTime'

function FileTimeToSystemTime (var lpFileTime : FILETIME; var lpSystemTime : SYSTEMTIME) : Integer; stdcall; external 'kernel32' name 'FileTimeToSystemTime'

procedure FillMemory (var Destination : Pointer; Length : Integer; Fill : Byte); stdcall; external 'kernel32' name 'RtlFillMemorA'

function FillPath (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'FillPath'

function FillRect (hdc : Integer; var lpRect : RECT; hBrush : Integer) : Integer; stdcall; external 'user32' name 'FillRect'

function FillRgn (hdc : Integer; hRgn : Integer; hBrush : Integer) : Integer; stdcall; external 'gdi32' name 'FillRgn'

function FindClose (hFindFile : Integer) : Integer; stdcall; external 'kernel32' name 'FindClose'

function FindExecutable (lpFile : PChar; lpDirectory : PChar; lpResult : PChar) : Integer; stdcall; external 'shell32' name 'FindExecutableA'

function FindFirstFile (lpFileName : PChar; var lpFindFileData : WIN32_FIND_DATA) : Integer; stdcall; external 'kernel32' name 'FindFirstFileA'

function FindNextFile (hFindFile : Integer; var lpFindFileData : WIN32_FIND_DATA) : Integer; stdcall; external 'kernel32' name 'FindNextFileA'

function FindWindow (lpClassName : PChar; lpWindowName : PChar) : Integer; stdcall; external 'user32' name 'FindWindowA'

function FindWindowEx (hWnd1 : Integer; hWnd2 : Integer; lpsz1 : PChar; lpsz2 : PChar) : Integer; stdcall; external 'user32' name 'FindWindowExA'

function FlashWindow (hwnd : Integer; bInvert : Integer) : Integer; stdcall; external 'user32' name 'FlashWindow'

function FlashWindowEx (var pfwi : FLASHWINFO) : Integer; stdcall; external 'user32' name 'FlashWindowEx'

function FloodFill (hdc : Integer; x : Integer; y : Integer; crColor : Integer) : Integer; stdcall; external 'gdi32' name 'FloodFill'

function FrameRect (hdc : Integer; var lpRect : RECT; hBrush : Integer) : Integer; stdcall; external 'user32' name 'FrameRect'

function FrameRgn (hdc : Integer; hRgn : Integer; hBrush : Integer; nWidth : Integer; nHeight : Integer) : Integer; stdcall; external 'gdi32' name 'FrameRgn'

function FreeEnvironmentStrings (lpsz : PChar) : Integer; stdcall; external 'kernel32' name 'FreeEnvironmentStringsA'

soroush_vs
چهارشنبه 10 آبان 1385, 13:47 عصر
لیست برخی از توابع از G تا O


function GetActiveWindow () : Integer; stdcall; external 'user32' name 'GetActiveWindow'

function GetAllUsersProfileDirectory (lpProfileDir : PChar; var lpcchSize : Integer) : Boolean; stdcall; external 'userenv' name 'GetAllUsersProfileDirectoryA'

function GetAncestor (hwnd : Integer; gaFlags : Integer) : Integer; stdcall; external 'user32' name 'GetAncestor'

function GetArcDirection (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'GetArcDirection'

function GetAsyncKeyState (vKey : Integer) : Integer; stdcall; external 'user32' name 'GetAsyncKeyState'

function GetBinaryType (lpApplicationName : PChar; var lpBinaryType : Integer) : Integer; stdcall; external 'kernel32' name 'GetBinaryTypeA'

function GetBkColor (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'GetBkColor'

function GetCaretBlinkTime () : Integer; stdcall; external 'user32' name 'GetCaretBlinkTime'

function GetClientRect (hwnd : Integer; var lpRect : RECT) : Integer; stdcall; external 'user32' name 'GetClientRect'

function GetClipboardData (wFormat : Integer) : Integer; stdcall; external 'user32' name 'GetClipboardData'

function GetCommandLine () : PChar; stdcall; external 'kernel32' name 'GetCommandLineA'

function GetComputerName (lpBuffer : PChar; var nSize : Integer) : Integer; stdcall; external 'kernel32' name 'GetComputerNameA'

function GetCurrentDirectory (nBufferLength : Integer; lpBuffer : PChar) : Integer; stdcall; external 'kernel32' name 'GetCurrentDirectoryA'

function GetCurrentProcess () : Integer; stdcall; external 'kernel32' name 'GetCurrentProcess'

function GetCurrentProcessId () : Integer; stdcall; external 'kernel32' name 'GetCurrentProcessId'

function GetCursor () : Integer; stdcall; external 'user32' name 'GetCursor'

function GetCursorPos (var lpPoint : POINTAPI) : Integer; stdcall; external 'user32' name 'GetCursorPos'

function GetDC (hwnd : Integer) : Integer; stdcall; external 'user32' name 'GetDC'

function GetDefaultUserProfileDirectory (lpProfileDir : PChar; var lpcchSize : Integer) : Integer; stdcall; external 'userenv' name 'GetDefaultUserProfileDirectory'

function GetDesktopWindow () : Integer; stdcall; external 'user32' name 'GetDesktopWindow'

function GetDiskFreeSpace (lpRootPathName : PChar; var lpSectorsPerCluster : Integer; var lpBytesPerSector : Integer; var lpNumberOfFreeClusters : Integer; var lpTtoalNumberOfClusters : Integer) : Integer; stdcall; external 'kernel32' name 'GetDiskFreeSpaceA'

function GetDiskFreeSpaceEx (lpDirectoryName : PChar; var lpFreeBytesAvailableToCaller : ULARGE_INTEGER; var lpTotalNumberOfBytes : ULARGE_INTEGER; var lpTotalNumberOfFreeBytes : ULARGE_INTEGER) : Integer; stdcall; external 'kernel32' name 'GetDiskFreeSpaceExA'

function GetDoubleClickTime () : Integer; stdcall; external 'user32' name 'GetDoubleClickTime'

function GetDriveType (nDrive : PChar) : Integer; stdcall; external 'kernel32' name 'GetDriveTypeA'

function GetEnvironmentStrings () : PChar; stdcall; external 'kernel32' name 'GetEnvironmentStringsA'

function GetExitCodeProcess (hProcess : Integer; var lpExitCode : Integer) : Integer; stdcall; external 'kernel32' name 'GetExitCodeProcess'

function GetExpandedName (lpszSource : PChar; lpszBuffer : PChar) : Integer; stdcall; external 'lz32' name 'GetExpandedNameA'

function GetFileAttributes (lpFileName : PChar) : Integer; stdcall; external 'kernel32' name 'GetFileAttributesA'

function GetFileInformationByHandle (hFile : Integer; var lpFileInformation : BY_HANDLE_FILE_INFORMATION) : Integer; stdcall; external 'kernel32' name 'GetFileInformationByHandle'

function GetFileSize (hFile : Integer; var lpFileSizeHigh : Integer) : Integer; stdcall; external 'kernel32' name 'GetFileSize'

function GetFileTime (hFile : Integer; var lpCreationTime : FILETIME; var lpLastAccessTime : FILETIME; var lpLastWriteTime : FILETIME) : Integer; stdcall; external 'kernel32' name 'GetFileTime'

function GetFileTitle (lpszFile : PChar; lpszTitle : PChar; cbBuf : Integer) : Integer; stdcall; external 'comdlg32' name 'GetFileTitleA'

function GetFileType (hFile : Integer) : Integer; stdcall; external 'kernel32' name 'GetFileType'

function GetFileVersionInfo (lptstrFilename : PChar; dwHandle : Integer; dwLen : Integer; var lpData : Pointer) : Integer; stdcall; external 'version' name 'GetFileVersionInfoA'

function GetFileVersionInfoSize (lptstrFilename : PChar; var lpdwHandle : Integer) : Integer; stdcall; external 'version' name 'GetFileVersionInfoSizeA'

function GetFocus () : Integer; stdcall; external 'user32' name 'GetFocus'

function GetForegroundWindow () : Integer; stdcall; external 'user32' name 'GetForegroundWindow'

function GetFreeResources (lWhat : Integer) : Integer; stdcall; external 'RSRC32' name '_MyGetFreeSystemResources32@A'

function GetFullPathName (lpFileName : PChar; nBufferLength : Integer; lpBuffer : PChar; lpFilePart : PChar) : Integer; stdcall; external 'kernel32' name 'GetFullPathNameA'

function GetIpAddrTable (var pIpAddrTable : PMIB_IPADDRTABLE; var pdwSize : Integer; border : Integer) : Integer; stdcall; external 'IPHLPAPI' name 'GetIpAddrTable'

function GetKeyboardLayoutName (pwszKLID : PChar) : Integer; stdcall; external 'user32' name 'GetKeyboardLayoutNameA'

function GetKeyboardState (var pbKeyState : Byte) : Integer; stdcall; external 'user32' name 'GetKeyboardState'

function GetKeyboardType (nTypeFlag : Integer) : Integer; stdcall; external 'user32' name 'GetKeyboardType'

function GetKeyState (nVirtKey : Integer) : Integer; stdcall; external 'user32' name 'GetKeyState'

function GetLastError () : Integer; stdcall; external 'kernel32' name 'GetLastError'

function GetLayout (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'GetLayout'

function GetLocaleInfo (Locale : Integer; LCType : Integer; lpLCData : PChar; cchData : Integer) : Integer; stdcall; external 'kernel32' name 'GetLocaleInfoA'

procedure GetLocalTime (var lpSystemTime : SYSTEMTIME); stdcall; external 'kernel32' name 'GetLocalTime'

function GetLogicalDrives () : Integer; stdcall; external 'kernel32' name 'GetLogicalDrives'

function GetLogicalDriveStrings (nBufferLength : Integer; lpBuffer : PChar) : Integer; stdcall; external 'kernel32' name 'GetLogicalDriveStringsA'

function GetMenu (hwnd : Integer) : Integer; stdcall; external 'user32' name 'GetMenu'

function GetMenuItemCount (hMenu : Integer) : Integer; stdcall; external 'user32' name 'GetMenuItemCount'

function GetMenuItemID (hMenu : Integer; nPos : Integer) : Integer; stdcall; external 'user32' name 'GetMenuItemID'

function GetMenuItemInfo (hMenu : Integer; un : Integer; b : Boolean; var lpMenuItemInfo : MENUITEMINFO) : Integer; stdcall; external 'user32' name 'GetMenuItemInfoA'

function GetMenuItemRect (hWnd : Integer; hMenu : Integer; uItem : Integer; var lprcItem : RECT) : Integer; stdcall; external 'user32' name 'GetMenuItemRect'

function GetNumberFormat (Locale : Integer; dwFlags : Integer; lpValue : PChar; var lpFormat : NUMBERFMT; lpNumberStr : PChar; cchNumber : Integer) : Integer; stdcall; external 'kernel32' name 'GetNumberFormatA'

function GetOpenFileName (var pOpenfilename : OPENFILENAME) : Integer; stdcall; external 'comdlg32' name 'GetOpenFileNameA'

function GetOpenFileNamePreview (var lpofn : OPENFILENAME) : Integer; stdcall; external 'msvfw32' name 'GetOpenFileNamePreview'

function GetParent (hwnd : Integer) : Integer; stdcall; external 'user32' name 'GetParent'

function GetPixel (hdc : Integer; x : Integer; y : Integer) : Integer; stdcall; external 'gdi32' name 'GetPixel'

function GetPolyFillMode (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'GetPolyFillMode'

function GetPrivateProfileInt (lpApplicationName : PChar; lpKeyName : PChar; nDefault : Integer; lpFileName : PChar) : Integer; stdcall; external 'kernel32' name 'GetPrivateProfileIntA'

function GetPrivateProfileSection (lpAppName : PChar; lpReturnedString : PChar; nSize : Integer; lpFileName : PChar) : Integer; stdcall; external 'kernel32' name 'GetPrivateProfileSectionA'

function GetPrivateProfileSectionNames (lpszReturnBuffer : PChar; nSize : Integer; lpFileName : PChar) : Integer; stdcall; external 'kernel32' name 'GetPrivateProfileSectionNamesA'

function GetPrivateProfileString (lpApplicationName : PChar; lpKeyName : PChar; lpDefault : PChar; lpReturnedString : PChar; nSize : Integer; lpFileName : PChar) : Integer; stdcall; external 'kernel32' name 'GetPrivateProfileStringA'

function GetProcessTimes (hProcess : Integer; var lpCreationTime : FILETIME; var lpExitTime : FILETIME; var lpKernelTime : FILETIME; var lpUserTime : FILETIME) : Integer; stdcall; external 'kernel32' name 'GetProcessTimes'

function GetProfileInt (lpAppName : PChar; lpKeyName : PChar; nDefault : Integer) : Integer; stdcall; external 'kernel32' name 'GetProfileIntA'

function GetProfilesDirectory (lpProfilesDir : PChar; var lpcchSize : Integer) : Integer; stdcall; external 'userenv' name 'GetProfilesDirectory'

function GetRgnBox (hRgn : Integer; var lpRect : RECT) : Integer; stdcall; external 'gdi32' name 'GetRgnBox'

function GetSaveFileName (var pOpenfilename : OPENFILENAME) : Integer; stdcall; external 'comdlg32' name 'GetSaveFileNameA'

function GetSaveFileNamePreview (var lpofn : OPENFILENAME) : Integer; stdcall; external 'msvfw32' name 'GetSaveFileNamePreviewA'

function GetShortPathName (lpszLongPath : PChar; lpszShortPath : PChar; cchBuffer : Integer) : Integer; stdcall; external 'kernel32' name 'GetShortPathNameA'

function GetStretchBltMode (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'GetStretchBltMode'

function GetSubMenu (hMenu : Integer; nPos : Integer) : Integer; stdcall; external 'user32' name 'GetSubMenu'

function GetSysColor (nIndex : Integer) : Integer; stdcall; external 'user32' name 'GetSysColor'

function GetSysColorBrush (nIndex : Integer) : Integer; stdcall; external 'user32' name 'GetSysColorBrush'

function GetSystemDirectory (lpBuffer : PChar; nSize : Integer) : Integer; stdcall; external 'kernel32' name 'GetSystemDirectoryA'

procedure GetSystemInfo (var lpSystemInfo : SYSTEM_INFO); stdcall; external 'kernel32' name 'GetSystemInfo'

function GetSystemMenu (hwnd : Integer; bRevert : Integer) : Integer; stdcall; external 'user32' name 'GetSystemMenu'

function GetSystemMetrics (nIndex : Integer) : Integer; stdcall; external 'user32' name 'GetSystemMetrics'

procedure GetSystemTime (var lpSystemTime : SYSTEMTIME); stdcall; external 'kernel32' name 'GetSystemTime'

function GetTempFileName (lpszPath : PChar; lpPrefixString : PChar; wUnique : Integer; lpTempFileName : PChar) : Integer; stdcall; external 'kernel32' name 'GetTempFileNameA'

function GetTempPath (nBufferLength : Integer; lpBuffer : PChar) : Integer; stdcall; external 'kernel32' name 'GetTempPathA'

function GetTextExtentPoint32 (hdc : Integer; lpsz : PChar; cbString : Integer; var lpSize : SIZE) : Integer; stdcall; external 'gdi32' name 'GetTextExtentPoint32A'

function GetThreadLocale () : Integer; stdcall; external 'KERNEL32' name 'GetThreadLocale'

function GetTickCount () : Integer; stdcall; external 'kernel32' name 'GetTickCount'

function GetUserName (lpBuffer : PChar; var nSize : Integer) : Integer; stdcall; external 'advapi32' name 'GetUserNameA'

function GetUserProfileDirectory (hToken : Integer; lpProfileDir : PChar; var lpcchSize : Integer) : Integer; stdcall; external 'userenv' name 'GetUserProfileDirectory'

function GetVersionEx (var lpVersionInformation : OSVERSIONINFO) : Integer; stdcall; external 'kernel32' name 'GetVersionExA'

function GetVolumeInformation (lpRootPathName : PChar; lpVolumeNameBuffer : PChar; nVolumeNameSize : Integer; var lpVolumeSerialNumber : Integer; var lpMaximumComponentLength : Integer; var lpFileSystemFlags : Integer; lpFileSystemNameBuffer : PChar; nFileSystemNameSize : Integer) : Integer; stdcall; external 'kernel32' name 'GetVolumeInformationA'

function GetWindow (hwnd : Integer; wCmd : Integer) : Integer; stdcall; external 'user32' name 'GetWindow'

function GetWindowDC (hwnd : Integer) : Integer; stdcall; external 'user32' name 'GetWindowDC'

function GetWindowRect (hwnd : Integer; var lpRect : RECT) : Integer; stdcall; external 'user32' name 'GetWindowRect'

function GetWindowRgn (hWnd : Integer; hRgn : Integer) : Integer; stdcall; external 'user32' name 'GetWindowRgn'

function GetWindowsDirectory (lpBuffer : PChar; nSize : Integer) : Integer; stdcall; external 'kernel32' name 'GetWindowsDirectoryA'

function GetWindowText (hwnd : Integer; lpString : PChar; cch : Integer) : Integer; stdcall; external 'user32' name 'GetWindowTextA'

function GetWindowTextLength (hwnd : Integer) : Integer; stdcall; external 'user32' name 'GetWindowTextLengthA'

procedure GlobalMemoryStatus (var lpBuffer : MEMORYSTATUS); stdcall; external 'kernel32' name 'GlobalMemoryStatus'

function GradientFill (hdc : Integer; var PTRIVERTEX : PTRIVERTEX; ulong : Integer; var pvoid : Pointer; ulong : Integer; ulong : Integer) : Integer; stdcall; external 'msimg32' name 'GradientFill'

function HideCaret (hwnd : Integer) : Integer; stdcall; external 'user32' name 'HideCaret'

function HtmlHelp (hwndCaller : Integer; pszfile : PChar; ucommand : Integer; dwdata : Integer) : Integer; stdcall; external 'hhctrl.ocx' name 'HtmlHelpA'

function ImageList_Draw (himl : Integer; i : Integer; hdcDst : Integer; x : Integer; y : Integer; fStyle : Integer) : Integer; stdcall; external 'comctl32' name 'ImageList_Draw'

function ImageList_DrawEx (himl : Integer; i : Integer; hdcDst : Integer; x : Integer; y : Integer; dx : Integer; dy : Integer; rgbBk : Integer; rgbFg : Integer; fStyle : Integer) : Integer; stdcall; external 'comctl32' name 'ImageList_DrawEx'

function InetIsOffline (dwFlags : Integer) : Integer; stdcall; external 'url' name 'InetIsOffline'

function InflateRect (var lpRect : RECT; x : Integer; y : Integer) : Integer; stdcall; external 'user32' name 'InflateRect'

function InsertMenuItem (hMenu : Integer; un : Integer; bool : Boolean; var lpcMenuItemInfo : MENUITEMINFO) : Integer; stdcall; external 'user32' name 'InsertMenuItemA'

function InternetCheckConnection (lpszUrl : PChar; dwFlags : Integer; dwReserved : Integer) : Integer; stdcall; external 'wininet' name 'InternetCheckConnectionA'

procedure InternetCombineUrl (lpszBaseUrl : PChar; lpszRelativeUrl : PChar; lpszBuffer : PChar; var lpdwBufferLength : Integer; dwFlags : Integer); stdcall; external 'wininet' name 'InternetCombineUrlA'

function InternetGetConnectedState (var lpdwFlags : Integer; dwReserved : Integer) : Integer; stdcall; external 'wininet' name 'InternetGetConnectedState'

function InternetGetConnectedStateEx (var lpdwFlags : Integer; lpszConnectionName : PChar; dwNameLen : Integer; dwReserved : Integer) : Integer; stdcall; external 'wininet' name 'InternetGetConnectedStateEx'

function IntersectClipRect (hdc : Integer; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer) : Integer; stdcall; external 'gdi32' name 'IntersectClipRect'

function IntersectRect (var lpDestRect : RECT; var lpSrc1Rect : RECT; var lpSrc2Rect : RECT) : Integer; stdcall; external 'user32' name 'IntersectRect'

function InvertRect (hdc : Integer; var lpRect : RECT) : Integer; stdcall; external 'user32' name 'InvertRect'

function InvertRgn (hdc : Integer; hRgn : Integer) : Integer; stdcall; external 'gdi32' name 'InvertRgn'

function IsCharAlpha (cChar : Byte) : Integer; stdcall; external 'user32' name 'IsCharAlphaA'

function IsCharAlphaNumeric (cChar : Byte) : Integer; stdcall; external 'user32' name 'IsCharAlphaNumericA'

function IsCharLower (cChar : Byte) : Integer; stdcall; external 'user32' name 'IsCharLowerA'

function IsCharUpper (cChar : Byte) : Integer; stdcall; external 'user32' name 'IsCharUpperA'

function IsChild (hWndParent : Integer; hwnd : Integer) : Integer; stdcall; external 'user32' name 'IsChild'

function IsClipboardFormatAvailable (wFormat : Integer) : Integer; stdcall; external 'user32' name 'IsClipboardFormatAvailable'

function IsDestinationReachable (lpszDestination : PChar; var lpQOCInfo : lpQOCInfo) : Integer; stdcall; external 'SENSAPI' name 'IsDestinationReachable'

function IsIconic (hwnd : Integer) : Integer; stdcall; external 'user32' name 'IsIconic'

function IsNetworkAlive (var lpdwFlags : Integer) : Integer; stdcall; external 'SENSAPI' name 'IsNetworkAlive'

function IsNTAdmin (dwReserved : Integer; var lpdwReserved : Integer) : Integer; stdcall; external 'advpack' name 'IsNTAdmin'

function IsPwrHibernateAllowed () : Integer; stdcall; external 'Powrprof.dll' name 'IsPwrHibernateAllowed'

function IsPwrShutdownAllowed () : Integer; stdcall; external 'Powrprof.dll' name 'IsPwrShutdownAllowed'

function IsPwrSuspendAllowed () : Integer; stdcall; external 'Powrprof.dll' name 'IsPwrSuspendAllowed'

function IsRectEmpty (var lpRect : RECT) : Integer; stdcall; external 'user32' name 'IsRectEmpty'

function IsValidURL (pbc : Integer; szURL : PChar; dwReserved : Integer) : Integer; stdcall; external 'URLMON' name 'IsValidURL'

function IsWindow (hwnd : Integer) : Integer; stdcall; external 'user32' name 'IsWindow'

function IsWindowEnabled (hwnd : Integer) : Integer; stdcall; external 'user32' name 'IsWindowEnabled'

function IsWindowVisible (hwnd : Integer) : Integer; stdcall; external 'user32' name 'IsWindowVisible'

function IsZoomed (hwnd : Integer) : Integer; stdcall; external 'user32' name 'IsZoomed'

function joyGetDevCaps (id : Integer; var lpCaps : JOYCAPS; uSize : Integer) : Integer; stdcall; external 'winmm' name 'joyGetDevCapsA'

function joyGetNumDevs () : Integer; stdcall; external 'winmm' name 'joyGetNumDevs'

function joyGetPos (uJoyID : Integer; var pji : JOYINFO) : Integer; stdcall; external 'winmm' name 'joyGetPos'

procedure keybd_event (bVk : Byte; bScan : Byte; dwFlags : Integer; dwExtraInfo : Integer); stdcall; external 'user32' name 'keybd_event'

function KillTimer (hwnd : Integer; nIDEvent : Integer) : Integer; stdcall; external 'user32' name 'KillTimer'

function lclose (hFile : Integer) : Integer; stdcall; external 'kernel32' name '_lclosA'

function LineTo (hdc : Integer; x : Integer; y : Integer) : Integer; stdcall; external 'gdi32' name 'LineTo'

function LoadCursor (hInstance : Integer; lpCursorName : Integer) : Integer; stdcall; external 'user32' name 'LoadCursorA'

function LoadCursorFromFile (lpFileName : PChar) : Integer; stdcall; external 'user32' name 'LoadCursorFromFileA'

function LoadIcon (hInstance : Integer; lpIconName : PChar) : Integer; stdcall; external 'user32' name 'LoadIconA'

function LoadImage (hInst : Integer; lpsz : PChar; un1 : Integer; n1 : Integer; n2 : Integer; un2 : Integer) : Integer; stdcall; external 'user32' name 'LoadImageA'

function LoadKeyboardLayout (pwszKLID : PChar; flags : Integer) : Integer; stdcall; external 'user32' name 'LoadKeyboardLayoutA'

function LocalFileTimeToFileTime (var lpLocalFileTime : FILETIME; var lpFileTime : FILETIME) : Integer; stdcall; external 'kernel32' name 'LocalFileTimeToFileTime'

function LockWindowUpdate (hwndLock : Integer) : Integer; stdcall; external 'user32' name 'LockWindowUpdate'

function LockWorkStation () : Integer; stdcall; external 'user32' name 'LockWorkStation'

function lopen (lpPathName : PChar; iReadWrite : Integer) : Integer; stdcall; external 'kernel32' name '_lopeA'

function lstrcat (lpString1 : PChar; lpString2 : PChar) : Integer; stdcall; external 'kernel32' name 'lstrcatA'

function lstrcmp (lpString1 : PChar; lpString2 : PChar) : Integer; stdcall; external 'kernel32' name 'lstrcmpA'

function lstrcmpi (lpString1 : PChar; lpString2 : PChar) : Integer; stdcall; external 'kernel32' name 'lstrcmpiA'

function lstrcpy (lpString1 : PChar; lpString2 : PChar) : Integer; stdcall; external 'kernel32' name 'lstrcpyA'

function lstrcpyn (lpString1 : PChar; lpString2 : PChar; iMaxLength : Integer) : Integer; stdcall; external 'kernel32' name 'lstrcpynA'

function lstrlen (lpString : PChar) : Integer; stdcall; external 'kernel32' name 'lstrlenA'

procedure LZClose (hfFile : Integer); stdcall; external 'lz32' name 'LZClose'

function LZCopy (hfSource : Integer; hfDest : Integer) : Integer; stdcall; external 'lz32' name 'LZCopy'

function LZOpenFile (lpszFile : PChar; var lpOf : OFSTRUCT; style : Integer) : Integer; stdcall; external 'lz32' name 'LZOpenFileA'

function MakeSureDirectoryPathExists (DirPath : PChar) : Integer; stdcall; external 'imagehlp' name 'MakeSureDirectoryPathExists'

function MessageBeep (wType : Integer) : Integer; stdcall; external 'user32' name 'MessageBeep'

function MessageBox (hwnd : Integer; lpText : PChar; lpCaption : PChar; wType : Integer) : Integer; stdcall; external 'user32' name 'MessageBoxA'

function MessageBoxEx (hwnd : Integer; lpText : PChar; lpCaption : PChar; uType : Integer; wLanguageId : Integer) : Integer; stdcall; external 'user32' name 'MessageBoxExA'

function midiOutClose (hMidiOut : Integer) : Integer; stdcall; external 'winmm' name 'midiOutClose'

function midiOutGetDevCaps (uDeviceID : Integer; var lpCaps : MIDIOUTCAPS; uSize : Integer) : Integer; stdcall; external 'winmm' name 'midiOutGetDevCapsA'

function midiOutGetNumDevs () : Integer; stdcall; external 'winmm' name 'midiOutGetNumDevs'

function midiOutOpen (var lphMidiOut : Integer; uDeviceID : Integer; dwCallback : Integer; dwInstance : Integer; dwFlags : Integer) : Integer; stdcall; external 'winmm' name 'midiOutOpen'

function midiOutShortMsg (hMidiOut : Integer; dwMsg : Integer) : Integer; stdcall; external 'winmm' name 'midiOutShortMsg'

function ModifyMenu (hMenu : Integer; nPosition : Integer; wFlags : Integer; wIDNewItem : Integer; lpString : Pointer) : Integer; stdcall; external 'user32' name 'ModifyMenuA'

function Module32First (hSnapshot : Integer; var lppe : MODULEENTRY32) : Integer; stdcall; external 'kernel32.dll' name 'Module32First'

function Module32Next (hSnapshot : Integer; var lpme : MODULEENTRY32) : Integer; stdcall; external 'KERNEL32' name 'Module32Next'

procedure mouse_event (dwFlags : Integer; dx : Integer; dy : Integer; cButtons : Integer; dwExtraInfo : Integer); stdcall; external 'user32' name 'mouse_event'

function MoveFile (lpExistingFileName : PChar; lpNewFileName : PChar) : Integer; stdcall; external 'kernel32' name 'MoveFileA'

function MoveToEx (hdc : Integer; x : Integer; y : Integer; var lpPoint : POINTAPI) : Integer; stdcall; external 'gdi32' name 'MoveToEx'

function MoveWindow (hwnd : Integer; x : Integer; y : Integer; nWidth : Integer; nHeight : Integer; bRepaint : Integer) : Integer; stdcall; external 'user32' name 'MoveWindow'

function OffsetRect (var lpRect : RECT; x : Integer; y : Integer) : Integer; stdcall; external 'user32' name 'OffsetRect'

function OffsetRgn (hRgn : Integer; x : Integer; y : Integer) : Integer; stdcall; external 'gdi32' name 'OffsetRgn'

function OpenClipboard (hwnd : Integer) : Integer; stdcall; external 'user32' name 'OpenClipboard'

function OpenFile (lpFileName : PChar; var lpReOpenBuff : OFSTRUCT; wStyle : Integer) : Integer; stdcall; external 'kernel32' name 'OpenFile'

function OpenIcon (hwnd : Integer) : Integer; stdcall; external 'user32' name 'OpenIcon'

function OpenPrinter (pPrinterName : PChar; var phPrinter : Integer; var pDefault : PRINTER_DEFAULTS) : Integer; stdcall; external 'winspool.drv' name 'OpenPrinterA'

soroush_vs
چهارشنبه 10 آبان 1385, 13:49 عصر
از P تا Z



function PageSetupDlg (var pPagesetupdlg : PAGESETUPDLG) : Integer; stdcall; external 'comdlg32' name 'PageSetupDlgA'

function PaintDesktop (hdc : Integer) : Integer; stdcall; external 'user32' name 'PaintDesktop'

function PathAddBackslash (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathAddBackslashA'

function PathAddExtension (pszPath : PChar; pszExt : PChar) : Integer; stdcall; external 'shlwapi' name 'PathAddExtensionA'

function PathAppend (pszPath : PChar; pMore : PChar) : Integer; stdcall; external 'shlwapi' name 'PathAppendA'

function PathBuildRoot (szRoot : PChar; iDrive : Integer) : Integer; stdcall; external 'shlwapi' name 'PathBuildRootA'

function PathCanonicalize (pszBuf : PChar; pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathCanonicalizeA'

function PathCombine (szDest : PChar; lpszDir : PChar; lpszFile : PChar) : Integer; stdcall; external 'shlwapi' name 'PathCombineA'

function PathCommonPrefix (pszFile1 : PChar; pszFile2 : PChar; achPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathCommonPrefixA'

function PathCompactPath (hDC : Integer; pszPath : PChar; dx : Integer) : Integer; stdcall; external 'shlwapi' name 'PathCompactPathA'

function PathCompactPathEx (pszOut : PChar; pszSrc : PChar; cchMax : Integer; dwFlags : Integer) : Integer; stdcall; external 'shlwapi' name 'PathCompactPathExA'

function PathCreateFromUrl (pszUrl : PChar; pszPath : PChar; var pcchPath : Integer; dwFlags : Integer) : Integer; stdcall; external 'shlwapi' name 'PathCreateFromUrlA'

function PathFileExists (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathFileExistsA'

function PathGetCharType (ch : Byte) : Integer; stdcall; external 'shlwapi' name 'PathGetCharTypeA'

function PathGetDriveNumber (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathGetDriveNumberA'

function PathIsDirectory (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsDirectoryA'

function PathIsDirectoryEmpty (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsDirectoryEmptyA'

function PathIsLFNFileSpec (lpName : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsLFNFileSpecA'

function PathIsNetworkPath (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsNetworkPathA'

function PathIsPrefix (pszPrefix : PChar; pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsPrefixA'

function PathIsRelative (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsRelativeA'

function PathIsRoot (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsRootA'

function PathIsSameRoot (pszPath1 : PChar; pszPath2 : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsSameRootA'

function PathIsSystemFolder (pszPath : PChar; dwAttrb : Integer) : Integer; stdcall; external 'shlwapi' name 'PathIsSystemFolderA'

function PathIsUNC (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsUNCA'

function PathIsUNCServer (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsUNCServerA'

function PathIsUNCServerShare (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsUNCServerShareA'

function PathIsURL (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathIsURLA'

function PathMakePretty (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathMakePrettyA'

function PathMatchSpec (pszFile : PChar; pszSpec : PChar) : Integer; stdcall; external 'shlwapi' name 'PathMatchSpecA'

procedure PathQuoteSpaces (lpsz : PChar); stdcall; external 'shlwapi' name 'PathQuoteSpacesA'

procedure PathStripPath (pszPath : PChar); stdcall; external 'shlwapi' name 'PathStripPathA'

function PathStripToRoot (pszPath : PChar) : Integer; stdcall; external 'shlwapi' name 'PathStripToRootA'

function PathToRegion (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'PathToRegion'

procedure PathUnquoteSpaces (lpsz : PChar); stdcall; external 'shlwapi' name 'PathUnquoteSpacesA'

function Pie (hdc : Integer; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer; X3 : Integer; Y3 : Integer; X4 : Integer; Y4 : Integer) : Integer; stdcall; external 'gdi32' name 'Pie'

function PlaySound (lpszName : PChar; hModule : Integer; dwFlags : Integer) : Integer; stdcall; external 'winmm' name 'PlaySoundA'

function PolyBezier (hdc : Integer; var lppt : POINTAPI; cPoints : Integer) : Integer; stdcall; external 'gdi32' name 'PolyBezier'

function PolyBezierTo (hdc : Integer; var lppt : POINTAPI; cCount : Integer) : Integer; stdcall; external 'gdi32' name 'PolyBezierTo'

function Polygon (hdc : Integer; var lpPoint : POINTAPI; nCount : Integer) : Integer; stdcall; external 'gdi32' name 'Polygon'

function Polyline (hdc : Integer; var lpPoint : POINTAPI; nCount : Integer) : Integer; stdcall; external 'gdi32' name 'Polyline'

function PolylineTo (hdc : Integer; var lppt : POINTAPI; cCount : Integer) : Integer; stdcall; external 'gdi32' name 'PolylineTo'

function PolyPolygon (hdc : Integer; var lpPoint : POINTAPI; var lpPolyCounts : Integer; nCount : Integer) : Integer; stdcall; external 'gdi32' name 'PolyPolygon'

function PolyPolyline (hdc : Integer; var lppt : POINTAPI; var lpdwPolyPoints : Integer; cCount : Integer) : Integer; stdcall; external 'gdi32' name 'PolyPolyline'

function PrinterProperties (hwnd : Integer; hPrinter : Integer) : Integer; stdcall; external 'winspool.drv' name 'PrinterProperties'

function PrintWindow (hWnd : Integer; hdcBlt : Integer; nFlags : Integer) : Integer; stdcall; external 'user32' name 'PrintWindow'

function Process32First (hSnapshot : Integer; var lppe : LPPROCESSENTRY32) : Integer; stdcall; external 'KERNEL32' name 'Process32First'

function Process32Next (hSnapshot : Integer; var lppe : LPPROCESSENTRY32) : Integer; stdcall; external 'KERNEL32' name 'Process32Next'

function PtInRect (var lpRect : RECT; x : Integer; y : Integer) : Integer; stdcall; external 'user32' name 'PtInRect'

function PtInRegion (hRgn : Integer; x : Integer; y : Integer) : Integer; stdcall; external 'gdi32' name 'PtInRegion'

function PwdChangePassword (lpcRegkeyname : PChar; hwnd : Integer; uiReserved1 : Integer; uiReserved2 : Integer) : Integer; stdcall; external 'mpr' name 'PwdChangePasswordA'

function ReadFile (hFile : Integer; var lpBuffer : Pointer; nNumberOfBytesToRead : Integer; var lpNumberOfBytesRead : Integer; var lpOverlapped : OVERLAPPED) : Integer; stdcall; external 'kernel32' name 'ReadFile'

function Rectangle (hdc : Integer; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer) : Integer; stdcall; external 'gdi32' name 'Rectangle'

function RegCloseKey (hKey : Integer) : Integer; stdcall; external 'advapi32' name 'RegCloseKey'

function RegCreateKeyEx (hKey : Integer; lpSubKey : PChar; Reserved : Integer; lpClass : PChar; dwOptions : Integer; samDesired : Integer; var lpSecurityAttributes : SECURITY_ATTRIBUTES; var phkResult : Integer; var lpdwDisposition : Integer) : Integer; stdcall; external 'advapi32' name 'RegCreateKeyExA'

function RegDeleteKey (hKey : Integer; lpSubKey : PChar) : Integer; stdcall; external 'advapi32' name 'RegDeleteKeyA'

function RegDeleteValue (hKey : Integer; lpValueName : PChar) : Integer; stdcall; external 'advapi32' name 'RegDeleteValueA'

function RegEnumKeyEx (hKey : Integer; dwIndex : Integer; lpName : PChar; var lpcbName : Integer; lpReserved : Integer; lpClass : PChar; var lpcbClass : Integer; var lpftLastWriteTime : FILETIME) : Integer; stdcall; external 'advapi32' name 'RegEnumKeyExA'

function RegEnumValue (hKey : Integer; dwIndex : Integer; lpValueName : PChar; var lpcbValueName : Integer; lpReserved : Integer; var lpType : Integer; var lpData : Byte; var lpcbData : Integer) : Integer; stdcall; external 'advapi32' name 'RegEnumValueA'

function RegisterHotKey (hwnd : Integer; id : Integer; fsModifiers : Integer; vk : Integer) : Integer; stdcall; external 'user32' name 'RegisterHotKey'

function RegisterServiceProcess (dwProcessID : Integer; dwType : Integer) : Integer; stdcall; external 'kernel32' name 'RegisterServiceProcess'

function RegNotifyChangeKeyValue (hKey : Integer; bWatchSubtree : Integer; dwNotifyFilter : Integer; hEvent : Integer; fAsynchronus : Integer) : Integer; stdcall; external 'advapi32' name 'RegNotifyChangeKeyValue'

function RegOpenKeyEx (hKey : Integer; lpSubKey : PChar; ulOptions : Integer; samDesired : Integer; var phkResult : Integer) : Integer; stdcall; external 'advapi32' name 'RegOpenKeyExA'

function RegQueryValueEx (hKey : Integer; lpValueName : PChar; lpReserved : Integer; var lpType : Integer; var lpData : Pointer; var lpcbData : Integer) : Integer; stdcall; external 'advapi32' name 'RegQueryValueExA'

function RegSetValueEx (hKey : Integer; lpValueName : PChar; Reserved : Integer; dwType : Integer; var lpData : Pointer; cbData : Integer) : Integer; stdcall; external 'advapi32' name 'RegSetValueExA'

function ReleaseCapture () : Integer; stdcall; external 'user32' name 'ReleaseCapture'

function RemoveDirectory (lpPathName : PChar) : Integer; stdcall; external 'kernel32' name 'RemoveDirectoryA'

function RemoveMenu (hMenu : Integer; nPosition : Integer; wFlags : Integer) : Integer; stdcall; external 'user32' name 'RemoveMenu'

function RoundRect (hdc : Integer; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer; X3 : Integer; Y3 : Integer) : Integer; stdcall; external 'gdi32' name 'RoundRect'

function SearchTreeForFile (RootPath : PChar; InputPathName : PChar; InputPathBuffer : PChar) : Integer; stdcall; external 'imagehelp' name 'SearchTreeForFile'

function SendInput (cInputs : Integer; var pInputs : INPUT; cbSize : Integer) : Integer; stdcall; external 'user32' name 'SendInput'

function SetActiveWindow (hwnd : Integer) : Integer; stdcall; external 'user32' name 'SetActiveWindow'

function SetArcDirection (hdc : Integer; ArcDirection : Integer) : Integer; stdcall; external 'gdi32' name 'SetArcDirection'

function SetCapture (hwnd : Integer) : Integer; stdcall; external 'user32' name 'SetCapture'

function SetCaretBlinkTime (wMSeconds : Integer) : Integer; stdcall; external 'user32' name 'SetCaretBlinkTime'

function SetClipboardData (wFormat : Integer; hMem : Integer) : Integer; stdcall; external 'user32' name 'SetClipboardData'

function SetComputerName (lpComputerName : PChar) : Integer; stdcall; external 'kernel32' name 'SetComputerNameA'

function SetCurrentDirectory (lpPathName : PChar) : Integer; stdcall; external 'kernel32' name 'SetCurrentDirectoryA'

function SetCursorPos (x : Integer; y : Integer) : Integer; stdcall; external 'user32' name 'SetCursorPos'

function SetDoubleClickTime (wCount : Integer) : Integer; stdcall; external 'user32' name 'SetDoubleClickTime'

function SetFileAttributes (lpFileName : PChar; dwFileAttributes : Integer) : Integer; stdcall; external 'kernel32' name 'SetFileAttributesA'

function SetFilePointer (hFile : Integer; lDistanceToMove : Integer; var lpDistanceToMoveHigh : Integer; dwMoveMethod : Integer) : Integer; stdcall; external 'kernel32' name 'SetFilePointer'

function SetFileTime (hFile : Integer; var lpCreationTime : FILETIME; var lpLastAccessTime : FILETIME; var lpLastWriteTime : FILETIME) : Integer; stdcall; external 'kernel32' name 'SetFileTime'

function SetKeyboardState (var lppbKeyState : Byte) : Integer; stdcall; external 'user32' name 'SetKeyboardState'

procedure SetLastError (dwErrCode : Integer); stdcall; external 'kernel32' name 'SetLastError'

function SetLayeredWindowAttributes (hwnd : Integer; crKey : Integer; bAlpha : Byte; dwFlags : Integer) : Integer; stdcall; external 'user32' name 'SetLayeredWindowAttributes'

function SetLayout (hdc : Integer; dword : Integer) : Integer; stdcall; external 'gdi32' name 'SetLayout'

function SetMenuItemBitmaps (hMenu : Integer; nPosition : Integer; wFlags : Integer; hBitmapUnchecked : Integer; hBitmapChecked : Integer) : Integer; stdcall; external 'user32' name 'SetMenuItemBitmaps'

function SetMenuItemInfo (hMenu : Integer; un : Integer; bool : Boolean; var lpcMenuItemInfo : MENUITEMINFO) : Integer; stdcall; external 'user32' name 'SetMenuItemInfoA'

function SetParent (hWndChild : Integer; hWndNewParent : Integer) : Integer; stdcall; external 'user32' name 'SetParent'

function SetPixel (hdc : Integer; x : Integer; y : Integer; crColor : Integer) : Integer; stdcall; external 'gdi32' name 'SetPixel'

function SetPixelV (hdc : Integer; x : Integer; y : Integer; crColor : Integer) : Integer; stdcall; external 'gdi32' name 'SetPixelV'

function SetPolyFillMode (hdc : Integer; nPolyFillMode : Integer) : Integer; stdcall; external 'gdi32' name 'SetPolyFillMode'

function SetRect (var lpRect : RECT; X1 : Integer; Y1 : Integer; X2 : Integer; Y2 : Integer) : Integer; stdcall; external 'user32' name 'SetRect'

function SetRectEmpty (var lpRect : RECT) : Integer; stdcall; external 'user32' name 'SetRectEmpty'

function SetStretchBltMode (hdc : Integer; nStretchMode : Integer) : Integer; stdcall; external 'gdi32' name 'SetStretchBltMode'

function SetSuspendState (Hibernate : Integer; ForceCritical : Integer; DisableWakeEvent : Integer) : Integer; stdcall; external 'Powrprof' name 'SetSuspendState'

function SetSysColors (nChanges : Integer; var lpSysColor : Integer; var lpColorValues : Integer) : Integer; stdcall; external 'user32' name 'SetSysColors'

function SetSystemCursor (hcur : Integer; id : Integer) : Integer; stdcall; external 'user32' name 'SetSystemCursor'

function SetSystemTime (var lpSystemTime : SYSTEMTIME) : Integer; stdcall; external 'kernel32' name 'SetSystemTime'

function SetTextAlign (hdc : Integer; wFlags : Integer) : Integer; stdcall; external 'gdi32' name 'SetTextAlign'

function SetTextColor (hdc : Integer; crColor : Integer) : Integer; stdcall; external 'gdi32' name 'SetTextColor'

function SetTimer (hWnd : Integer; nIDEvent : Integer; uElapse : Integer; lpTimerFunc : Integer) : Integer; stdcall; external 'user32' name 'SetTimer'

function SetupCopyError (hwndParent : Integer; DialogTitle : PChar; DiskName : PChar; PathToSource : PChar; SourceFile : PChar; TargetPathFile : PChar; Win32ErrorCode : Integer; Style : Integer; PathBuffer : PChar; PathBufferSize : Integer; var PathRequiredSize : Integer) : Integer; stdcall; external 'setupapi' name 'SetupCopyErrorA'

function SetupDeleteError (hwndParent : Integer; DialogTitle : PChar; File : PChar; Win32ErrorCode : Integer; Style : Integer) : Integer; stdcall; external 'setupapi' name 'SetupDeleteErrorA'

function SetupPromptForDisk (hwndParent : Integer; DialogTitle : PChar; DiskName : PChar; PathToSource : PChar; FileSought : PChar; TagFile : PChar; DiskPromptStyle : Integer; PathBuffer : PChar; PathBufferSize : Integer; var PathRequiredSize : Integer) : Integer; stdcall; external 'setupapi' name 'SetupPromptForDiskA'

function SetupPromptReboot (var FileQueue : Integer; Owner : Integer; ScanOnly : Integer) : Integer; stdcall; external 'setupapi' name 'SetupPromptReboot'

function SetupRenameError (hwndParent : Integer; DialogTitle : PChar; SourceFile : PChar; TargetFile : PChar; Win32ErrorCode : Integer; Style : Integer) : Integer; stdcall; external 'setupapi' name 'SetupRenameErrorA'

function SetVolumeLabel (lpRootPathName : PChar; lpVolumeName : PChar) : Integer; stdcall; external 'kernel32' name 'SetVolumeLabelA'

function SetWindowPos (hwnd : Integer; hWndInsertAfter : Integer; x : Integer; y : Integer; cx : Integer; cy : Integer; wFlags : Integer) : Integer; stdcall; external 'user32' name 'SetWindowPos'

function SetWindowRgn (hWnd : Integer; hRgn : Integer; bRedraw : Boolean) : Integer; stdcall; external 'user32' name 'SetWindowRgn'

function SetWindowText (hwnd : Integer; lpString : PChar) : Integer; stdcall; external 'user32' name 'SetWindowTextA'

procedure SHAddToRecentDocs (uFlags : Integer; var pv : Pointer); stdcall; external 'shell32' name 'SHAddToRecentDocs'

function SHBrowseForFolder (var lpbi : BROWSEINFO) : Integer; stdcall; external 'shell32' name 'SHBrowseForFolder'

function Shell_NotifyIcon (dwMessage : Integer; var lpData : NOTIFYICONDATA) : Integer; stdcall; external 'shell32' name 'Shell_NotifyIconA'

function ShellAbout (hwnd : Integer; szApp : PChar; szOtherStuff : PChar; hIcon : Integer) : Integer; stdcall; external 'shell32' name 'ShellAboutA'

function ShellExecute (hwnd : Integer; lpOperation : PChar; lpFile : PChar; lpParameters : PChar; lpDirectory : PChar; nShowCmd : Integer) : Integer; stdcall; external 'shell32' name 'ShellExecuteA'

function ShellExecuteEx (var lpExecInfo : SHELLEXECUTEINFOA) : Integer; stdcall; external 'shell32' name 'ShellExecuteEx'

procedure SHEmptyRecycleBin (hwnd : Integer; pszRootPath : PChar; dwFlags : Integer); stdcall; external 'shell32' name 'SHEmptyRecycleBinA'

function SHFileOperation (var lpFileOp : SHFILEOPSTRUCT) : Integer; stdcall; external 'shell32' name 'SHFileOperationA'

function SHGetFileInfo (pszPath : PChar; dwFileAttributes : Integer; var psfi : SHFILEINFO; cbFileInfo : Integer; uFlags : Integer) : Integer; stdcall; external 'shell32' name 'SHGetFileInfoA'

procedure SHGetSpecialFolderLocation (hwnd : Integer; csidl : Integer; var ppidl : ITEMIDLIST); stdcall; external 'shell32' name 'SHGetSpecialFolderLocation'

function ShowCaret (hwnd : Integer) : Integer; stdcall; external 'user32' name 'ShowCaret'

function ShowCursor (bShow : Integer) : Integer; stdcall; external 'user32' name 'ShowCursor'

function ShowScrollBar (hwnd : Integer; wBar : Integer; bShow : Integer) : Integer; stdcall; external 'user32' name 'ShowScrollBar'

function ShowWindow (hwnd : Integer; nCmdShow : Integer) : Integer; stdcall; external 'user32' name 'ShowWindow'

procedure SHQueryRecycleBin (pszRootPath : PChar; var pSHQueryRBInfo : SHQUERYRBINFO); stdcall; external 'shell32' name 'SHQueryRecycleBinA'

procedure Sleep (dwMilliseconds : Integer); stdcall; external 'kernel32' name 'Sleep'

function sndPlaySound (lpszSoundName : PChar; uFlags : Integer) : Integer; stdcall; external 'winmm' name 'sndPlaySoundA'

function StartDoc (hdc : Integer; var lpdi : DOCINFO) : Integer; stdcall; external 'gdi32' name 'StartDocA'

function StartPage (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'StartPage'

function StretchBlt (hdc : Integer; x : Integer; y : Integer; nWidth : Integer; nHeight : Integer; hSrcDC : Integer; xSrc : Integer; ySrc : Integer; nSrcWidth : Integer; nSrcHeight : Integer; dwRop : Integer) : Integer; stdcall; external 'gdi32' name 'StretchBlt'

function StrokeAndFillPath (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'StrokeAndFillPath'

function StrokePath (hdc : Integer) : Integer; stdcall; external 'gdi32' name 'StrokePath'

function SubtractRect (var lprcDst : RECT; var lprcSrc1 : RECT; var lprcSrc2 : RECT) : Integer; stdcall; external 'user32' name 'SubtractRect'

function SwapMouseButton (bSwap : Integer) : Integer; stdcall; external 'user32' name 'SwapMouseButton'

function SystemTimeToFileTime (var lpSystemTime : SYSTEMTIME; var lpFileTime : FILETIME) : Integer; stdcall; external 'kernel32' name 'SystemTimeToFileTime'

function TextOut (hdc : Integer; x : Integer; y : Integer; lpString : PChar; nCount : Integer) : Integer; stdcall; external 'gdi32' name 'TextOutA'

function timeGetTime () : Integer; stdcall; external 'winmm' name 'timeGetTime'

function TrackPopupMenuEx (hMenu : Integer; un : Integer; n1 : Integer; n2 : Integer; hWnd : Integer; var lpTPMParams : TPMPARAMS) : Integer; stdcall; external 'user32' name 'TrackPopupMenuEx'

function TranslateColors (var THTRANSFORM : Integer; var TPCOLOR : PCOLOR; dword : Integer; pColortype : Struct_MembersOf_COLORTYPE; var TPCOLOR : PCOLOR; pColortype : Struct_MembersOf_COLORTYPE) : Integer; stdcall; external 'mscms' name 'TranslateColors'

function TransparentBlt (hdc : Integer; x : Integer; y : Integer; nWidth : Integer; nHeight : Integer; hSrcDC : Integer; xSrc : Integer; ySrc : Integer; nSrcWidth : Integer; nSrcHeight : Integer; crTransparent : Integer) : Integer; stdcall; external 'msimg32' name 'TransparentBlt'

function UnionRect (var lpDestRect : RECT; var lpSrc1Rect : RECT; var lpSrc2Rect : RECT) : Integer; stdcall; external 'user32' name 'UnionRect'

function UnregisterHotKey (hwnd : Integer; id : Integer) : Integer; stdcall; external 'user32' name 'UnregisterHotKey'

procedure URLDownloadToFile (lpunknown : Integer; lpcstr : PChar; lpcstr : PChar; dword : Integer; var TLPBINDSTATUSCALLBACK : LPBINDSTATUSCALLBACK); stdcall; external 'URLMON' name 'URLDownloadToFile'

function VerLanguageName (wLang : Integer; szLang : PChar; nSize : Integer) : Integer; stdcall; external 'kernel32' name 'VerLanguageNameA'

function VerQueryValue (var pBlock : Pointer; lpSubBlock : PChar; lplpBuffer : Integer; var puLen : Integer) : Integer; stdcall; external 'version.dll' name 'VerQueryValueA'

function WindowFromDC (hdc : Integer) : Integer; stdcall; external 'user32' name 'WindowFromDC'

function WindowFromPoint (xPoint : Integer; yPoint : Integer) : Integer; stdcall; external 'user32' name 'WindowFromPoint'

function WinExec (lpCmdLine : PChar; nCmdShow : Integer) : Integer; stdcall; external 'kernel32' name 'WinExec'

function WinHelp (hwnd : Integer; lpHelpFile : PChar; wCommand : Integer; dwData : Integer) : Integer; stdcall; external 'user32' name 'WinHelpA'

function WriteFile (hFile : Integer; var lpBuffer : Pointer; nNumberOfBytesToWrite : Integer; var lpNumberOfBytesWritten : Integer; var lpOverlapped : OVERLAPPED) : Integer; stdcall; external 'kernel32' name 'WriteFile'

function WritePrivateProfileSection (lpAppName : PChar; lpString : PChar; lpFileName : PChar) : Integer; stdcall; external 'kernel32' name 'WritePrivateProfileSectionA'

function WritePrivateProfileString (lpApplicationName : PChar; lpKeyName : Pointer; lpString : Pointer; lpFileName : PChar) : Integer; stdcall; external 'kernel32' name 'WritePrivateProfileStringA'

function WriteProfileString (lpszSection : PChar; lpszKeyName : PChar; lpszString : PChar) : Integer; stdcall; external 'kernel32' name 'WriteProfileStringA'

procedure ZeroMemory (var Destination : Pointer; Length : Integer); stdcall; external 'kernel32' name 'RtlZeroMemorA'

soroush_vs
چهارشنبه 10 آبان 1385, 13:51 عصر
ثابت ها یا Constants



AD_CLOCKWISE = 2;
AD_COUNTERCLOCKWISE = 1;

ALTERNATE = 1;

AW_ACTIVATE = $00020000;
AW_BLEND = $00080000;
AW_CENTER = $00000010;
AW_HIDE = $00010000;
AW_HOR_NEGATIVE = $00000002;
AW_HOR_POSITIVE = $00000001;
AW_SLIDE = $00040000;
AW_VER_NEGATIVE = $00000008;
AW_VER_POSITIVE = $00000004;

BDR_INNER = $0000000C;
BDR_OUTER = $00000003;
BDR_RAISED = $00000005;
BDR_RAISEDINNER = $00000004;
BDR_RAISEDOUTER = $00000001;
BDR_SUNKEN = $0000000A;
BDR_SUNKENINNER = $00000008;
BDR_SUNKENOUTER = $00000002;

BF_BOTTOM = $00000008;
BF_BOTTOMLEFT = [BF_BOTTOM Or BF_LEFT];
BF_BOTTOMRIGHT = [BF_BOTTOM Or BF_RIGHT];
BF_DIAGONAL = $00000010;
BF_DIAGONAL_ENDBOTTOMLEFT = [BF_DIAGONAL Or BF_BOTTOM Or BF_LEFT];
BF_DIAGONAL_ENDBOTTOMRIGHT = [BF_DIAGONAL Or BF_BOTTOM Or BF_RIGHT];
BF_DIAGONAL_ENDTOPLEFT = [BF_DIAGONAL Or BF_TOP Or BF_LEFT];
BF_DIAGONAL_ENDTOPRIGHT = [BF_DIAGONAL Or BF_TOP Or BF_RIGHT];
BF_FLAT = $00004000;
BF_LEFT = $00000001;
BF_MIDDLE = $00000800;
BF_MONO = $00008000;
BF_RECT = [BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM];
BF_RIGHT = $00000004;
BF_SOFT = $00001000;
BF_TOP = $00000002;
BF_TOPLEFT = [BF_TOP Or BF_LEFT];
BF_TOPRIGHT = [BF_TOP Or BF_RIGHT];

BIF_BROWSEFORCOMPUTER = $00001000;
BIF_BROWSEFORPRINTER = $00002000;
BIF_BROWSEINCLUDEFILES = $00004000;
BIF_DONTGOBELOWDOMAIN = $00000002;
BIF_EDITBOX = $00000010;
BIF_RETURNFSANCESTORS = $00000008;
BIF_RETURNONLYFSDIRS = $00000001;
BIF_STATUSTEXT = $00000004;
BIF_USENEWUI = $00000040;
BIF_VALIDATE = $00000020;

BLACK_BRUSH = 4;
BLACKONWHITE = 1;

BS_HATCHED = 2;
BS_SOLID = 0;

CC_ANYCOLOR = $00000100;
CC_FULLOPEN = $00000002;
CC_PREVENTFULLOPEN = $00000004;
CC_SHOWHELP = $00000008;
CC_SOLIDCOLOR = $00000080;

CDS_FULLSCREEN = $00000004;
CDS_GLOBAL = $00000008;
CDS_NORESET = $10000000;
CDS_RESET = $40000000;
CDS_TEST = $00000002;
CDS_UPDATEREGISTRY = $00000001;

CF_BITMAP = 2;
CF_ENHMETAFILE = 14;
CF_JPEG = 19;
CF_METAFILEPICT = 3;
CF_NULL = 0;
CF_RTF = ['Rich Text Format'];
CF_TEXT = 1;
CF_TIFF = 6;
CF_UNICODETEXT = 13;
CF_WAVE = 12;

CLR_DEFAULT = $FF000000;
CLR_HILIGHT = CLR_DEFAULT;
CLR_INVALID = $0000FFFF;
CLR_NONE = $FFFFFFFF;

COLOR_3DDKSHADOW = 21;
COLOR_3DFACE = COLOR_BTNFACE;
COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT;
COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT;
COLOR_3DLIGHT = 22;
COLOR_3DSHADOW = COLOR_BTNSHADOW;
COLOR_ACTIVEBORDER = 10;
COLOR_ACTIVECAPTION = 2;
COLOR_APPWORKSPACE = 12;
COLOR_BACKGROUND = 1;
COLOR_BLUE = 708;
COLOR_BLUEACCEL = 728;
COLOR_BTNFACE = 15;
COLOR_BTNHIGHLIGHT = 20;
COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT;
COLOR_BTNSHADOW = 16;
COLOR_BTNTEXT = 18;
COLOR_CAPTIONTEXT = 9;
COLOR_CURRENT = 709;
COLOR_DESKTOP = COLOR_BACKGROUND;
COLOR_GRADIENTACTIVECAPTION = 27;
COLOR_GRADIENTINACTIVECAPTION = 28;
COLOR_GRAYTEXT = 17;
COLOR_GREEN = 707;
COLOR_GREENACCEL = 727;
COLOR_HIGHLIGHT = 13;
COLOR_HIGHLIGHTTEXT = 14;
COLOR_HOTLIGHT = 26;
COLOR_HUE = 703;
COLOR_HUEACCEL = 723;
COLOR_HUESCROLL = 700;
COLOR_INACTIVEBORDER = 11;
COLOR_INACTIVECAPTION = 3;
COLOR_INACTIVECAPTIONTEXT = 19;
COLOR_INFOBK = 24;
COLOR_INFOTEXT = 23;
COLOR_LUM = 705;
COLOR_LUMACCEL = 725;
COLOR_LUMSCROLL = 702;
COLOR_MATCH_VERSION = $00000200;
COLOR_MENU = 4;
COLOR_MENUTEXT = 7;
COLOR_MIX = 719;
COLOR_NO_TRANSPARENT = $FFFFFFFF;
COLOR_PALETTE = 718;
COLOR_RAINBOW = 710;
COLOR_RED = 706;
COLOR_REDACCEL = 726;
COLOR_SAT = 704;
COLOR_SATACCEL = 724;
COLOR_SATSCROLL = 701;
COLOR_SAVE = 711;
COLOR_SCHEMES = 715;
COLOR_SCROLLBAR = 0;
COLOR_SOLID = 713;
COLOR_SOLID_LEFT = 730;
COLOR_SOLID_RIGHT = 731;
COLOR_TUNE = 714;
COLOR_WINDOW = 5;
COLOR_WINDOWFRAME = 6;
COLOR_WINDOWTEXT = 8;

COLORONCOLOR = 3;

COMPLEXREGION = 3;

CREATE_ALWAYS = 2;
CREATE_NEW = 1;

CSIDL_CONNECTIONS = $00000031;
CSIDL_CONTROLS = $00000003;
CSIDL_COOKIES = $00000021;
CSIDL_DESKTOP = 0;
CSIDL_DESKTOPDIRECTORY = $00000010;
CSIDL_DRIVES = $00000011;
CSIDL_FAVORITES = $00000006;
CSIDL_FONTS = $00000014;
CSIDL_HISTORY = $00000022;
CSIDL_INTERNET = $00000001;
CSIDL_MYPICTURES = $00000027;
CSIDL_NETHOOD = $00000013;
CSIDL_NETWORK = $00000012;
CSIDL_PERSONAL = $00000005;
CSIDL_PRINTERS = $00000004;
CSIDL_PRINTHOOD = $0000001b;
CSIDL_PROFILE = $00000028;
CSIDL_PROGRAM_FILES = $00000026;
CSIDL_PROGRAM_FILES_COMMON = $0000002b;
CSIDL_PROGRAM_FILES_COMMONX86 = $0000002c;
CSIDL_PROGRAM_FILESX86 = $0000002a;
CSIDL_PROGRAMS = $00000002;
CSIDL_RECENT = $00000008;
CSIDL_SENDTO = $00000009;
CSIDL_STARTMENU = $0000000b;
CSIDL_STARTUP = $00000007;
CSIDL_SYSTEM = $00000025;
CSIDL_SYSTEMX86 = $00000029;
CSIDL_TEMPLATES = $00000015;
CSIDL_WINDOWS = $00000024;

CSTR_EQUAL = 2;
CSTR_GREATER_THAN = 3;
CSTR_LESS_THAN = 1;

DC_ACTIVE = $00000001;
DC_GRADIENT = $00000020;
DC_ICON = $00000004;
DC_TEXT = $00000008;

DFC_BUTTON = 4;
DFC_CAPTION = 1;
DFC_MENU = 2;
DFC_POPUPMENU = 5;
DFC_SCROLL = 3;

DFCS_ADJUSTRECT = $00002000;
DFCS_BUTTON3STATE = $00000008;
DFCS_BUTTONCHECK = 0;
DFCS_BUTTONPUSH = $00000010;
DFCS_BUTTONRADIO = $00000004;
DFCS_BUTTONRADIOIMAGE = $00000001;
DFCS_BUTTONRADIOMASK = $00000002;
DFCS_CAPTIONCLOSE = 0;
DFCS_CAPTIONHELP = $00000004;
DFCS_CAPTIONMAX = $00000002;
DFCS_CAPTIONMIN = $00000001;
DFCS_CAPTIONRESTORE = $00000003;
DFCS_CHECKED = $00000400;
DFCS_FLAT = $00004000;
DFCS_HOT = $00001000;
DFCS_INACTIVE = $00000100;
DFCS_MENUARROW = 0;
DFCS_MENUARROWRIGHT = $00000004;
DFCS_MENUBULLET = $00000002;
DFCS_MENUCHECK = $00000001;
DFCS_MONO = $00008000;
DFCS_PUSHED = $00000200;
DFCS_SCROLLCOMBOBOX = $00000005;
DFCS_SCROLLDOWN = $00000001;
DFCS_SCROLLLEFT = $00000002;
DFCS_SCROLLRIGHT = $00000003;
DFCS_SCROLLSIZEGRIP = $00000008;
DFCS_SCROLLSIZEGRIPRIGHT = $00000010;
DFCS_SCROLLUP = 0;
DFCS_TRANSPARENT = $00000800;

DI_IMAGE = $00000002;
DI_MASK = $00000001;
DI_NORMAL = $00000003;

DISP_CHANGE_BADFLAGS = -4;
DISP_CHANGE_BADMODE = -2;
DISP_CHANGE_BADPARAM = -5;
DISP_CHANGE_FAILED = -1;
DISP_CHANGE_NOTUPDATED = -3;
DISP_CHANGE_RESTART = 1;
DISP_CHANGE_SUCCESSFUL = 0;

DM_PELSHEIGHT = $0100000;
DM_PELSWIDTH = $00080000;

DPROMPT_BUFFERTOOSMALL = 3;
DPROMPT_CANCEL = 1;
DPROMPT_OUTOFMEMORY = 4;
DPROMPT_SKIPFILE = 2;
DPROMPT_SUCCESS = 0;

DRIVE_CDROM = 5;
DRIVE_FIXED = 3;
DRIVE_NO_ROOT_DIR = 1;
DRIVE_RAMDISK = 6;
DRIVE_REMOTE = 4;
DRIVE_REMOVABLE = 2;
DRIVE_UNKNOWN = 0;

DT_BOTTOM = $00000008;
DT_CALCRECT = $00000400;
DT_CENTER = $00000001;
DT_EDITCONTROL = $00002000;
DT_END_ELLIPSIS = $00008000;
DT_EXPANDTABS = $00000040;
DT_EXTERNALLEADING = $00000200;
DT_INTERNAL = $00001000;
DT_LEFT = 0;
DT_MODIFYSTRING = $00010000;
DT_MULTILINE = [$00000001];
DT_NOCLIP = $00000100;
DT_NOPREFIX = $00000800;
DT_PATH_ELLIPSIS = $00004000;
DT_RIGHT = $00000002;
DT_RTLREADING = $00020000;
DT_SINGLELINE = $00000020;
DT_TABSTOP = $00000080;
DT_TOP = 0;
DT_VCENTER = $00000004;
DT_WORDBREAK = $00000010;

E_INVALIDARG = $80070057;

EDGE_BUMP = [BDR_RAISEDOUTER Or BDR_SUNKENINNER];
EDGE_ETCHED = [BDR_SUNKENOUTER Or BDR_RAISEDINNER];
EDGE_RAISED = [BDR_RAISEDOUTER Or BDR_RAISEDINNER];
EDGE_SUNKEN = [BDR_SUNKENOUTER Or BDR_SUNKENINNER];

ENUM_CURRENT_SETTINGS = [-1];
ENUM_REGISTRY_SETTINGS = [-2];

ERROR = 0;
ERROR_BAD_FORMAT = 11;
ERROR_FILE_NOT_FOUND = 2;
ERROR_NO_MORE_ITEMS = 259;
ERROR_PATH_NOT_FOUND = 3;
ERROR_SUCCESS = 0;

ETO_CLIPPED = 4;
ETO_OPAQUE = 2;

EWX_FORCE = 4;
EWX_LOGOFF = 0;
EWX_POWEROFF = $00000008;
EWX_REBOOT = 2;
EWX_SHUTDOWN = 1;

FILE_ATTRIBUTE_ARCHIVE = $00000020;
FILE_ATTRIBUTE_COMPRESSED = $00000800;
FILE_ATTRIBUTE_DIRECTORY = $00000010;
FILE_ATTRIBUTE_HIDDEN = $00000002;
FILE_ATTRIBUTE_NORMAL = $00000080;
FILE_ATTRIBUTE_READONLY = $00000001;
FILE_ATTRIBUTE_SYSTEM = $00000004;
FILE_ATTRIBUTE_TEMPORARY = $00000100;

FILE_BEGIN = 0;
FILE_CURRENT = 1;
FILE_END = 2;

FILE_TYPE_CHAR = $00000002;
FILE_TYPE_DISK = $00000001;
FILE_TYPE_PIPE = $00000003;
FILE_TYPE_REMOTE = $00008000;
FILE_TYPE_UNKNOWN = 0;

FILE_FILE_COMPRESSION = $00000010;

FILE_SHARE_DELETE = $00000004;
FILE_SHARE_READ = $00000001;
FILE_SHARE_WRITE = $00000002;

FILE_SUPPORTS_ENCRYPTION = $00020000;
FILE_UNICODE_ON_DISK = $00000004;
FILE_VOLUME_IS_COMPRESSED = $00008000;

FLAG_ICC_FORCE_CONNECTION = $00000001;

FLASHW_ALL = [FLASHW_CAPTION Or FLASHW_TRAY];
FLASHW_CAPTION = $00000001;
FLASHW_STOP = 0;
FLASHW_TIMER = $00000004;
FLASHW_TIMERNOFG = $0000000C;
FLASHW_TRAY = $00000002;

FO_COPY = $00000002;
FO_DELETE = $00000003;
FO_MOVE = $00000001;
FO_RENAME = $00000004;

FOF_ALLOWUNDO = $00000040;

FORMAT_MESSAGE_ALLOCATE_BUFFER = $00000100;
FORMAT_MESSAGE_FROM_SYSTEM = $00001000;

FS_FILE_COMPRESSION = FILE_FILE_COMPRESSION;
FS_UNICODE_STORED_ON_DISK = FILE_UNICODE_ON_DISK;
FS_VOL_IS_COMPRESSED = FILE_VOLUME_IS_COMPRESSED;

GA_PARENT = 1;
GA_ROOT = 2;

GCT_INVALID = 0;
GCT_LFNCHAR = $00000001;
GCT_SEPARATOR = $00000008;
GCT_SHORTCHAR = $00000002;
GCT_WILD = $00000004;

GDI_ERROR = $0000FFFF;

GENERIC_READ = $80000000;
GENERIC_WRITE = $40000000;

GFSR_GDIRESOURCES = 1;
GFSR_SYSTEMRESOURCES = 0;
GFSR_USERRESOURCES = 2;

GRADIENT_FILL_RECT_H = 0;
GRADIENT_FILL_RECT_V = $00000001;
GRADIENT_FILL_TRIANGLE = $00000002;

GW_CHILD = 5;
GW_HWNDFIRST = 0;
GW_HWNDLAST = 1;
GW_HWNDNEXT = 2;
GW_HWNDPREV = 3;

GWL_EXSTYLE = -20;

HALFTONE = 4;

HELP_COMMAND = $00000102;
HELP_CONTENTS = $00000003;
HELP_CONTEXT = $00000001;
HELP_CONTEXTMENU = $0000000a;
HELP_CONTEXTPOPUP = $00000008;
HELP_FINDER = $0000000b;
HELP_FORCEFILE = $00000009;
HELP_HELPONHELP = $00000004;
HELP_INDEX = $00000003;
HELP_KEY = $00000101;
HELP_MULTIKEY = $00000201;
HELP_PARTIALKEY = $00000105;
HELP_QUIT = $00000002;
HELP_SETCONTENTS = $00000005;
HELP_SETINDEX = $00000005;
HELP_SETPOPUP_POS = $0000000d;
HELP_SETWINPOS = $00000203;
HELP_TCARD = $00008000;
HELP_WM_HELP = $0000000c;

HFILE_ERROR = -1;

HH_CLOSE_ALL = $00000012;
HH_DISPLAY_INDEX = $00000002;
HH_DISPLAY_SEARCH = $00000003;
HH_DISPLAY_TEXT_POPUP = $0000000E;
HH_DISPLAY_TOPIC = 0;
HH_GET_WIN_HANDLE = $00000006;
HH_GET_WIN_TYPE = $00000005;
HH_HELP_CONTEXT = $0000000F;
HH_SET_WIN_TYPE = $00000004;
HH_TP_HELP_CONTEXTMENU = $00000010;
HH_TP_HELP_WM_HELP = $00000011;

HKEY_CLASSES_ROOT = $80000000;
HKEY_CURRENT_CONFIG = $80000005;
HKEY_CURRENT_USER = $80000001;
HKEY_DYN_DATA = $80000006;
HKEY_LOCAL_MACHINE = $80000002;
HKEY_USERS = $80000003;

HKL_NEXT = 1;
HKL_PREV = 0;

HS_BDIAGONAL = 3;
HS_BDIAGONAL1 = 7;
HS_CROSS = 4;
HS_DENSE1 = 9;
HS_DENSE2 = 10;
HS_DENSE3 = 11;
HS_DENSE4 = 12;
HS_DENSE5 = 13;
HS_DENSE6 = 14;
HS_DENSE7 = 15;
HS_DENSE8 = 16;
HS_DIAGCROSS = 5;
HS_DITHEREDBKCLR = 24;
HS_DITHEREDCLR = 20;
HS_DITHEREDTEXTCLR = 22;
HS_FDIAGONAL = 2;
HS_FDIAGONAL1 = 6;
HS_HALFTONE = 18;
HS_HORIZONTAL = 0;
HS_NOSHADE = 17;
HS_SOLID = 8;
HS_SOLIDBKCLR = 23;
HS_SOLIDCLR = 19;
HS_SOLIDTEXTCLR = 21;
HS_VERTICAL = 1;

HWND_BOTTOM = 1;
HWND_NOTOPMOST = -2;
HWND_TOP = 0;
HWND_TOPMOST = -1;

ICU_BROWSER_MODE = $02000000;
ICU_DECODE = $10000000;
ICU_ENCODE_PERCENT = $00001000;
ICU_ENCODE_SPACES_ONLY = $04000000;
ICU_NO_ENCODE = $020000000;
ICU_NO_META = $08000000;
ICU_USERNAME = $40000000;

IDABORT = 3;
IDIGNORE = 5;
IDNO = 7;
IDOK = 1;
IDRETRY = 4;
IDTRYAGAIN = 10;
IDYES = 6;
IDCANCEL = 2;
IDCONTINUE = 11;

IDANI_CAPTION = $00000003;
IDANI_CLOSE = $00000002;
IDANI_OPEN = $00000001;



IDC_APPSTARTING = 32650;
IDC_ARROW = 32512;
IDC_CROSS = 32515;
IDC_HAND = 32649;
IDC_HELP = 32651;
IDC_IBEAM = 32513;
IDC_ICON = 32641;
IDC_NO = 32648;
IDC_OFFLINE_HAND = 103;
IDC_SIZE = 32640;
IDC_SIZEALL = 32646;
IDC_SIZENESW = 32643;
IDC_SIZENS = 32645;
IDC_SIZENWSE = 32642;
IDC_SIZEWE = 32644;
IDC_UPARROW = 32516;
IDC_WAIT = 32514;

IDF_CHECKFIRST = $00000100;
IDF_NOBEEP = $00000200;
IDF_NOBROWSE = $00000001;
IDF_NOCOMPRESSED = $00000008;
IDF_NODETAILS = $00000004;
IDF_NOFOREGROUND = $00000400;
IDF_NOSKIP = $00000002;
IDF_OEMDISK = $80000000;
IDF_WARNIFSKIP = $00000800;

IDI_APPLICATION = 32512;
IDI_ASTERISK = 32516;
IDI_ERROR = IDI_HAND;
IDI_EXCLAMATION = 32515;
IDI_HAND = 32513;
IDI_INFORMATION = IDI_ASTERISK;
IDI_QUESTION = 32514;
IDI_WARNING = IDI_EXCLAMATION;
IDI_WINLOGO = 32517;

ILD_BLEND = ILD_BLEND50;
ILD_BLEND25 = $00000002;
ILD_BLEND50 = $00000004;
ILD_FOCUS = ILD_BLEND25;
ILD_IMAGE = $00000020;
ILD_MASK = $00000010;
ILD_NORMAL = 0;
ILD_OVERLAYMASK = $00000F00;
ILD_ROP = $00000040;
ILD_SELECTED = ILD_BLEND50;
ILD_TRANSPARENT = $00000001;

IMAGE_BITMAP = 0;
IMAGE_CURSOR = 2;
IMAGE_ENHMETAFILE = 3;
IMAGE_ICON = 1;

INPUT_HARDWARE = 2;
INPUT_KEYBOARD = 1;
INPUT_MOUSE = 0;

INTERNET_CONNECTION_CONFIGURED = $00000040;
INTERNET_CONNECTION_LAN = $00000002;
INTERNET_CONNECTION_MODEM = $00000001;
INTERNET_CONNECTION_MODEM_BUSY = $00000008;
INTERNET_CONNECTION_OFFLINE = $00000020;
INTERNET_CONNECTION_PROXY = $00000004;
INTERNET_RAS_INSTALLED = $00000010;

INVALID_HANDLE_VALUE = [[Handle] - 1];

JOY_BUTTON1 = $00000001;
JOY_BUTTON2 = $00000002;
JOY_BUTTON3 = $00000004;
JOY_BUTTON4 = $00000008;
JOY_BUTTON5 = $00000010;
JOY_BUTTON6 = $00000020;
JOY_BUTTON7 = $00000040;
JOY_BUTTON8 = $00000080;
JOY_BUTTON9 = $00000100;

JOYERR_BASE = 160;
JOYERR_NOERROR = [0];
JOYERR_UNPLUGGED = [JOYERR_BASE + 7];

KEY_ALL_ACCESS = [[STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK] And [Not SYNCHRONIZE]];
KEY_CREATE_LINK = $00000020;
KEY_CREATE_SUB_KEY = $00000004;
KEY_ENUMERATE_SUB_KEYS = $00000008;
KEY_NOTIFY = $00000010;
KEY_QUERY_VALUE = $00000001;
KEY_READ = [[STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY] And [Not SYNCHRONIZE]];
KEY_SET_VALUE = $00000002;
KEY_WRITE = [[STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY] And [Not SYNCHRONIZE]];

KEYEVENTF_KEYUP = $00000002;

KL_NAMELENGTH = 9;

KLF_ACTIVATE = $00000001;

LANG_AFRIKAANS = $00000036;
LANG_ALBANIAN = $0000001c;
LANG_ARABIC = $00000001;
LANG_ARMENIAN = $0000002b;
LANG_ASSAMESE = $0000004d;
LANG_AZERI = $0000002c;
LANG_BASQUE = $0000002d;
LANG_BELARUSIAN = $00000023;
LANG_BENGALI = $00000045;
LANG_BULGARIAN = $00000002;
LANG_CATALAN = $00000003;
LANG_CHINESE = $00000004;
LANG_CROATIAN = $0000001A;
LANG_CZECH = $00000005;
LANG_DANISH = $00000006;
LANG_DUTCH = $00000013;
LANG_ENGLISH = $00000009;
LANG_ESTONIAN = $00000025;
LANG_FAEROESE = $00000038;
LANG_FARSI = $00000029;
LANG_FINNISH = $0000000B;
LANG_FRENCH = $0000000C;
LANG_GEORGIAN = $00000037;
LANG_GERMAN = $00000007;
LANG_GREEK = $00000008;
LANG_GUJARATI = $00000047;
LANG_HEBREW = $0000000d;
LANG_HINDI = $00000039;
LANG_HUNGARIAN = $0000000E;
LANG_ICELANDIC = $0000000F;
LANG_INDONESIAN = $00000021;
LANG_ITALIAN = $00000010;
LANG_JAPANESE = $00000011;
LANG_KANNADA = $0000004b;
LANG_KASHMIRI = $00000060;
LANG_KAZAK = $0000003f;
LANG_KONKANI = $00000057;
LANG_KOREAN = $00000012;
LANG_LATVIAN = $00000026;
LANG_LITHUANIAN = $00000027;
LANG_MACEDONIAN = $0000002f;
LANG_MALAY = $0000003e;
LANG_MALAYALAM = $0000004c;
LANG_MANIPURI = $00000058;
LANG_MARATHI = $0000004e;
LANG_NEPALI = $00000061;
LANG_NEUTRAL = 0;
LANG_NORWEGIAN = $00000014;
LANG_ORIYA = $00000048;
LANG_POLISH = $00000015;
LANG_PORTUGUESE = $00000016;
LANG_PUNJABI = $00000046;
LANG_ROMANIAN = $00000018;
LANG_RUSSIAN = $00000019;
LANG_SANSKRIT = $0000004f;
LANG_SERBIAN = $0000001a;
LANG_SINDHI = $00000059;
LANG_SLOVAK = $0000001B;
LANG_SLOVENIAN = $00000024;
LANG_SPANISH = $0000000A;
LANG_SWAHILI = $00000041;
LANG_SWEDISH = $0000001D;
LANG_TAMIL = $00000049;
LANG_TATAR = $00000044;
LANG_TELUGU = $0000004a;
LANG_THAI = $0000001e;
LANG_TURKISH = $0000001F;
LANG_UKRAINIAN = $00000022;
LANG_URDU = $00000020;
LANG_UZBEK = $00000043;
LANG_VIETNAMESE = $0000002a;

LAYOUT_RTL = $00000001;

LF_FACESIZE = 32;
LF_FULLFACESIZE = 64;

LOCALE_NOUSEROVERRIDE = $80000000;
LOCALE_SENGCOUNTRY = $00001002;
LOCALE_SENGLANGUAGE = $00001001;
LOCALE_SNATIVECTRYNAME = $00000008;
LOCALE_SNATIVECURRNAME = $00001008;

LR_COPYDELETEORG = $00000008;
LR_COPYRETURNORG = $00000004;
LR_DEFAULTSIZE = $00000040;
LR_LOADFROMFILE = $00000010;
LR_LOADMAP3DCOLORS = $00001000;
LR_LOADTRANSPARENT = $00000020;
LR_MONOCHROME = $00000001;
LR_SHARED = $00008000;
LR_VGACOLOR = $00000080;

LWA_ALPHA = $00000002;
LWA_COLORKEY = $00000001;

LZERROR_BADINHANDLE = -1;
LZERROR_BADOUTHANDLE = -2;
LZERROR_BADVALUE = -7;
LZERROR_READ = -3;
LZERROR_WRITE = -4;

MAX_PATH = 260;
MAX_COMPUTERNAME_LENGTH = 31;

MAXPNAMELEN = 32;
MAXDWORD = $0000FFFF;

MB_ABORTRETRYIGNORE = $00000002;
MB_APPLMODAL = 0;
MB_CANCELTRYCONTINUE = $00000006;
MB_DEFBUTTON1 = 0;
MB_DEFBUTTON2 = $00000100;
MB_DEFBUTTON3 = $00000200;
MB_DEFBUTTON4 = $00000300;
MB_HELP = $00004000;
MB_ICONASTERISK = $00000040;
MB_ICONERROR = MB_ICONHAND;
MB_ICONEXCLAMATION = $00000030;
MB_ICONHAND = $00000010;
MB_ICONINFORMATION = MB_ICONASTERISK;
MB_ICONMASK = $000000F0;
MB_ICONQUESTION = $00000020;
MB_ICONSTOP = MB_ICONHAND;
MB_ICONWARNING = MB_ICONEXCLAMATION;
MB_OK = 0;
MB_OKCANCEL = $00000001;
MB_RETRYCANCEL = $00000005;
MB_RIGHT = $00080000;
MB_RTLREADING = $00100000;
MB_SETFOREGROUND = $00010000;
MB_SYSTEMMODAL = $00001000;
MB_TOPMOST = $00040000;
MB_YESNO = $00000004;
MB_YESNOCANCEL = $00000003;


MF_APPEND = $00000100;
MF_BITMAP = $00000004;
MF_BYPOSITION = $00000400;
MF_BYCOMMAND = 0;
MF_CHECKED = $00000008;
MF_DISABLED = $00000002;
MF_ENABLED = 0;
MF_GRAYED = $00000001;
MF_SEPARATOR = $00000800;
MF_STRING = 0;

MFS_CHECKED = MF_CHECKED;
MFS_DEFAULT = MF_DEFAULT;
MFS_DISABLED = MFS_GRAYED;
MFS_ENABLED = MF_ENABLED;
MFS_GRAYED = $00000003;
MFS_HILITE = MF_HILITE;
MFS_UNCHECKED = MF_UNCHECKED;
MFS_UNHILITE = MF_UNHILITE;

MFT_BITMAP = MF_BITMAP;
MFT_MENUBARBREAK = MF_MENUBARBREAK;
MFT_MENUBREAK = MF_MENUBREAK;
MFT_OWNERDRAW = MF_OWNERDRAW;
MFT_RADIOCHECK = $00000200;
MFT_RIGHTJUSTIFY = MF_RIGHTJUSTIFY;
MFT_RIGHTORDER = $00002000;
MFT_SEPARATOR = MF_SEPARATOR;
MFT_STRING = MF_STRING;

MIIM_CHECKMARKS = $00000008;
MIIM_DATA = $00000020;
MIIM_FTYPE = $00000100;
MIIM_ID = $00000002;
MIIM_STATE = $00000001;
MIIM_SUBMENU = $00000004;

MMSYSERR_BASE = 0;
MMSYSERR_INVALPARAM = [MMSYSERR_BASE + 11];
MMSYSERR_NODRIVER = [MMSYSERR_BASE + 6];

MOD_ALT = $00000001;
MOD_CONTROL = $00000002;
MOD_LEFT = $00008000;
MOD_RIGHT = $00004000;
MOD_SHIFT = $00000004;
MOD_WIN = $00000008;

MOUSEEVENTF_ABSOLUTE = $00008000;
MOUSEEVENTF_LEFTDOWN = $00000002;
MOUSEEVENTF_LEFTUP = $00000004;
MOUSEEVENTF_MIDDLEDOWN = $00000020;
MOUSEEVENTF_MIDDLEUP = $00000040;
MOUSEEVENTF_MOVE = $00000001;
MOUSEEVENTF_RIGHTDOWN = $00000008;
MOUSEEVENTF_RIGHTUP = $00000010;
MOUSEEVENTF_WHEEL = $00000800;
MOUSEEVENTF_XDOWN = $00000080;
MOUSEEVENTF_XUP = $00000100;

NETWORK_ALIVE_AOL = $00000004;
NETWORK_ALIVE_LAN = $00000001;
NETWORK_ALIVE_WAN = $00000002;

NIF_ICON = $00000002;
NIF_INFO = $00000010;
NIF_MESSAGE = $00000001;
NIF_TIP = $00000004;

NIM_ADD = 0;
NIM_DELETE = $00000002;
NIM_MODIFY = $00000001;
NIM_SETFOCUS = $00000003;

NOERROR = 0;

NORM_IGNORECASE = $00000001;
NORM_IGNORENONSPACE = $00000002;
NORM_IGNORESYMBOLS = $00000004;
NORM_IGNOREWIDTH = $00000008;

NULLREGION = 1;

OCR_APPSTARTING = 32650;
OCR_CROSS = 32515;
OCR_HAND = 32649;
OCR_IBEAM = 32513;
OCR_NO = 32648;
OCR_NORMAL = 32512;
OCR_SIZE = 32640;
OCR_SIZEALL = 32646;
OCR_SIZENESW = 32643;
OCR_SIZENS = 32645;
OCR_SIZENWSE = 32642;
OCR_SIZEWE = 32644;
OCR_UP = 32516;
OCR_WAIT = 32514;

OF_CANCEL = $00000800;
OF_CREATE = $00001000;
OF_DELETE = $00000200;
OF_EXIST = $00004000;
OF_GET = $00000002;
OF_PROMPT = $00002000;
OF_READ = 0;
OF_READWRITE = $00000002;
OF_REOPEN = $00008000;
OF_SET = $00000001;
OF_WRITE = $00000001;

OF_SHARE_COMPAT = 0;
OF_SHARE_DENY_NONE = $00000040;
OF_SHARE_DENY_READ = $00000030;
OF_SHARE_DENY_WRITE = $00000020;
OF_SHARE_EXCLUSIVE = $00000010;


OFN_ALLOWMULTISELECT = $00000200;
OFN_CREATEPROMPT = $00002000;
OFN_DONTADDTORECENT = $2000000;
OFN_ENABLESIZING = $00800000;
OFN_EXPLORER = $00080000;
OFN_FILEMUSTEXIST = $00001000;
OFN_HIDEREADONLY = $00000004;
OFN_LONGNAMES = $00200000;
OFN_NOCHANGEDIR = $00000008;
OFN_NODEREFERENCELINKS = $00100000;
OFN_NOLONGNAMES = $00040000;
OFN_NONETWORKBUTTON = $00020000;
OFN_NOVALIDATE = $00000100;
OFN_OVERWRITEPROMPT = $00000002;
OFN_PATHMUSTEXIST = $00000800;
OFN_READONLY = $00000001;
OFN_SHAREAWARE = $00004000;
OFN_SHOWHELP = $00000010;

OFS_MAXPATHNAME = 128;

OPEN_ALWAYS = 4;
OPEN_EXISTING = 3;

PM_REMOVE = $00000001;

PS_DASH = 1;
PS_DASHDOT = 3;
PS_DASHDOTDOT = 4;
PS_DOT = 2;
PS_INSIDEFRAME = 6;
PS_NULL = 5;
PS_SOLID = 0;

PT_LINETO = $00000002;

READ_CONTROL = $00020000;

REG_BINARY = 3;
REG_DWORD = 4;
REG_EXPAND_SZ = 2;
REG_NONE = 0;
REG_SZ = 1;

REG_NOTIFY_CHANGE_ATTRIBUTES = $00000002;
REG_NOTIFY_CHANGE_LAST_SET = $00000004;
REG_NOTIFY_CHANGE_NAME = $00000001;
REG_NOTIFY_CHANGE_SECURITY = $00000008;

REG_OPTION_BACKUP_RESTORE = 4;
REG_OPTION_NON_VOLATILE = 0;
REG_OPTION_VOLATILE = 1;


RGN_AND = 1;
RGN_COPY = 5;
RGN_DIFF = 4;
RGN_OR = 2;
RGN_XOR = 3;

S_FALSE = $00000001;
S_OK = 0;

SB_BOTH = 3;
SB_HORZ = 0;
SB_VERT = 1;

SCS_32BIT_BINARY = 0;
SCS_DOS_BINARY = 1;
SCS_OS216_BINARY = 5;
SCS_PIF_BINARY = 3;
SCS_POSIX_BINARY = 4;
SCS_WOW_BINARY = 2;

SE_ERR_ACCESSDENIED = 5;
SE_ERR_DLLNOTFOUND = 32;
SE_ERR_FNF = 2;
SE_ERR_NOASSOC = 31;
SE_ERR_PNF = 3;
SE_ERR_SHARE = 26;

SEE_MASK_FLAG_NO_UI = $00000400;
SEE_MASK_INVOKEIDLIST = $0000000C;
SEE_MASK_NOCLOSEPROCESS = $00000040;

SHARD_PATHA = $00000002;

SHERB_NOCONFIRMATION = $00000001;
SHERB_NOPROGRESSUI = $00000002;
SHERB_NOSOUND = $00000004;

SHGFI_DISPLAYNAME = $00000200;
SHGFI_EXETYPE = $00002000;
SHGFI_LARGEICON = 0;
SHGFI_SMALLICON = $00000001;
SHGFI_SYSICONINDEX = $00004000;
SHGFI_TYPENAME = $00000400;

SIMPLEREGION = 2;

SM_CMOUSEBUTTONS = 43;
SM_CXICON = 11;
SM_CXSCREEN = 0;
SM_CYICON = 12;
SM_CYSCREEN = 1;

SND_ALIAS = $00010000;
SND_ALIAS_ID = $00110000;
SND_ASYNC = $00000001;
SND_FILENAME = $00020000;
SND_LOOP = $00000008;
SND_NODEFAULT = $00000002;
SND_NOSTOP = $00000010;
SND_NOWAIT = $00002000;
SND_PURGE = $00000040;
SND_SYNC = 0;

SORT_STRINGSORT = $00001000;
SORT_BYNAME = 1;
SORT_DEFAULT = 0;
SORT_STRINGSORT = $00001000;

SPFILEQ_FILE_IN_USE = $00000001;
SPFILEQ_REBOOT_IN_PROGRESS = $00000004;

SRCAND = $008800C6;
SRCCOPY = $00CC0020;
SRCERASE = $00440328;
SRCINVERT = $00660046;
SRCPAINT = $00EE0086;

STANDARD_RIGHTS_ALL = $001F0000;
STANDARD_RIGHTS_EXECUTE = [READ_CONTROL];
STANDARD_RIGHTS_READ = [READ_CONTROL];
STANDARD_RIGHTS_REQUIRED = $000F0000;
STANDARD_RIGHTS_WRITE = [READ_CONTROL];

SUBLANG_DEFAULT = $00000001;

SW_ERASE = $00000004;
SW_FORCEMINIMIZE = 11;
SW_HIDE = 0;
SW_MAX = 10;
SW_MAXIMIZE = 3;
SW_MINIMIZE = 6;
SW_NORMAL = 1;
SW_PARENTCLOSING = 1;
SW_PARENTOPENING = 3;
SW_RESTORE = 9;
SW_SHOW = 5;
SW_SHOWDEFAULT = 10;
SW_SHOWMAXIMIZED = 3;
SW_SHOWMINIMIZED = 2;
SW_SHOWMINNOACTIVE = 7;
SW_SHOWNA = 8;
SW_SHOWNOACTIVATE = 4;
SW_SHOWNORMAL = 1;


SWP_FRAMECHANGED = $00000020;
SWP_DRAWFRAME = SWP_FRAMECHANGED;
SWP_HIDEWINDOW = $00000080;
SWP_NOACTIVATE = $00000010;
SWP_NOCOPYBITS = $00000100;
SWP_NOMOVE = $00000002;
SWP_NOREDRAW = $00000008;
SWP_NOSIZE = $00000001;
SWP_NOZORDER = $00000004;
SWP_SHOWWINDOW = $00000040;

SYNCHRONIZE = $00100000;

TA_BOTTOM = 8;
TA_CENTER = 6;
TA_LEFT = 0;
TA_NOUPDATECP = 0;
TA_RIGHT = 2;
TA_RTLREADING = 256;
TA_TOP = 0;
TA_UPDATECP = 1;

TH32CS_SNAPMODULE = $00000008;
TH32CS_SNAPPROCESS = $00000002;

TOKEN_QUERY = $00000008;

TPM_BOTTOMALIGN = $00000020;
TPM_CENTERALIGN = $00000004;
TPM_HORIZONTAL = 0;
TPM_HORNEGANIMATION = $00000800;
TPM_HORPOSANIMATION = $00000400;
TPM_LEFTALIGN = 0;
TPM_LEFTBUTTON = 0;
TPM_NOANIMATION = $00004000;
TPM_NONOTIFY = $00000080;
TPM_RECURSE = $00000001;
TPM_RETURNCMD = $00000100;
TPM_RIGHTALIGN = $00000008;
TPM_RIGHTBUTTON = $00000002;
TPM_TOPALIGN = 0;
TPM_VCENTERALIGN = $00000010;
TPM_VERNEGANIMATION = $00002000;
TPM_VERPOSANIMATION = $00001000;
TPM_VERTICAL = $00000040;

TRUNCATE_EXISTING = 5;

VFT_APP = $00000001;
VFT_DLL = $00000002;
VFT_DRV = $00000003;
VFT_FONT = $00000004;
VFT_STATIC_LIB = $00000007;
VFT_UNKNOWN = 0;
VFT_VXD = $00000005;

VFT2_DRV_COMM = $0000000A;
VFT2_DRV_DISPLAY = $00000004;
VFT2_DRV_INSTALLABLE = $00000008;
VFT2_DRV_KEYBOARD = $00000002;
VFT2_DRV_LANGUAGE = $00000003;
VFT2_DRV_MOUSE = $00000005;
VFT2_DRV_NETWORK = $00000006;
VFT2_DRV_PRINTER = $00000001;
VFT2_DRV_SOUND = $00000009;
VFT2_DRV_SYSTEM = $00000007;
VFT2_FONT_TRUETYPE = $00000003;
VFT2_FONT_VECTOR = $00000002;
VFT2_UNKNOWN = 0;

VK_ADD = $0000006B;
VK_ATTN = $000000F6;
VK_BACK = $00000008;
VK_CANCEL = $00000003;
VK_CAPITAL = $00000014;
VK_CLEAR = $0000000C;
VK_CONTROL = $00000011;
VK_CRSEL = $000000F7;
VK_DECIMAL = $0000006E;
VK_DELETE = $0000002E;
VK_DIVIDE = $0000006F;
VK_DOWN = $00000028;
VK_END = $00000023;
VK_EREOF = $000000F9;
VK_ESCAPE = $0000001B;
VK_EXECUTE = $0000002B;
VK_EXSEL = $000000F8;
VK_F1 = $00000070;
VK_F10 = $00000079;
VK_F11 = $0000007A;
VK_F12 = $0000007B;
VK_F13 = $0000007C;
VK_F14 = $0000007D;
VK_F15 = $0000007E;
VK_F16 = $0000007F;
VK_F17 = $00000080;
VK_F18 = $00000081;
VK_F19 = $00000082;
VK_F2 = $00000071;
VK_F20 = $00000083;
VK_F21 = $00000084;
VK_F22 = $00000085;
VK_F23 = $00000086;
VK_F24 = $00000087;
VK_F3 = $00000072;
VK_F4 = $00000073;
VK_F5 = $00000074;
VK_F6 = $00000075;
VK_F7 = $00000076;
VK_F8 = $00000077;
VK_F9 = $00000078;
VK_HELP = $0000002F;
VK_HOME = $00000024;
VK_ICO_00 = $000000E4;
VK_ICO_CLEAR = $000000E6;
VK_ICO_HELP = $000000E3;
VK_INSERT = $0000002D;
VK_LBUTTON = $00000001;
VK_LCONTROL = $000000A2;
VK_LEFT = $00000025;
VK_LMENU = $000000A4;
VK_LSHIFT = $000000A0;
VK_MBUTTON = $00000004;
VK_MENU = $00000012;
VK_MULTIPLY = $0000006A;
VK_NEXT = $00000022;
VK_NONAME = $000000FC;
VK_NUMLOCK = $00000090;
VK_NUMPAD0 = $00000060;
VK_NUMPAD1 = $00000061;
VK_NUMPAD2 = $00000062;
VK_NUMPAD3 = $00000063;
VK_NUMPAD4 = $00000064;
VK_NUMPAD5 = $00000065;
VK_NUMPAD6 = $00000066;
VK_NUMPAD7 = $00000067;
VK_NUMPAD8 = $00000068;
VK_NUMPAD9 = $00000069;
VK_OEM_1 = $000000BA;
VK_OEM_102 = $000000E2;
VK_OEM_2 = $000000BF;
VK_OEM_3 = $000000C0;
VK_OEM_4 = $000000DB;
VK_OEM_5 = $000000DC;
VK_OEM_6 = $000000DD;
VK_OEM_7 = $000000DE;
VK_OEM_8 = $000000DF;
VK_OEM_ATTN = $000000F0;
VK_OEM_AUTO = $000000F3;
VK_OEM_BACKTAB = $000000F5;
VK_OEM_CLEAR = $000000FE;
VK_OEM_COMMA = $000000BC;
VK_OEM_COPY = $000000F2;
VK_OEM_CUSEL = $000000EF;
VK_OEM_ENLW = $000000F4;
VK_OEM_FINISH = $000000F1;
VK_OEM_JUMP = $000000EA;
VK_OEM_MINUS = $000000BD;
VK_OEM_PA1 = $000000EB;
VK_OEM_PA2 = $000000EC;
VK_OEM_PA3 = $000000ED;
VK_OEM_PERIOD = $000000BE;
VK_OEM_PLUS = $000000BB;
VK_OEM_RESET = $000000E9;
VK_OEM_WSCTRL = $000000EE;
VK_PA1 = $000000FD;
VK_PAUSE = $00000013;
VK_PLAY = $000000FA;
VK_PRINT = $0000002A;
VK_PRIOR = $00000021;
VK_RBUTTON = $00000002;
VK_RCONTROL = $000000A3;
VK_RETURN = $0000000D;
VK_RIGHT = $00000027;
VK_RMENU = $000000A5;
VK_RSHIFT = $000000A1;
VK_SELECT = $00000029;
VK_SEPARATOR = $0000006C;
VK_SHIFT = $00000010;
VK_SNAPSHOT = $0000002C;
VK_SPACE = $00000020;
VK_SUBTRACT = $0000006D;
VK_TAB = $00000009;
VK_UP = $00000026;
VK_ZOOM = $000000FB;

VOS__BASE = 0;
VOS__PM16 = $00000002;
VOS__PM32 = $00000003;
VOS__WINDOWS16 = $00000001;
VOS__WINDOWS32 = $00000004;
VOS_DOS = $00010000;
VOS_DOS_WINDOWS16 = $00010001;
VOS_DOS_WINDOWS32 = $00010004;
VOS_NT = $00040000;
VOS_NT_WINDOWS32 = $00040004;
VOS_OS216 = $00020000;
VOS_OS216_PM16 = $00020002;
VOS_OS232 = $00030000;
VOS_OS232_PM32 = $00030003;
VOS_UNKNOWN = 0;

WHEEL_DELTA = 120;

WHITEONBLACK = 2;

WINDING = 2;

WM_HOTKEY = $00000312;
WM_LBUTTONDBLCLK = $00000203;
WM_LBUTTONDOWN = $00000201;
WM_LBUTTONUP = $00000202;
WM_MBUTTONDBLCLK = $00000209;
WM_MBUTTONDOWN = $00000207;
WM_MBUTTONUP = $00000208;
WM_MOUSEMOVE = $00000200;
WM_MOUSEWHEEL = $0000020A;
WM_RBUTTONDBLCLK = $00000206;
WM_RBUTTONDOWN = $00000204;
WM_RBUTTONUP = $00000205;

WN_CANCEL = ERROR_CANCELLED;
WN_SUCCESS = NO_ERROR;

WS_EX_LAYERED = $00080000;

XBUTTON1 = $00000001;
XBUTTON2 = $00000002;

soroush_vs
چهارشنبه 10 آبان 1385, 13:53 عصر
نوع داده ها یا DataTypes



Type
BLENDFUNCTION = Record
BlendOp : Byte;
BlendFlags : Byte;
SourceConstantAlpha : Byte;
AlphaFormat : Byte;
End;

Type
BROWSEINFO = Record
hOwner : Integer;
pidlRoot : Integer;
pszDisplayName : PChar;
lpszTitle : PChar;
ulFlags : Integer;
lpfn : Integer;
lParam : Integer;
iImage : Integer;
End;

Type
BY_HANDLE_FILE_INFORMATION = Record
dwFileAttributes : Integer;
ftCreationTime : FILETIME;
ftLastAccessTime : FILETIME;
ftLastWriteTime : FILETIME;
dwVolumeSerialNumber : Integer;
nFileSizeHigh : Integer;
nFileSizeLow : Integer;
nNumberOfLinks : Integer;
nFileIndexHigh : Integer;
nFileIndexLow : Integer;
End;

Type
CHOOSECOLOR = Record
lStructSize : Integer;
hwndOwner : Integer;
hInstance : Integer;
rgbResult : Integer;
lpCustColors : Integer;
flags : Integer;
lCustData : Integer;
lpfnHook : Integer;
lpTemplateName : PChar;
End;

Type
COORD = Record
x : Integer;
y : Integer;
End;

Type
DEVMODE = Record
dmDeviceName : PChar[CCHDEVICENAME];
dmSpecVersion : Integer;
dmDriverVersion : Integer;
dmSize : Integer;
dmDriverExtra : Integer;
dmFields : Integer;
dmOrientation : Integer;
dmPaperSize : Integer;
dmPaperLength : Integer;
dmPaperWidth : Integer;
dmScale : Integer;
dmCopies : Integer;
dmDefaultSource : Integer;
dmPrintQuality : Integer;
dmColor : Integer;
dmDuplex : Integer;
dmYResolution : Integer;
dmTTOption : Integer;
dmCollate : Integer;
dmFormName : PChar[CCHFORMNAME];
dmUnusedPadding : Integer;
dmBitsPerPel : Integer;
dmPelsWidth : Integer;
dmPelsHeight : Integer;
dmDisplayFlags : Integer;
dmDisplayFrequency : Integer;
End;

Type
DOCINFO = Record
cbSize : Integer;
lpszDocName : PChar;
lpszOutput : PChar;
End;

Type
FILETIME = Record
dwLowDateTime : Integer;
dwHighDateTime : Integer;
End;

Type
GRADIENT_RECT = Record
UpperLeft : Integer;
LowerRight : Integer;
End;

Type
JOYCAPS = Record
wMid : Integer;
wPid : Integer;
szPname : PChar[MAXPNAMELEN];
wXmin : Integer;
wXmax : Integer;
wYmin : Integer;
wYmax : Integer;
wZmin : Integer;
wZmax : Integer;
wNumButtons : Integer;
wPeriodMin : Integer;
wPeriodMax : Integer;
End;

Type
JOYINFO = Record
wXpos : Integer;
wYpos : Integer;
wZpos : Integer;
wButtons : Integer;
End;

Type
LOGBRUSH = Record
lbStyle : Integer;
lbColor : Integer;
lbHatch : Integer;
End;

Type
LOGFONT = Record
lfHeight : Integer;
lfWidth : Integer;
lfEscapement : Integer;
lfOrientation : Integer;
lfWeight : Integer;
lfItalic : Byte;
lfUnderline : Byte;
lfStrikeOut : Byte;
lfCharSet : Byte;
lfOutPrecision : Byte;
lfClipPrecision : Byte;
lfQuality : Byte;
lfPitchAndFamily : Byte;
lfFaceName[1..LF_FACESIZE] : Byte;
End;

Type
LOGPEN = Record
lopnStyle : Integer;
lopnWidth : POINTAPI;
lopnColor : Integer;
End;

Type
MEMORYSTATUS = Record
dwLength : Integer;
dwMemoryLoad : Integer;
dwTotalPhys : Integer;
dwAvailPhys : Integer;
dwTotalPageFile : Integer;
dwAvailPageFile : Integer;
dwTotalVirtual : Integer;
dwAvailVirtual : Integer;
End;

Type
MENUITEMINFO = Record
cbSize : Integer;
fMask : Integer;
fType : Integer;
fState : Integer;
wID : Integer;
hSubMenu : Integer;
hbmpChecked : Integer;
hbmpUnchecked : Integer;
dwItemData : Integer;
dwTypeData : PChar;
cch : Integer;
End;

Type
MIDIOUTCAPS = Record
wMid : Integer;
wPid : Integer;
vDriverVersion : Integer;
szPname : PChar[MAXPNAMELEN];
wTechnology : Integer;
wVoices : Integer;
wNotes : Integer;
wChannelMask : Integer;
dwSupport : Integer;
End;

Type
MODULEENTRY32 = Record
dwSize : Integer;
th32ModuleID : Integer;
th32ProcessID : Integer;
GlblcntUsage : Integer;
ProccntUsage : Integer;
modBaseAddr : Integer;
modBaseSize : Integer;
hModule : Integer;
szModule : PChar[MAX_MODULE_NAME32];
szExeFile : PChar[MAX_PATH;
End;

Type
MSG = Record
hwnd : Integer;
message : Integer;
wParam : Integer;
lParam : Integer;
time : Integer;
pt : POINTAPI;
End;

Type
NOTIFYICONDATA = Record
cbSize : Integer;
hwnd : Integer;
uID : Integer;
uFlags : Integer;
uCallbackMessage : Integer;
hIcon : Integer;
szTip : PChar[64;
End;

Type
NUMBERFMT = Record
NumDigits : Integer;
LeadingZero : Integer;
Grouping : Integer;
lpDecimalSep : PChar;
lpThousandSep : PChar;
NegativeOrder : Integer;
End;

Type
OFSTRUCT = Record
cBytes : Byte;
fFixedDisk : Byte;
nErrCode : Integer;
Reserved1 : Integer;
Reserved2 : Integer;
szPathName[OFS_MAXPATHNAME] : Byte;
End;

Type
OPENFILENAME = Record
lStructSize : Integer;
hwndOwner : Integer;
hInstance : Integer;
lpstrFilter : PChar;
lpstrCustomFilter : PChar;
nMaxCustFilter : Integer;
nFilterIndex : Integer;
lpstrFile : PChar;
nMaxFile : Integer;
lpstrFileTitle : PChar;
nMaxFileTitle : Integer;
lpstrInitialDir : PChar;
lpstrTitle : PChar;
flags : Integer;
nFileOffset : Integer;
nFileExtension : Integer;
lpstrDefExt : PChar;
lCustData : Integer;
lpfnHook : Integer;
lpTemplateName : PChar;
End;

Type
OSVERSIONINFO = Record
dwOSVersionInfoSize : Integer;
dwMajorVersion : Integer;
dwMinorVersion : Integer;
dwBuildNumber : Integer;
dwPlatformId : Integer;
szCSDVersion : PChar[128];
End;

Type
PAGESETUPDLG = Record
lStructSize : Integer;
hwndOwner : Integer;
hDevMode : Integer;
hDevNames : Integer;
flags : Integer;
ptPaperSize : POINTAPI;
rtMinMargin : Rect;
rtMargin : Rect;
hInstance : Integer;
lCustData : Integer;
lpfnPageSetupHook : Integer;
lpfnPagePaintHook : Integer;
lpPageSetupTemplateName : PChar;
hPageSetupTemplate : Integer;
End;

Type
POINTAPI = Record
x : Integer;
y : Integer;
End;

Type
PROCESSENTRY32 = Record
dwSize : Integer;
cntUsage : Integer;
th32ProcessID : Integer;
th32DefaultHeapID : Integer;
th32ModuleID : Integer;
cntThreads : Integer;
th32ParentProcessID : Integer;
pcPriClassBase : Integer;
dwFlags : Integer;
szExeFile : PChar[MAX_PATH;
End;

Type
RECT = Record
Left : Integer;
Top : Integer;
Right : Integer;
Bottom : Integer;
End;

Type
SECURITY_ATTRIBUTES = Record
nLength : Integer;
lpSecurityDescriptor : Integer;
bInheritHandle : Integer;
End;

Type
SHELLEXECUTEINFO = Record
cbSize : Integer;
fMask : Integer;
hwnd : Integer;
lpVerb : PChar;
lpFile : PChar;
lpParameters : PChar;
lpDirectory : PChar;
nShow : Integer;
hInstApp : Integer;
lpIDList : Integer;
lpClass : PChar;
hkeyClass : Integer;
dwHotKey : Integer;
hIcon : Integer;
hProcess : Integer;
End;

Type
SHFILEOPSTRUCT = Record
hWnd : Integer;
wFunc : Integer;
pFrom : PChar;
pTo : PChar;
fFlags : Integer;
fAborted : Integer;
hNameMaps : Integer;
sProgress : PChar;
End;

Type
Size = Record
cx : Integer;
cy : Integer;
End;

Type
SYSTEM_INFO = Record
dwOemID : Integer;
dwPageSize : Integer;
lpMinimumApplicationAddress : Integer;
lpMaximumApplicationAddress : Integer;
dwActiveProcessorMask : Integer;
dwNumberOrfProcessors : Integer;
dwProcessorType : Integer;
dwAllocationGranularity : Integer;
dwReserved : Integer;
End;

Type
SYSTEMTIME = Record
wYear : Integer;
wMonth : Integer;
wDayOfWeek : Integer;
wDay : Integer;
wHour : Integer;
wMinute : Integer;
wSecond : Integer;
wMilliseconds : Integer;
End;

Type
TRIVERTEX = Record
X : Integer;
Y : Integer;
Red : Integer;
Green : Integer;
Blue : Integer;
Alpha : Integer;
End;

Type
ULARGE_INTEGER = Record
LowPart : Integer;
HighPart : Integer;
End;

Type
VS_FIXEDFILEINFO = Record
dwSignature : Integer;
dwStrucVersion : Integer;
dwFileVersionMS : Integer;
dwFileVersionLS : Integer;
dwProductVersionMS : Integer;
dwProductVersionLS : Integer;
dwFileFlagsMask : Integer;
dwFileFlags : Integer;
dwFileOS : Integer;
dwFileType : Integer;
dwFileSubtype : Integer;
dwFileDateMS : Integer;
dwFileDateLS : Integer;
End;

Type
WIN32_FIND_DATA = Record
dwFileAttributes : Integer;
ftCreationTime : FILETIME;
ftLastAccessTime : FILETIME;
ftLastWriteTime : FILETIME;
nFileSizeHigh : Integer;
nFileSizeLow : Integer;
dwReserved0 : Integer;
dwReserved1 : Integer;
cFileName : PChar[MAX_PATH];
cAlternate : PChar[14;
End;

soroush_vs
چهارشنبه 10 آبان 1385, 13:57 عصر
برنامه های نمونه

soroush_vs
چهارشنبه 10 آبان 1385, 13:59 عصر
توضیح اضافی :
از اسم بیشتر توابع و ثابت ها و غیره می تونید بفهمید که چکار میکنن
در ضمن میتونید توی SDK که همراه دلفی هست برای هر کدومشون که نمی دونید یه سرچ کوچک بندازید

مهدی کرامتی
چهارشنبه 10 آبان 1385, 15:03 عصر
کاربر گرامی:

پرسشی که شما مطرح کرده اید قبلا در یک تاپیک دیگر پاسخ داده شده است.

لطفا از امکان جستجوی (http://www.barnamenevis.org/forum/search.php) سایت استفاده کنید تا سریع تر پاسخ خود را بیابید.

با تشکر،
DelphiAssistant