Помощь - Поиск - Пользователи - Календарь
Полная версия: Разыскивается файл!
Форум «Всё о Паскале» > Другое > Свободное общение
Altair
У кого есть Borland Pascal в полной комплектации, поищите у себя файл
winapi.tpu
необходим.

вознаграждение гарантируется (вознаграждение - расскажу зачем мне он ) :P :D :D
mj
/*****************************************************************************\
*                                                                             *
* winapi.h -    Windows functions, types, and definitions                     *
*                                                                             *
& #092;***************************************************************************
**/

#ifndef __WINAPI_H     /* prevent multiple includes */
#define __WINAPI_H

#ifdef __cplusplus
extern "C" {            /* Assume C declarations for C++ */
#endif  /* __cplusplus */

#define VOID                void
#define FAR                 _far
#define NEAR                _near
#define PASCAL              _pascal
#define CDECL               _cdecl
#define WINAPI              _far _pascal
#define CALLBACK            _far _pascal

typedef int                 BOOL;
#define FALSE               0
#define TRUE                1

typedef unsigned char       BYTE;
typedef unsigned short      WORD;
typedef unsigned long       DWORD;
typedef unsigned int        UINT;
#ifdef STRICT
typedef signed long         LONG;
#else
#define LONG long
#endif

#ifndef NULL
#define NULL                0
#endif

typedef char NEAR*          PSTR;
typedef char NEAR*          NPSTR;

typedef char FAR*           LPSTR;
typedef const char FAR*     LPCSTR;

typedef BYTE NEAR*          PBYTE;
typedef BYTE FAR*           LPBYTE;

typedef int NEAR*           PINT;
typedef int FAR*            LPINT;

ty
                               typedef const struct name##__ FAR* name
#else   /* STRICT */
typedef UINT                    HANDLE;
#define DECLARE_HANDLE(name)    typedef UINT name
#define DECLARE_HANDLE32(name)  typedef DWORD name
#endif  /* !STRICT */

typedef HANDLE*             PHANDLE;
typedef HANDLE NEAR*        SPHANDLE;
typedef HANDLE FAR*         LPHANDLE;

typedef HANDLE              HGLOBAL;
typedef HANDLE              HLOCAL;

typedef HANDLE              GLOBALHANDLE;
typedef HANDLE              LOCALHANDLE;

typedef UINT                ATOM;

#ifdef STRICT
typedef void (CALLBACK*     FARPROC)(void);
typedef void (NEAR PASCAL*  NEARPROC)(void);
#else
typedef int (CALLBACK*      FARPROC)();
typedef int (NEAR PASCAL*   NEARPROC)();
#endif

DECLARE_HANDLE(HINSTANCE);
typedef HINSTANCE HMODULE;  /* HMODULEs can be used in place of HINSTANCEs */
DECLARE_HANDLE(HRSRC);
DECLARE_HANDLE(HWND);

#ifdef STRICT
typedef BOOL (CALLBACK* GNOTIFYPROC)(HGLOBAL);
#else
typedef FARPROC GNOTIFYPROC;
#endif

#define LOBYTE(w)           ((BYTE)(w))
#define HIBYTE(w)           ((BYTE)((UINT)(w) >> 8))

#define LOWORD(l)           ((WORD)(l))
#define HIWORD(l)           ((WORD)((DWORD)(l) >> 16))

#define MAKELONG(low, high) ((LONG)(((WORD)(low)) | (((DWORD)((WORD)(high))) << 16)))

/* Flags returned by GetWinFlags */

#define WF_PMODE        0x0001
#define WF_CPU286       0x0002
#define WF_CPU386       0x0004
#define WF_CPU486       0x0008
#define WF_STANDARD     0x0010
#define WF_WIN286       0x0010
#define WF_ENHANCED     0x0020
#define WF_WIN386       0x0020
#define WF_CPU086       0x0040
#define WF_CPU186       0x0080
#define WF_LARGEFRAME   0x0100
#define WF_SMALLFRAME   0x0200
#define WF_80x87        0x0400
#define WF_PAGING       0x0800
#define WF_WLO          0x8000

/* Global Memory Flags */

#define GMEM_FIXED          0x0000
#define GMEM_MOVEABLE       0x0002
#define GMEM_NOCOMPACT      0x0010
#define GMEM_NODISCARD      0x0020
#define GMEM_ZEROINIT       0x0040
#define GMEM_MODIFY         0x0080
#define GMEM_DISCARDABLE    0x0100
#define GMEM_NOT_BANKED     0x1000
#define GMEM_SHARE          0x2000
#define GMEM_DDESHARE       0x2000
#define GMEM_NOTIFY         0x4000

/* GlobalFlags return flags (in addition to GMEM_DISCARDABLE) */

#define GMEM_DISCARDED      0x4000
#define GMEM_LOCKCOUNT      0x00FF

/* Message Box Flags */

#define MB_OK               0x0000
#define MB_OKCANCEL         0x0001
#define MB_ABORTRETRYIGNORE 0x0002
#define MB_YESNOCANCEL      0x0003
#define MB_YESNO            0x0004
#define MB_RETRYCANCEL      0x0005
#define MB_TYPEMASK         0x000F

#define MB_ICONHAND         0x0010
#define MB_ICONQUESTION     0x0020
#define MB_ICONEXCLAMATION  0x0030
#define MB_ICONASTERISK     0x0040
#define MB_ICONMASK         0x00F0

#define MB_ICONINFORMATION  MB_ICONASTERISK
#define MB_ICONSTOP         MB_ICONHAND

#define MB_DEFBUTTON1       0x0000
#define MB_DEFBUTTON2       0x0100
#define MB_DEFBUTTON3       0x0200
#define MB_DEFMASK          0x0F00

#define MB_APPLMODAL        0x0000
#define MB_SYSTEMMODAL      0x1000
#define MB_TASKMODAL        0x2000

#define MB_NOFOCUS          0x8000

/* Windows API Functions */

int         WINAPI AccessResource(HINSTANCE, HRSRC);
UINT        WINAPI AllocDStoCSAlias(UINT);
UINT        WINAPI AllocSelector(UINT);
UINT        WINAPI ChangeSelector(UINT sourceSel, UINT destSel);
DWORD       WINAPI GetSelectorBase(UINT);
DWORD       WINAPI GetSelectorLimit(UINT);
void        WINAPI FatalExit(int);
HRSRC       WINAPI FindResource(HINSTANCE, LPCSTR, LPCSTR);
void        WINAPI FreeLibrary(HINSTANCE);
BOOL        WINAPI FreeResource(HGLOBAL);
UINT        WINAPI FreeSelector(UINT);
LPSTR       WINAPI GetDOSEnvironment(void);
DWORD       WINAPI GetFreeSpace(UINT);
int         WINAPI GetModuleFileName(HINSTANCE, LPSTR, int);
HMODULE     WINAPI GetModuleHandle(LPCSTR);
int         WINAPI GetModuleUsage(HINSTANCE);
FARPROC     WINAPI GetProcAddress(HINSTANCE, LPCSTR);
DWORD       WINAPI GetVersion(void);
DWORD       WINAPI GetWinFlags(void);
HGLOBAL     WINAPI GlobalAlloc(UINT, DWORD);
DWORD       WINAPI GlobalCompact(DWORD);
DWORD       WINAPI GlobalDosAlloc(DWORD);
UINT        WINAPI GlobalDosFree(UINT);
void        WINAPI GlobalFix(HGLOBAL);
void        WINAPI GlobalUnfix(HGLOBAL);
UINT        WINAPI GlobalFlags(HGLOBAL);
HGLOBAL     WINAPI GlobalFree(HGLOBAL);
DWORD       WINAPI GlobalHandle(UINT);
#ifdef STRICT
void FAR*   WINAPI GlobalLock(HGLOBAL);
#else
char FAR*   WINAPI GlobalLock(HGLOBAL);
#endif
HGLOBAL     WINAPI GlobalLRUNewest(HGLOBAL);
HGLOBAL     WINAPI GlobalLRUOldest(HGLOBAL);
void        WINAPI GlobalNotify(GNOTIFYPROC);
UINT        WINAPI GlobalPageLock(HGLOBAL);
UINT        WINAPI GlobalPageUnlock(HGLOBAL);
HGLOBAL     WINAPI GlobalReAlloc(HGLOBAL, DWORD, UINT);
DWORD       WINAPI GlobalSize(HGLOBAL);
BOOL        WINAPI GlobalUnlock(HGLOBAL);
HINSTANCE   WINAPI LoadLibrary(LPCSTR);
HGLOBAL     WINAPI LoadResource(HINSTANCE, HRSRC);
int         WINAPI LoadString(HINSTANCE, UINT, LPSTR, int);
#ifdef STRICT
void FAR*   WINAPI LockResource(HGLOBAL);
#else
char FAR*   WINAPI LockResource(HGLOBAL);
#endif
HGLOBAL     WINAPI LockSegment(UINT);
int         WINAPI MessageBox(HWND, LPCSTR, LPCSTR, UINT);
UINT        WINAPI PrestoChangoSelector(UINT sourceSel, UINT destSel);
UINT        WINAPI SetSelectorBase(UINT, DWORD);
UINT        WINAPI SetSelectorLimit(UINT, DWORD);
DWORD       WINAPI SizeofResource(HINSTANCE, HRSRC);
void        WINAPI UnlockSegment(UINT);

#define     GlobalAllocPtr(flags, cb)   \
               (GlobalLock(GlobalAlloc((flags), (cb))))
#define     GlobalDiscard(h)            \
               (GlobalReAlloc((h), 0L, GMEM_MOVEABLE))
#define     GlobalFreePtr(lp)           \
               (GlobalUnlockPtr(lp), (BOOL)GlobalFree(GlobalPtrHandle(lp)))
#define     GlobalLockPtr(lp)           \
               ((BOOL)SELECTOROF(GlobalLock(GlobalPtrHandle(lp))))
#define     GlobalPtrHandle(lp)         \
               ((HGLOBAL)LOWORD(GlobalHandle(SELECTOROF(lp))))
#define     GlobalReAllocPtr(lp, cbNew, flags)  \
               (GlobalUnlockPtr(lp), GlobalLock(GlobalReAlloc(GlobalPtrHandle(lp) , (cbNew), (flags))))
#define     GlobalUnlockPtr(lp)         \
               (GlobalUnlock(GlobalPtrHandle(lp)))
#define     UnlockResource(h)           \
               (GlobalUnlock(h))

#ifdef __cplusplus
}                       /* End of extern "C" { */
#endif  /* __cplusplus */

