У кого есть Borland Pascal в полной комплектации, поищите у себя файл
winapi.tpu
необходим.
вознаграждение гарантируется (вознаграждение - расскажу зачем мне он ) :P :D :D
Разыскивается файл!, вооружен и очень опасен. |
Разыскивается файл!, вооружен и очень опасен. |
Altair |
Сообщение
#1
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
У кого есть Borland Pascal в полной комплектации, поищите у себя файл
winapi.tpu необходим. вознаграждение гарантируется (вознаграждение - расскажу зачем мне он ) :P :D :D -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
mj |
Сообщение
#2
|
Adminь Группа: Пользователи Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
/*****************************************************************************\ |
APAL |
Сообщение
#3
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Похоже я нашел кое чего....
Цитата {*******************************************************} { } { 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. Прикрепленные файлы WINPROCS.PAS ( 68.91 килобайт ) Кол-во скачиваний: 785 -------------------- |
mj |
Сообщение
#4
|
Adminь Группа: Пользователи Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
но с расширением tpu он никогда не будет, это же виндовый модуль, а не для 16 разрядного доса...
Прикрепленные файлы winapi.pas ( 10.47 килобайт ) Кол-во скачиваний: 597 |
Altair |
Сообщение
#5
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
спасибище.
мне он нужен для испытания графической библиотеки GraphiX под DOS -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 2.06.2024 19:05 |