Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

ALt+Ctrl+Del 


SkySat   (2002-04-08 14:53) [0]

Добрый день!
Подскажите как сделать, чтоб программа не была видна при нажатии Alt+Ctrl+Del, а при попытке закрыть она не закрывалась, а падала в системтрей и всегда приложение висело поверх любых окон,типа как аська.
Заранее спасибо!



Андрей Сенченко   (2002-04-08 15:09) [1]

А как отлаживать будешь ? Кнопку Резет не жалко ?

Буквально на все вопросы ( кроме первого ) есть ответы в Форуме и FAQ.



SkySat   (2002-04-08 15:40) [2]

а можно поподробнее



ZZ   (2002-04-08 16:42) [3]

SkySat
А ты поискать в том же FAQ или яндексе не пробовал? Говорят помогает. Или считаешь, что ты первый задавший эти вопросы?



Sergey Saff   (2002-04-08 17:04) [4]

Посмотри в Факе,должно быть...
Если нет,то вечерком напишу...



SkySat   (2002-04-08 17:12) [5]

да поискал я, ничего не нашёл



wicked   (2002-04-08 17:18) [6]

плохо искал... try again...



lipskiy   (2002-04-08 17:19) [7]

Ну как ничего нет - вот в факе - как скрыть от Alt+Ctrl+Del:
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622499&n=15



SkySat   (2002-04-08 19:47) [8]

почти со всем сам разобрался, ток вот на счёт того, чтоб приложение висело поверх всех окон....мож кто ссылочку кинет или примерчик... пажаста



heruvim4ik   (2002-04-08 20:48) [9]

Це ж элементарно, Ватсон!
Присвой свойству Form1.FormStyle значение fsStayOnTop...



VID   (2002-04-08 21:05) [10]

TO SkySat: а потом скажи получилось или нет по совету heruvim4ik"a. такое предчуствие, что не получится :)))



Sergey Saf   (2002-04-09 08:44) [11]

Поверх всех окон-проще простого:
в менюшке слева в делфи(у меня делфи 5),та которая properties,
ищеш FormStyle и изменяешь там значение на fsStayOnTop,вот и все.
А насчет Alt+Ctrl+Del у меня есть старая сохраненная страничка из нета где про это писал Николай,самое главное я тебе списал.
Например, по созданию окна. Для этого до слова implementation вписываем следующую функцию:

function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;external "KERNEL32.DLL";

А на создание окна код будет выглядеть так:

procedure TForm1.FormCreate(Sender: TObject);
begin
if not(csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID,1);
end;


Ну вот и всё, а если вам понадобится сделать прогу видимой, тогда сделаем это так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if not(csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID,0);
end;



Shron   (2002-04-09 08:58) [12]

похоже что вопрос о невидимости при CTRL+ALT+DEL очень актуален,
вот на одном форуме нашел...
-----------------------------
function RegisterServiceProcess(dwProcessID, dwType: Integer):Integer; stdcall;
external "KERNEL32.DLL";

RegisterServiceProcess(GetCurrentProcessID,1);

Первая часть декларируете функцию RegisterServiceProcess из Kernel32.dll, а затем вызываете ее в теле программы.
Таким образом вы уберете прогу из ctrl-alt-del. Из Alt-tab
ExtendedStyle : integer; меняете на такой же тип в басике
ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW});

-----------------------------------------------




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.026 c
1-69785           lipskiy               2002-04-08 01:12  2002.04.22  
Можно ли при описании константы использовать функции?


3-69699           Jaric                 2002-03-30 14:26  2002.04.22  
Как общаться через ADO компоненты через SPX/IPX протокол?


3-69687           KonuhovSegey          2002-03-10 18:41  2002.04.22  
Исключения в Interbase


1-69806           MystiX                2002-04-09 18:32  2002.04.22  
Help with mouse


6-69942           Davile                2002-02-07 15:56  2002.04.22  
TClientSocket