Вверх ↑
Этот топик читают: Гость
Ответов: 253
Рейтинг: 0
#1: 2019-06-05 16:46:36 ЛС | профиль | цитата
Как можно создать форму на весь экран без возможности закрыть, скрыть, вызвать пуск или диспетчер задач.

--- Добавлено в 2019-06-05 16:48:16


Add(MainForm,2953706,245,105)
{
Width=302
Height=188
BorderStyle=6
WindowsState=2
}

но как запретить вызов Пуска. Диспетчера.

--- Добавлено в 2019-06-05 17:03:55

Просто хочу сделать как-то так.

Add(MainForm,2953706,364,217)
{
Width=302
Height=188
Color=16777215
BorderStyle=6
WindowsState=2
}
Add(WebBrowser,14007454,364,266)
{
Left=350
Top=280
Align=5
URL="http://forum.hiasm.com"
Silent=0
}


Редактировалось 2 раз(а), последний 2019-06-05 17:03:55
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 537
Рейтинг: 14
#2: 2019-06-05 18:26:53 ЛС | профиль | цитата
Может так

Add(MainForm,2442675,224,133)
{
Ctl3D=0
WinStyle=1
BorderStyle=6
Point(doWidth)
Point(doHeight)
Point(Handle)
link(onCreate,10343749:doEvent1,[])
}
Add(WinTools,8164120,224,203)
{
link(Handle,2442675:Handle,[])
}
Add(Screen,8947094,329,84)
{
}
Add(DoData,15809546,329,147)
{
link(onEventData,2442675:doWidth,[(368,153)(368,128)(214,128)(214,167)])
link(Data,8947094:Width,[])
}
Add(Hub,10343749,280,147)
{
OutCount=3
link(onEvent1,15809546:doData,[])
link(onEvent2,6279217:doData,[])
link(onEvent3,8164120:doPopup,[(300,167)(300,241)(214,241)(214,216)])
}
Add(DoData,6279217,371,154)
{
link(onEventData,2442675:doHeight,[(411,160)(411,191)(214,191)(214,174)])
link(Data,8947094:Height,[(377,138)(342,138)])
}
карма: 4

0
Ответов: 8885
Рейтинг: 823
#3: 2019-06-05 18:32:59 ЛС | профиль | цитата
egorhay писал(а):
но как запретить вызов Пуска. Диспетчера.

Щаз!


Add(MainForm,8601737,329,133)
{
Width=302
Height=188
Color=16777215
BorderStyle=6
WindowsState=2
Point(doPicture)
link(onCreate,11691833:doCapture,[])
}
Add(ScreenShort,11691833,378,147)
{
link(onCapture,12347304:doLoad,[])
link(Handle,4373634:Value,[])
}
Add(Memory,4373634,378,105)
{
Default=Integer(0)
}
Add(Image,12347304,427,147)
{
Align=5
Point(doRefresh)
link(onClick,6157359:doDraw,[(466,153)(466,188)(417,188)(417,202)])
}
Add(Img_Text,6157359,427,196)
{
X=100
Y=100
Font=[MS Sans Serif,48,1,255,1]
Text="100 руб на 495 999 99 99"
link(onDraw,12347304:doRefresh,[(473,202)(473,174)(417,174)(417,167)])
link(Bitmap,12347304:ImageBitmap,[])
}

карма: 19

0
Ответов: 1924
Рейтинг: 172
#4: 2019-06-06 20:34:55 ЛС | профиль | цитата
egorhay писал(а):
Как можно создать форму на весь экран без возможности закрыть, скрыть

Лучше точки компонентов надо изучать!

