Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
ВнизСкрытие программы от посторонних глаз Найти похожие ветки
← →
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]Вопрос заключался только в одно как отловить нажатие клавиш. Я на него получил более или менее сносный ответ. Всё... Всем спасибо.
← →
Сергей М. © (2006-08-31 17:04) [19]
> Neket (31.08.06 16:54) [15]
И чего же такого "плохого" могут натворить те самые "различные юзеры" с той самой "программой", которая "работает на сервере" ?
Может тебе таки прекратить нести ту лажу, что ты сейчас несешь, и таки почитать книжки ?)
← →
Neket (2006-08-31 17:06) [20]Предлогаю админам закрыть эту тему.
← →
Neket (2006-08-31 17:08) [21]Как мне надоело то что все здесь хотят поумничать вместо того чтобы помочь и подсказать...
← →
Сергей М. © (2006-08-31 17:11) [22]А уж как настодолбали премьеры таких вот "ламермаздаев" - ты просто не поверишь)
← →
Virgo_Style © (2006-08-31 17:34) [23]Elen © (31.08.06 16:15) [8]
Хм, может, я чего-то не знаю, но почему не RegisterHotKey?
← →
Neket (2006-08-31 17:37) [24]А как это использовать RegisterHotKey?
Можно поподробнее?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.151 c