| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
API в Дельфи 7
Monk © (2003-12-10 15:04:00)
В Дельфи 7 не могу подключить API. Ругается на функции, пишет, что "неизвестный идентификатор". Научите, как использовать API...!
BiN (2003-12-10 15:48:00) [1]
При чем тут шелапи - человек азы постигает :)
ОК
Загрузка процедуры MessageBoxA из библиотеки user32.dll
статически
interface
function MessageBoxA(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;
implementation
function MessageBoxA; external "user32.dll" name "MessageBoxA";
динамически
procedure MyProc;
type
TMsgBoxProc = funciton (hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;
var
P:TMsgBoxProc;
H:HMODULE;
begin
H:=LoadLibrary("user32.dll");
if H=0 then exit;//=====error
P:=GetProcAddress(H, "MessageBoxA");
if @P<>nil then P(0, "Text", "Caption", MB_OK);
FreeLibrary(H);
end;
MScorp (2003-12-10 15:39:00) [2]
Может попробуешь обавить в uses модуль ShellAPI ?
Rouse_ (2003-12-10 15:33:00) [3]
> Monk (10.12.03 15:04)
Покажи как делаешь...
BiN (2003-12-10 15:21:00) [4]
слушай, а где ты нашел енту API, она ж щас запрещена !!!
| |
