Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.06.2011, 16:36   #1
kotaina
Пользователь
 
Регистрация: 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;
kotaina вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В чём ошибка? Edward_92 Помощь студентам 0 16.05.2011 14:38
В чём ошибка? Jony217 Общие вопросы C/C++ 12 02.04.2011 09:03
В чём ошибка? Simak63 Помощь студентам 2 30.03.2011 20:04