IPB
ЛогинПароль:

> Разыскивается файл!, вооружен и очень опасен.
Altair
сообщение 28.12.2004 19:08
Сообщение #1


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


У кого есть Borland Pascal в полной комплектации, поищите у себя файл
winapi.tpu
необходим.

вознаграждение гарантируется (вознаграждение - расскажу зачем мне он ) :P :D :D


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
APAL
сообщение 28.12.2004 19:24
Сообщение #2


Смотрю...
*****

Группа: Модераторы
Сообщений: 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 килобайт ) Кол-во скачиваний: 641


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 11.07.2025 12:59
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"