Add(MainForm,12848027,364,210)
{
Width=302
Height=188
Color=16777215
BorderStyle=6
WindowsState=2
Point(Handle)
Point(Close)
Point(QueryEndSession)
link(onCreate,10416316:doPopup,[(408,230)(408,251)(352,251)(352,272)])
link(Close,15697254:Var2,[])
link(QueryEndSession,15697254:Var3,[(377,194)])
}
Add(Memory,11806287,364,147)
{
Default=Integer(1)
}
Add(GetDataEx,15697254,364,189)
{
link(Data,11806287:Value,[])
}
Add(WinTools,10416316,364,259)
{
link(Handle,12848027:Handle,[])
}
Но вот про пуск и диспетчер не отвечу, т.к. у самого нет опыта.
карма: 9
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#5: 2019-06-06 21:57:47 ЛС | профиль | цитата
egorhay писал(а):
но как запретить вызов Пуска. Диспетчера.

Че-та оченьь подозрительно больно. Понятно еще Пуск, но вот Диспетчер наводит на нехорошие мысли.
карма: 22

0
Ответов: 321
Рейтинг: 10
#6: 2019-06-06 22:29:04 ЛС | профиль | цитата
nesco писал(а):
Че-та очень подозрительно больно. Понятно еще Пуск, но вот Диспетчер наводит на нехорошие мысли.

Следующий вопрос будет "как добавить в автозапуск"
карма: 1

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#7: 2019-06-06 22:44:48 ЛС | профиль | цитата
Master4eG писал(а):
Следующий вопрос будет "как добавить в автозапуск"

Фиии. Так только обычные юзеры делают
карма: 22

0
Ответов: 253
Рейтинг: 0
#8: 2019-06-19 16:40:56 ЛС | профиль | цитата
Ахаха не. Просто у моей маман Магазинчик не большой. Также есть интернет магазин с возможностью заказать товар там. Так вот она хочет поставить небольшой компуктер, чтобы посетители могли от туда сразу заказать. Думал попробовать решить эту задачу через Hiasm. Ну и следственно чтобы они там нечего лишнего не тыкали, хотел ограничить доступ к пуску и диспетчеру.

Редактировалось 1 раз(а), последний 2019-06-19 16:42:04
карма: 0

0
Ответов: 537
Рейтинг: 14
#9: 2019-06-19 20:25:31 ЛС | профиль | цитата
Как вариант
Add(MainForm,2442675,210,189)
{
Ctl3D=0
WinStyle=1
Caption="Form1"
BorderStyle=6
Point(doWidth)
Point(doHeight)
Point(Handle)
Point(Close)
link(onCreate,10343749:doEvent1,[])
link(Close,4329365:Text,[])
}
Add(WinTools,8164120,210,259)
{
link(Handle,2442675:Handle,[])
}
Add(Screen,8947094,329,140)
{
}
Add(DoData,15809546,329,203)
{
link(onEventData,2442675:doWidth,[(368,209)(368,182)(192,182)(192,223)])
link(Data,8947094:Width,[])
}
Add(Hub,10343749,266,203)
{
OutCount=3
link(onEvent1,15809546:doData,[])
link(onEvent2,6279217:doData,[])
link(onEvent3,4445685:doStartHotKey,[(292,223)(292,236)(137,236)(137,216)])
}
Add(DoData,6279217,371,210)
{
link(onEventData,2442675:doHeight,[(411,216)(411,251)(192,251)(192,230)])
link(Data,8947094:Height,[(377,191)(342,191)])
}
Add(Timer,1052102,147,266)
{
Interval=10
link(onTimer,8164120:doPopup,[])
}
Add(GHotKey,4445685,147,210)
{
Key=27
link(onEventHotKey,2442675:doClose,[])
}
Add(VisualStrings,4329365,210,147)
{
Lines=#1:1|
Width=25
}

Выход - Клавиша ESC

Редактировалось 1 раз(а), последний 2019-06-19 20:29:39
карма: 4

0
Ответов: 1341
Рейтинг: 31
#10: 2019-06-19 22:18:05 ЛС | профиль | цитата
просто убивай процесс explorer и в реестре заблокируй запуск различных помошников, вот и всё)
карма: 2

0
10
Сообщение
...
Прикрепленные файлы
(файлы не залиты)