WinAPI в Delphi — ANTICHAT Forum

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

19.02.2010, 17:54

transserg

Участник форума

Регистрация: 02.07.2008

Сообщений: 132

Провел на форуме:
1035284

Репутация: 52

Отправить сообщение для transserg с помощью ICQ

DiffiT

Код:

unit ....;
   uses
       windows;
.......
function GetWindowDC(Wnd: HWnd): hDC;
stdcall; extenal 'user32.dll' name 'GetWindowDC';

  function GetModuleFileNameEx(hProcess: THandle; hModule: HINST;
    lpFilename: PChar; nSize: DWORD): DWORD; stdcall; external 'psapi.dll'
    name 'GetModuleFileNameExA';
    
  function EnumProcessModules(hProcess: THandle; lphModule: LPDWORD; cb: DWORD;
                              Var lpcbNeeded: DWORD): BOOL Stdcall; external 'psapi.dll'
    name 'EnumProcessModules';


implementation
....
end.

в модуле должно выглядеть примерно так
если ты объявляешь функцию так же как она в библиотеке названа то имя

Код:

name 'GetModuleFileNameExA';

можно не писать..

Последний раз редактировалось transserg; 19.02.2010 в 17:57..