Скрытие программы от посторонних глаз

← →
Neket (2006-08-31 15:55) [0]

Подскажите как к примеру скрыть программу так что бы она только была видна только при нажатии ALT+CTRL+DEL, но при это при одновременном нажатии к примеру ALT+CTRL+F она снова появлялась?

← →
Сергей М. © (2006-08-31 15:57) [1]

А нафига ?

← →
Neket (2006-08-31 16:02) [2]

Чтобы другие люди её не видели. Так как програмка системная она собриает инфу по оборудованию. А показывать её необходимо чтобы внести изменения в настройки.

← →
Elen © (2006-08-31 16:04) [3]

Цитата из этих форумов :

Как сделать чтоб моя программа не показывалась по Alt+Tab/Ctrl+Alt+Del/на таскбаре?

program Project1; uses Forms, Windows, Unit1 in "Unit1.pas" {Form1}; {$R *.RES} var ExtendedStyle : integer; begin Application.Initialize; ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE); SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW}); Application.CreateForm(TForm1, Form1); Application.Run; end.

← →
Steep © (2006-08-31 16:04) [4]

form1.show:=false; ?
+ скрытие из task bar"a (не помню)

← →
Neket (2006-08-31 16:08) [5]

А как отловить нажате клавиш в WIDOWS при это если твоя прога висит в памяти и скрыта?

← →
Elen © (2006-08-31 16:13) [6]

> чтобы внести изменения в настройки.

Я так понимаю показывать ее надо ради этого? Сделай просто ИНИ файл, где прописывай свои настройки. Или через Хук.

← →
Neket (2006-08-31 16:13) [7]

Так как скрыть форму я вспомнил
Form1.Visible:=false;
А как мне отловить нажатие клавиш к примеру ALT+CTRL+F если у меня
Form1.Visible:=false ?

← →
Elen © (2006-08-31 16:15) [8]

> А как мне отловить нажатие клавиш к примеру ALT+CTRL+F если
> у меня

Делай Хук на WH_JOURNALPLAYBACK

← →
Neket (2006-08-31 16:17) [9]

Гуд...
КАК?

← →
Сергей М. © (2006-08-31 16:19) [10]

> Neket (31.08.06 16:02) [2]
>
> Чтобы другие люди её не видели

Какие такие "другие" ?

← →
Neket (2006-08-31 16:21) [11]

Сергей М. - Флудить вздумали?

← →
Elen © (2006-08-31 16:28) [12]

> Neket

Попрыгай с этим примером и порули мануалы по SDK.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; function Proc( code:integer; wParam:WPARAM; lParam:LPARAM ):lresult;stdcall; var h:hhook; Form1: TForm1; implementation function Proc( code:integer; wParam:WPARAM; lParam:LPARAM ):lresult;stdcall; var c:array[0..255] of char; s:string; nScan:integer; begin if (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) then begin nScan:=hibyte((teventmsg(pointer(lparam)^).paramL)); nscan:=nscan shl 16; GetKeyNameText(nScan,c,256); // form1.memo1..Add(c); s:=c; Form1.Caption:=s; if length(s)=1 then Form1.Memo1.Lines.Text:=Form1.Memo1.Lines.Text+c else begin Form1.Memo1.Lines.Append(""); Form1.Memo1.Lines.Append("---"); Form1.Memo1.Lines.Append(c); Form1.Memo1.Lines.Append("---"); end;{} end; result:=callnexthookex(h,code,wparam,lparam); end; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0); caption:=inttostr(h); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin unhookwindowshookex(h); end; end.
Хотя зачем так круто прятать такую мелочную прогу от глаз "других людей"

← →
DprYg © (2006-08-31 16:38) [13]

Закрыть можно только завершив процесс:
Application.Initialize;
Application.ShowMainForm := false;
Application.CreateForm(TForm1, Form1);
Application.Run;
Я чего-то не понимаю - какие здесь могут быть ловушки? А RegisterHotKey с обработкой WM_HOTKEY на что?

← →
Сергей М. © (2006-08-31 16:52) [14]

> Neket (31.08.06 16:21) [11]
>
> Сергей М. - Флудить вздумали?
>

Во-первых, не "флудить", а "фладить".
Во-вторых ответь на вопрос...

← →
Neket (2006-08-31 16:54) [15]

Программа работает на сервере. На который удаленно могут заходить различные юзеры. И чтобы они ненаделали ничего плохого имеет смысл прогу скрыть. Всмысле внести изменения в настройки.

← →
Сергей М. © (2006-08-31 16:57) [16]

> Neket (31.08.06 16:54) [15]
>
> Программа работает на сервере.

Да хоть на луне. И что ?

> чтобы они ненаделали ничего плохого имеет смысл

Имеет смысл обратиться к админу-специалисту-профессионалу ... Ибо нефиг имзобретать велосипед, когда в Системе имеется готовый механизм.

← →
Elen © (2006-08-31 16:59) [17]

> Neket

Либо ты неверно задаеш вопросы либо сам не знаеш чего надо - Т.Е. прога работает на другом компе? как ты будеш собирать сведения и откуда?. К тому же настрой доступы это будет лучше чем то что ты хочеш написать.
Пользователи не смогут ничего сделать с файлом удаленно пока он работает

← →
Neket (2006-08-31 17:04) [18]

Вопрос заключался только в одно как отловить нажатие клавиш. Я на него получил более или менее сносный ответ. Всё... Всем спасибо.

> Neket (31.08.06 16:54) [15]

И чего же такого "плохого" могут натворить те самые "различные юзеры" с той самой "программой", которая "работает на сервере" ?

Может тебе таки прекратить нести ту лажу, что ты сейчас несешь, и таки почитать книжки ?)

← →
Neket (2006-08-31 17:06) [20]

Предлогаю админам закрыть эту тему.

← →
Neket (2006-08-31 17:08) [21]

Как мне надоело то что все здесь хотят поумничать вместо того чтобы помочь и подсказать...

А уж как настодолбали премьеры таких вот "ламермаздаев" - ты просто не поверишь)

← →
Neket (2006-08-31 17:37) [24]

А как это использовать RegisterHotKey?
Можно поподробнее?

Скрытие программы от посторонних глаз Найти похожие ветки