УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

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

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

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 258 из 677

258

Опции темы

Поиск в этой теме

Опции просмотра

#2571

10.01.2009, 04:36

~~De-visible~~

Banned

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

Сообщений: 904

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

Репутация: 1821

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

Цитата:

Сообщение от Nightmarе

Народ, подскажите пожалуйста, как сделать такую фишку в программе.
Нажимаю Ctrl+A+S - программа исчезает, нажимаю опять эти 3 кнопки - появляется... То есть как в случае со скайп рекордером например, кто знает точный код как реализовывается напишите плииз!!!!!!!!!!!!!

ммм..., чья программа должна исчезать? Скайп или та в которой будет этот код?

--------\
forum.devisible.ru
Программисты, кодеры
--------\

http://articles.org.ru/docum/hotkey.php

Последний раз редактировалось De-visible; 10.01.2009 в 04:40..

#2572

10.01.2009, 05:09

Nightmarе

Познавший АНТИЧАТ

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

Сообщений: 1,189

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

Репутация: 1680

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

Не совсем работает:

private
{ Private declarations }
procedure WM_HotKeyHandler (var Message: TMessage);
message WM_HOTKEY;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WM_HotKeyHandler (var Message: TMessage);
var
idHotKey: integer; //идентификатор, но об этом - позже
fuModifiers: word; //модификатор MOD_XX
uVirtKey: word; //код виртуальной клавиши VK_XX
begin
//параметры сообщения получаем так:
idHotkey:= Message.wParam;
fuModifiers:= LOWORD(Message.lParam);
uVirtKey:= HIWORD(Message.lParam);
//теперь - небольшая проверочка:
if (fuModifiers = MOD_ALT) AND (uVirtKey = VK_F10) then
showmessage('yess');
inherited;
end;

Жму ALT+F10 и сообщение не выскакивает, где ошибка?

#2573

10.01.2009, 05:33

FindeR

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

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

Сообщений: 259

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

Репутация: 151

Ой, как у тебя всё сложно..

В объявлениях формы кидаем (в private)

Код:

procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;

В OnCreate формы

Код:

if not RegisterHotkey(Handle, 1, MOD_ALT or MOD_SHIFT, VK_F9) then
  ShowMessage('Сочетание alt+shift+f9 занято');
if not RegisterHotkey(Handle, 2, MOD_ALT or MOD_SHIFT, VK_F10) then
  ShowMessage('Сочетание alt+shift+f10 занято');

в OnClose формы удаляем наши хоткеи

Код:

UnRegisterHotkey(Handle, 1);
UnRegisterHotkey(Handle, 2);

ну и, собсно, сама процедурка

Код:

procedure TForm1.WMHotkey( var msg: TWMHotkey );
begin
  if msg.hotkey = 1 then form1.Visible := false;
  if msg.hotkey = 2 then form1.Visible := true;
end;

всё

#2574

10.01.2009, 06:00

Nightmarе

Познавший АНТИЧАТ

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

Сообщений: 1,189

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

Репутация: 1680

Цитата:

Сообщение от FindeR

Ой, как у тебя всё сложно..

В объявлениях формы кидаем (в private)

Код:

procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;

В OnCreate формы

Код:

if not RegisterHotkey(Handle, 1, MOD_ALT or MOD_SHIFT, VK_F9) then
  ShowMessage('Сочетание alt+shift+f9 занято');
if not RegisterHotkey(Handle, 2, MOD_ALT or MOD_SHIFT, VK_F10) then
  ShowMessage('Сочетание alt+shift+f10 занято');

в OnClose формы удаляем наши хоткеи

Код:

UnRegisterHotkey(Handle, 1);
UnRegisterHotkey(Handle, 2);

ну и, собсно, сама процедурка

Код:

procedure TForm1.WMHotkey( var msg: TWMHotkey );
begin
  if msg.hotkey = 1 then form1.Visible := false;
  if msg.hotkey = 2 then form1.Visible := true;
end;

всё

Насколько я понимаю из кода, alt+shift+f10 это и есть горячие клавиши, всё сделал, нажимаю на них и ничего не происходит...

#2575

10.01.2009, 06:02

Ponchik

Постоянный

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

Сообщений: 730

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

Репутация: 2274

такой вопрос: Как написать builder на дельфи, ну смысле как пинч например, выставил настройки и он билдит exeшный файл, это как так сделать... Это чтоли юзверь вводит данные, генерица сорс и компилица или как это сделать?

#2576

10.01.2009, 06:04

FindeR

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

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

Сообщений: 259

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

Репутация: 151

Найт,
alt+shift+f9 - сделать форму невидимой
alt+shift+f10 - сделать видимой
накидал тебе сорсик http://ifolder.ru/9952704

#2577

10.01.2009, 06:10

FindeR

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

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

Сообщений: 259

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

Репутация: 151

Цитата:

Сообщение от Ponchik

Что-то я сомневаюсь, что будет "генерица сорс и компилица".
Думаю, достаточно нужные параметры передать

Почитай вот это

#2578

10.01.2009, 06:18

Ponchik

Постоянный

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

Сообщений: 730

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

Репутация: 2274

FindeR, да мне не инсталлер нужен... Он копирует уже готовые файлы, и в них ничё не изменить, а мне надо чтобы в exe файле были мои настройки...
Мле... Ну например, в проге пишу "Hello, world" нажимаю Build, создаётся exe файл и при его запуске выводица "Hello, world" тоесть мне надо прописать текст в .exe файл, а как =\

#2579

10.01.2009, 11:12

W!z@rD

Reservists Of Antichat - Level 6

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

Сообщений: 891

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

Репутация: 836

Отправить сообщение для W!z@rD с помощью ICQ

Пончик - https://forum.antichat.ru/showpost.php?p=1032334&postcount=20

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...