Автоматизация и боты

 Помощь      Поиск      Пользователи
Сайт Кибор     Программируемый кликер Кибор     Видео обучение     Заказать бот

 Страниц (1): [1]   

> Без описания
KevinS
Отправлено: 19 Апреля, 2022 - 11:32:00
Post Id



Пользователь
Мастер


Покинул форум
Сообщений всего: 218
Дата рег-ции: Февр. 2020  
Репутация: 2




Здравствуйте. Можно ли создать диалоговое окно только с крестиком (без кнопки сворачивания и разворачивания на весь экран, только крестик) через WinApi? Если можно, то пожалалуйста, дайте пример Огорчение
 
 Top
Zireael
Отправлено: 19 Апреля, 2022 - 11:41:24
Post Id



Пользователь
Эксперт


Покинул форум
Сообщений всего: 4461
Дата рег-ции: Нояб. 2017  
Репутация: 585




 Цитата:
CreateWindow(WS_EX_TOPMOST, address(#Class[0]), "", WS_VISIBLE | WS_CAPTION | WS_SYSMENU, 200, 100, 400, 300, 0, 0, 0, 0);
 
 Top
KevinS
Отправлено: 19 Апреля, 2022 - 11:46:29
Post Id



Пользователь
Мастер


Покинул форум
Сообщений всего: 218
Дата рег-ции: Февр. 2020  
Репутация: 2




 Zireael пишет:
 Цитата:
CreateWindow(WS_EX_TOPMOST, address(#Class[0]), "", WS_VISIBLE | WS_CAPTION | WS_SYSMENU, 200, 100, 400, 300, 0, 0, 0, 0);


Огромное спасибо!) Как не гуглил, не мог найти ничего... Ха-ха
(Добавление)
А можно ли как-то покрасить белвую полоску наверху?

[img](для просмотра ссылки Вам необходимо авторизоваться) /img]

CODE:
#define WS_CHILD 0x40000000
#define WS_VISIBLE 0x10000000
#define WS_EX_TOPMOST 0x00000008
#define WS_CAPTION 0x00C00000
#define WS_SYSMENU 0x00080000
#define IDC_ARROW 32512
#define ACTCTX_FLAG_RESOURCe_NAME_VALID 0x008
#define ACTCTX_FLAG_SET_PROCESS_DEFAULT 0x010
#define ACTCTX_FLAG_ASSEMBLY_DIRECTORY_VALID 0x004

external(INT, "CreateActCtx", "CreateActCtxA", "Kernel32.dll");
external(INT, "GetSystemDirectory", "GetSystemDirectoryA", "Kernel32.dll");
external(INT, "RegisterClass", "RegisterClassA", "User32.dll");
external(INT, "UnregisterClass", "UnregisterClassA", "User32.dll");
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "LoadCursor", "LoadCursorA", "User32.dll");
external(INT, "LoadIcon", "LoadIconA", "User32.dll");
external(INT, "CreateSolidBrush", "CreateSolidBrush", "Gdi32.dll");
external(INT, "GetModuleHandle", "GetModuleHandleA", "Kernel32.dll");

EnableVisualStyles();

int fon_color = rgb(130, 151, 255); // цвет фона окна


char Class[99];
strcpy(#Class[0], "myclass");

int PWNDCLASS[10];//Структура WNDCLASS
int CLASS=address(#PWNDCLASS[0]);//Указатель на название класса

initialarray(#PWNDCLASS[0], 0);//Обнуляем структуру
PWNDCLASS[1] = address("WindowProc"); // функция обработки сообщений от окна
PWNDCLASS[5] = LoadIcon(GetModuleHandle(0), 128); // иконка
PWNDCLASS[6] = LoadCursor(0, IDC_ARROW); // курсор
PWNDCLASS[7] = CreateSolidBrush(fon_color); // цвет фона диалога
PWNDCLASS[9] = address(#Class[0]); // имя класса окна


if (RegisterClass(CLASS)==0){messagebox("Не удалось зарегистрировать класс"); goto er;}

int button0;

// создание окна
int Win = CreateWindow(WS_EX_TOPMOST, address(#Class[0]), "", WS_VISIBLE | WS_CAPTION | WS_SYSMENU, 200, 100, 400, 300, 0, 0, 0, 0);



loop()sleep(10);

end:;
UnregisterClass(address(#Class[0]), 0);
er:;


function getmessage(WM_CREATE)
{
// создание контролов
button0 = CreateWindow(0, "BUTTON", "Кнопка", WS_VISIBLE | WS_CHILD, 10, 10, 100, 24, message.hwnd, 0, 0, 0);
}


function getmessage(WM_COMMAND)
{
if (message.lparam==button0) // если нажата кнопка
{
messagebox("Нажата кнопка");
}
}

function getmessage(WM_CLOSE)
{
goto global end;
}

function EnableVisualStyles()
{
char Directory[260], Source[260];
strcpy(#Source[0], "shell32.dll");
GetSystemDirectory(address(#Directory[0]), sizearray(Directory));

int ACTCTX[8] = {32, ACTCTX_FLAG_RESOURCe_NAME_VALID | ACTCTX_FLAG_SET_PROCESS_DEFAULT | ACTCTX_FLAG_ASSEMBLY_DIRECTORY_VALID,
address(#Source[0]), 0, address(#Directory[0]), 124, 0, 0};
CreateActCtx(address(#ACTCTX[0]));
}
 
 Top
neba2101
Отправлено: 20 Августа, 2024 - 14:01:36
Post Id



Пользователь
Мастер


Покинул форум
Сообщений всего: 154
Дата рег-ции: Февр. 2017  
Репутация: 4




 Zireael пишет:
 Цитата:
CreateWindow(WS_EX_TOPMOST, address(#Class[0]), "", WS_VISIBLE | WS_CAPTION | WS_SYSMENU, 200, 100, 400, 300, 0, 0, 0, 0);


А можно создать диалог только с крестиком через createdialog(0); ? Спасибо.
 
 Top
Zireael
Отправлено: 20 Августа, 2024 - 14:59:37
Post Id



Пользователь
Эксперт


Покинул форум
Сообщений всего: 4461
Дата рег-ции: Нояб. 2017  
Репутация: 585




 Цитата:
А можно создать диалог только с крестиком через createdialog(0); ?

CODE:
#define GWL_STYLE -16
#define WS_CHILD 0x40000000
#define WS_VISIBLE 0x10000000
#define WS_CAPTION 0x00C00000
#define WS_SYSMENU 0x00080000
external(INT, "SetWindowLong", "SetWindowLongA", "User32.dll");

createdialog(0);
showdialog(0, "Dialog", 258, 234, 250, 150, 1, 1);
SetWindowLong(gethwnd(0), GWL_STYLE, WS_VISIBLE | WS_CAPTION | WS_SYSMENU); // изменить стиль окна

loop()sleep(10);
 
 Top
Geoteh
Отправлено: 20 Августа, 2024 - 23:36:13
Post Id



Пользователь
Участник


Покинул форум
Сообщений всего: 62
Дата рег-ции: Авг. 2021  
Репутация: 0




мне понравился такой вариант диалога
CODE:
#define WS_CHILD 0x40000000
#define WS_VISIBLE 0x10000000
#define WS_EX_TOPMOST 0x00000008
#define WS_CAPTION 0x00C00000
#define WS_SYSMENU 0x00080000
#define IDC_ARROW 32512
#define ACTCTX_FLAG_RESOURCe_NAME_VALID 0x008
#define ACTCTX_FLAG_SET_PROCESS_DEFAULT 0x010
#define ACTCTX_FLAG_ASSEMBLY_DIRECTORY_VALID 0x004

external(INT, "CreateActCtx", "CreateActCtxA", "Kernel32.dll");
external(INT, "GetSystemDirectory", "GetSystemDirectoryA", "Kernel32.dll");
external(INT, "RegisterClass", "RegisterClassA", "User32.dll");
external(INT, "UnregisterClass", "UnregisterClassA", "User32.dll");
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "LoadCursor", "LoadCursorA", "User32.dll");
external(INT, "LoadIcon", "LoadIconA", "User32.dll");
external(INT, "CreateSolidBrush", "CreateSolidBrush", "Gdi32.dll");
external(INT, "GetModuleHandle", "GetModuleHandleA", "Kernel32.dll");

#define WS_POPUP 0x80000000
#define HTCAPTION 2


_start:;

EnableVisualStyles();

int fon_color = rgb(130, 151, 255); // цвет фона окна


char Class[99];
strcpy(#Class[0], "myclass");

int PWNDCLASS[10];//Структура WNDCLASS
int CLASS=address(#PWNDCLASS[0]);//Указатель на название класса

initialarray(#PWNDCLASS[0], 0);//Обнуляем структуру
PWNDCLASS[1] = address("WindowProc"); // функция обработки сообщений от окна
PWNDCLASS[5] = LoadIcon(GetModuleHandle(0), 128); // иконка
PWNDCLASS[6] = LoadCursor(0, IDC_ARROW); // курсор
PWNDCLASS[7] = CreateSolidBrush(fon_color); // цвет фона диалога
PWNDCLASS[9] = address(#Class[0]); // имя класса окна


if (RegisterClass(CLASS)==0){UnregisterClass(address(#Class[0]), 0);goto _start;}


int button0;

// создание окна
int Win = CreateWindow(WS_EX_TOPMOST, address(#Class[0]), "", WS_POPUP | WS_VISIBLE, 200, 100, 400, 300, 0, 0, 0, 0);



loop()sleep(10);

end:;
er:;



function getmessage(WM_CREATE)
{
// создание контролов
button0 = CreateWindow(0, "BUTTON", "закрыть", WS_VISIBLE | WS_CHILD, 10, 10, 100, 24, message.hwnd, 0, 0, 0);
}


function getmessage(WM_COMMAND)
{

if (message.hwnd==Win)
{
if (message.lparam==button0) // если нажата кнопка
{
UnregisterClass(address(#Class[0]), 0);
goto global er;
}
}
}



function getmessage (WM_LBUTTONDOWN)
{

if (message.hwnd==Win)//Если сообщение от окна
{
sendmessage(WM_NCLBUTTONDOWN, HTCAPTION, 0, formatiw(Win)); // перетаскивание окна за клиентскую часть
}

}


function EnableVisualStyles()
{
char Directory[260], Source[260];
strcpy(#Source[0], "shell32.dll");
GetSystemDirectory(address(#Directory[0]), sizearray(Directory));

int ACTCTX[8] = {32, ACTCTX_FLAG_RESOURCe_NAME_VALID | ACTCTX_FLAG_SET_PROCESS_DEFAULT | ACTCTX_FLAG_ASSEMBLY_DIRECTORY_VALID,
address(#Source[0]), 0, address(#Directory[0]), 124, 0, 0};
CreateActCtx(address(#ACTCTX[0]));
}

(Отредактировано автором: 20 Августа, 2024 - 23:37:53)

 
 Top
Страниц (1): [1]
Сейчас эту тему просматривают: 2 (гостей: 2, зарегистрированных: 0)
« Вопросы и решение проблем »


Все гости форума могут просматривать этот раздел.
Только зарегистрированные пользователи могут создавать новые темы в этом разделе.
Только зарегистрированные пользователи могут отвечать на сообщения в этом разделе.
 




Powered by