#endif  /* __WINAPI_H */

APAL
Похоже я нашел кое чего....

Цитата
{*******************************************************}
{                                                       }
{       Turbo Pascal for Windows Run-time Library       }
{       Windows API Interface Unit                      }
{                                                       }
{       Copyright © 1991 Borland International        }
{                                                       }
{*******************************************************}

unit WinProcs;

interface

uses WinTypes;

function AccessResource(Instance, ResInfo: THandle): Integer;
function AddAtom(Str: PChar): TAtom;
function AddFontResource(Filename: PChar): Integer;
procedure AdjustWindowRect(var Rect: TRect; Style: LongInt; Menu: Bool);
procedure AdjustWindowRectEx(var Rect: TRect; Style: LongInt; Menu: Bool;
  ExtStyle: LongInt);
function AllocCStoDSAlias(Selector: Word): Word;
function AllocDStoCSAlias(Selector: Word): Word;
function AllocResource(Instance: THandle; ResInfo: THandle;
  Size: LongInt): THandle;
function AllocSelector(Selector: Word): Word;
procedure AnimatePalette(Palette: HPalette; StartIndex, NumEntires: Word;
  var PaletteColors);
function AnsiLower(Str: PChar): PChar;
function AnsiLowerBuff(Str: PChar; Length: Word): Word;
function AnsiNext(CurrentChar: PChar): PChar;
function AnsiPrev(Start, CurrentChar: PChar): PChar;
function AnsiToOem(AnsiStr, OemStr: PChar): Integer;
procedure AnsiToOemBuff(AnsiStr, OemStr: PChar; Length: Integer);
function AnsiUpper(Str: PChar): PChar;
function AnsiUpperBuff(Str: PChar; Length: Word): Word;
function AnyPopup: Bool;
function AppendMenu(Menu: HMenu; Flags, IDNewItem: Word;
  NewItem: PChar): Bool;
