Форум: "Основная";
Текущий архив: 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});
-----------------------------------------------
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c