|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
24.06.2011, 16:36 | #1 |
Пользователь
Регистрация: 02.02.2011
Сообщений: 20
|
В чём ошибка?
begin
function - она где-то здеь FuncAvail(dllName, funcName: string; var p: pointer): boolean; var lib: THandle; begin result := false; p := nil; if LoadLibrary(PChar(dllName)) = 0 then exit; lib := GetModuleHandle(PChar(dllName)) ; if lib <> 0 then begin p := GetProcAddress(lib, PChar(funcName)) ; if p <> nil then Result := true; end; end; var BlockInput : function(Block: BOOL): BOOL; stdcall; begin if FuncAvail('USER32.DLL', 'BlockInput', @BlockInput) then begin ShowMessage('Âàøà Ìûøü è Êëàâèàòóðà áóäåò çàáëîêèðîâàíà íà 5 ñåêóíä!') ; BlockInput(true) ; Sleep(5000) ; BlockInput(false) ; end; end; |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В чём ошибка? | Edward_92 | Помощь студентам | 0 | 16.05.2011 14:38 |
В чём ошибка? | Jony217 | Общие вопросы C/C++ | 12 | 02.04.2011 09:03 |
В чём ошибка? | Simak63 | Помощь студентам | 2 | 30.03.2011 20:04 |