function Arc(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): Bool;
function ArrangeIconicWindows(Wnd: HWnd): Word;
function BeginDeferWindowPos(NumWindows: Integer): THandle;
function BeginPaint(Wnd: HWnd; var Paint: TPaintStruct): HDC;
function BitBlt(DestDC: HDC; X, Y, nWidth, Height: Integer; SrcDC: HDC;
  XSrc, YSrc: Integer; Rop: LongInt): Bool;
procedure BringWindowToTop(Wnd: HWnd);
function BuildCommDCB(Def: PChar; var DCB: TDCB): Integer;
function CallMsgFilter(var Msg: TMsg; Code: Integer): Bool;
function CallWindowProc(PrevWndFunc: TFarProc; Wnd: HWnd; Msg, wParam: Word;
  lParam: LongInt): LongInt;
function Catch(var CatchBuf: TCatchBuf): Integer;
function ChangeClipboardChain(Wnd, WndNext: HWnd): Bool;
function ChangeMenu(A: HMenu; B: Word; C: PChar; D: Word; E: Word): Bool;
function ChangeSelector(DestSelector, SourceSelector: Word): Word;
procedure CheckDlgButton(Dlg: HWnd; IDButton: Integer; Check: Word);
function CheckMenuItem(Menu: HMenu; IDCheckItem, Check: Word): Bool;
procedure CheckRadioButton(Dlg: HWnd; IDFirstButton, IDLastButton,
  IDCheckButton: Integer);
function ChildWindowFromPoint(Wnd: HWnd; Point: TPoint): HWnd;
function Chord(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): Bool;
...........
...........

Если это то что тебе надо, то файл называется: WINPROCS.PAS в одном каталоге с WINDOWS.PAS.
mj
но с расширением tpu он никогда не будет, это же виндовый модуль, а не для 16 разрядного доса...
Altair
спасибище. rolleyes.gif
мне он нужен для испытания графической библиотеки GraphiX под DOS
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.