API в Дельфи 7

← →
Monk (2003-12-10 15:04) [0]

В Дельфи 7 не могу подключить API. Ругается на функции, пишет, что "неизвестный идентификатор". Научите, как использовать API...!

← →
BiN (2003-12-10 15:21) [1]

слушай, а где ты нашел енту API, она ж щас запрещена !!!

← →
Rouse_ (2003-12-10 15:33) [2]

> Monk (10.12.03 15:04)
Покажи как делаешь...

← →
MScorp (2003-12-10 15:39) [3]

Может попробуешь обавить в uses модуль ShellAPI ?

← →
BiN (2003-12-10 15:48) [4]

При чем тут шелапи - человек азы постигает :)
ОК
Загрузка процедуры 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;

API в Дельфи 7 Найти похожие ветки