ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
19.02.2010, 16:53
|
|
Участник форума
Регистрация: 15.12.2009
Сообщений: 138
Провел на форуме:
287634
Репутация:
16
|
|
WinAPI в Delphi
В общем, не догоняю, как объявить API-функцию.
Из гугла/яндекса толкового почти ничего не выжал. только примерно вот это (и то не работает)
Код:
function GetWindowDC(Wnd: HWnd): hDC;
stdcall; extenal 'user32.dll' name 'GetWindowDC';
Всяко экспериментировал, но нирвзу не заработало. Честно говоря, я ваще толком не знаю, куда это писать... Объясните дураку...
И ещё пытался с реестром бодаться (Там функции в 'Windows' объявлены). Тоже не вышло ничего, хотя в ВБ те же функции спокойно юзаю...
Последний раз редактировалось DiffiT; 19.02.2010 в 16:57..
|
|
|
19.02.2010, 17:13
|
|
Статус пользователя:
Регистрация: 26.07.2005
Сообщений: 568
Провел на форуме:
1290766
Репутация:
1236
|
|
пока на нее не подсел переходи на цпп)
__________________
  
snow white world wide
|
|
|
|
19.02.2010, 17:15
|
|
Участник форума
Регистрация: 15.12.2009
Сообщений: 138
Провел на форуме:
287634
Репутация:
16
|
|
Сообщение от sn0w
пока на нее не подсел переходи на цпп)
не подсяду) просто всё по порядку 
|
|
|
|
19.02.2010, 17:43
|
|
Познающий
Регистрация: 30.12.2008
Сообщений: 64
Провел на форуме:
647156
Репутация:
76
|
|
uses Windows
Эта функция там описана
|
|
|
|
19.02.2010, 17:45
|
|
Участник форума
Регистрация: 15.12.2009
Сообщений: 138
Провел на форуме:
287634
Репутация:
16
|
|
Сообщение от 0rs
uses Windows
Эта функция там описана
Мне не конкретно эту функцию надо.
|
|
|
|
19.02.2010, 17:47
|
|
Участник форума
Регистрация: 15.12.2009
Сообщений: 138
Провел на форуме:
287634
Репутация:
16
|
|
Млин, вся опа в том, что вопрос простейший, а ответа нет. Просто дельфин не родной для мну язык, вот и парюсь |
|
|
|
19.02.2010, 17:53
|
|
Познающий
Регистрация: 30.12.2008
Сообщений: 64
Провел на форуме:
647156
Репутация:
76
|
|
Вроде в первом посту функция выглядит правильно. Может только в одну строку ее записать. А что конкретно не работает?
|
|
|
|
19.02.2010, 17:54
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284
Репутация:
52
|
|
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..
|
|
|
|
19.02.2010, 18:11
|
|
Участник форума
Регистрация: 15.12.2009
Сообщений: 138
Провел на форуме:
287634
Репутация:
16
|
|
Сообщение от transserg
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';
можно не писать..
вроде, так и делаю.. =) щас ещё раз попробую
|
|
|
|
19.02.2010, 18:17
|
|
Участник форума
Регистрация: 15.12.2009
Сообщений: 138
Провел на форуме:
287634
Репутация:
16
|
|
 спасибо, заработало)))) не туда писал, как оказалось)))) Пробовал писать в type, как функцию формы, пробовал в public и в private щас вкурил, зачем там end был)))) |
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Литература Delphi
|
Sams |
С/С++, C#, Delphi, .NET, Asm |
2 |
19.03.2010 19:46 |
|
Скачать Delphi 7, помощь.
|
_casper_ |
С/С++, C#, Delphi, .NET, Asm |
20 |
08.12.2009 04:54 |
|
Virus.Win32.Induc.a – новый вирус для Delphi
|
ErrorNeo |
Уязвимости |
37 |
26.08.2009 00:33 |
|
Virus.Win32.Induc.a или "Снова записки новичка"
|
_=(mac)=_ |
Защита ОС: вирусы, антивирусы, файрволы. |
5 |
24.08.2009 23:34 |
|
Помогите с WinAPI в Delphi
|
EST a1ien |
С/С++, C#, Delphi, .NET, Asm |
13 |
12.10.2006 11:06 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
