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

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

Вернуться   Форум программистов > Программная инженерия > Безопасность, Шифрование
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2007, 01:04   #1
Flash_
Пользователь
 
Аватар для Flash_
 
Регистрация: 19.12.2006
Сообщений: 91
По умолчанию "Скрытая работа" программы..=/

Пытаюсь написать программу, что-то вроде "клавиатурного перехватчика")) Т.е. при нажатии какой-либо кнопки пользователем в определенный файл записывается, какая кнопка была нажата. Всё уже работает, но только при активной форме. А хотелось бы, чтобы никаких видимых признаков работы приложения (за исключением процесса в диспетчере задач) не было.
Пробовал Form1.Hide - в файл ничего не пишется. А если ставлю Form1.Visible:=false; то форма всё равно видна..
Не подскажите, что с этим всем сделать можно?
Flash_ вне форума Ответить с цитированием
Старый 08.01.2007, 01:27   #2
PikeIt
НачПрог
 
Регистрация: 23.12.2006
Сообщений: 7
По умолчанию

Можно просто сдвинуть его за пределы экрана, но правда с низу оно всеравно будет видно
Вот еще кое что нашол в DelphiWorld
Цитата:
Показать/спрятать окно
SW_HIDE - скрывает окно и убирает из панели задачь, например нужнопри использовании иконки программы в системном трее при сворачиванииокна убирать его из панели задачь
SW_RESTORE - восстанавливает окно, при использовании иконки всистемном трее при нажатии на иконку, показать скрытое
SW_HIDE-ом окно.Другие параметры смотрите в справке Delphi по ShowWindow}

ShowWindow(Application.Handle,SW_RE STORE); //Восстановить
ShowWindow(Application.Handle, SW_HIDE); //скрыть
program qwe;

Последний раз редактировалось PikeIt; 08.01.2007 в 01:33.
PikeIt вне форума Ответить с цитированием
Старый 08.01.2007, 01:29   #3
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
По умолчанию

Держи, писал когда-то кому-то... скрытие и восстановление по горячим клавишам...

Код:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure WMHotKey(var a:TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMHotKey(var a:TWMHotKey);
begin    
if (a.HotKey=25) then
   begin
   ShowWindow(Handle,SW_NORMAL);
   ShowWindow(Application.Handle,SW_NORMAL);
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowWindow(Handle,SW_Hide);
ShowWindow(Application.Handle,SW_HIDE);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
   RegisterHotKey(Handle,25,MOD_ALT or MOD_CONTROL,8);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Handle,25);
end;
end.
writeln('Hello Dude!!!');

Последний раз редактировалось -=DeS=-; 08.01.2007 в 01:32.
-=DeS=- вне форума Ответить с цитированием
Старый 08.01.2007, 19:44   #4
Сильванович Михаил
Студент
Форумчанин
 
Регистрация: 10.11.2006
Сообщений: 196
По умолчанию

Я уже оставлял код, но только в другом разделе.
Вот ссылочка смотри: http://www.programmersforum.ru/showp...53&postcount=2
Visita Interiorem Terrae Rectificando Operae Lapidem...

Последний раз редактировалось zetrix; 09.01.2007 в 18:24.
Сильванович Михаил вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при использовании OlePropertyGet("Documents").OleProcedure("Add") в C++ Builder AleksP C++ Builder 7 11.04.2009 13:06
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует skobets Общие вопросы C/C++ 2 03.06.2008 06:51
Excel файл открывается не "до конца" (странички "не показываются" только серое поле) Dorvir Microsoft Office Excel 2 28.03.2008 10:03
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" MAcK Компоненты Delphi 11 24.10.2007 10:49