ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
29.08.2009, 09:02
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
Код:
var
wnd: HWND;
old_long: Integer;
begin
wnd := FindWindow('Notepad', nil);
old_long := GetWindowLong(wnd, GWL_STYLE);
SetWindowLong(wnd, GWL_STYLE, old_long and not
(WS_MAXIMIZEBOX or WS_SIZEBOX));
end;
а вообще, посмотри все константы, начинающиеся с "WS_" |
|
|
29.08.2009, 09:50
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
там все даже проще оказалось, вот как сделал:
Код:
var wh:hWnd;
...
SetWindowLong(wh,GWL_STYLE,WS_SYSMENU or WS_GROUP or WS_CAPTION);
ShowWindow(wh,0);ShowWindow(wh,1);
но ToolWindow не нашел всеравно) |
|
|
|
29.08.2009, 12:18
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
там все даже проще оказалось, вот как сделал:
Но твой код не сохраняет атрибутов, которые были у окна раньше.
но ToolWindow не нашел всеравно)
Плохо смотришь 
WS_EX_TOOLWINDOW
Но для него нужно сменить GWL_STYLE на GWL_EXSTYLE. Примерно так:
Код:
var
wnd: HWND;
old_long: Integer;
begin
wnd := FindWindow('Notepad', nil);
old_long := GetWindowLong(wnd, GWL_EXSTYLE);
SetWindowLong(wnd, GWL_EXSTYLE, old_long or WS_EX_TOOLWINDOW);
end;
Последний раз редактировалось Nullsleep; 29.08.2009 в 12:25..
|
|
|
|
29.08.2009, 21:26
|
|
Участник форума
Регистрация: 22.11.2008
Сообщений: 142
Провел на форуме:
636446
Репутация:
32
|
|
Всем привет.
Такой вопросик довольно простой, но для меня довольно значимый.
Внимание вопрос:
Существует главный юнит (юнит главной формы), в нём существует определйнная функция.
Существует Юнит потока (TThread) из которого вызывается та функция.
Где она будит выполняться?
а) В главном юните.
б) В юните потока.
Последний раз редактировалось Flenov; 29.08.2009 в 21:28..
|
|
|
|
30.08.2009, 07:24
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
Flenov, на сколько я понял (сделав бесконечный цикл) функция выполняется в потоке, потому что интерфейс формы не зависает, но проц грузит хорошо)
|
|
|
|
30.08.2009, 13:06
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
sleep(1) надо в поток добавлять
|
|
|
|
30.08.2009, 15:27
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
Сообщение от cremator (c)
sleep(1) надо в поток добавлять
Я как раз наоборот пытался увидеть зависание на форме, так что Sleep() тут не нужен.
|
|
|
|
30.08.2009, 13:13
|
|
Познающий
Регистрация: 04.11.2007
Сообщений: 51
Провел на форуме:
310791
Репутация:
6
|
|
ВОПРОС: как останавливать возобновлять поток созданный через:
PHP код:
var
th:cardinal;
h:integer;
begin //
h := beginthread(nil, 1024, @sending1, nil, 0, th);
end;
Последний раз редактировалось InfectedM; 30.08.2009 в 15:17..
|
|
|
|
30.08.2009, 15:55
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
InfectedM: beginthread все равно сводится к винапишной функции CreateThread, так что лучше использовать её. Тем более вместе с ней можно юзать SuspendThread и ResumeThread (приостановить и продолжить выполнение потока).
Последний раз редактировалось Nullsleep; 30.08.2009 в 16:00..
|
|
|
|
30.08.2009, 23:00
|
|
Участник форума
Регистрация: 22.11.2008
Сообщений: 142
Провел на форуме:
636446
Репутация:
32
|
|
Доброго времени суток!
Я на Delphi пишу одну програмку.
Она проходит авторизацию, получает какие-то куки.
Ну например вот фрагмент ответа сервера:
PHP код:
Set-Cookie: par1=val1; expires=Sun, 22-Aug-2010 22:38:14 GMT; path=/; domain=.domain.ru
Set-Cookie: par2=val2; expires=Sat, 04-Sep-2010 08:38:06 GMT; path=/; domain=.domain.ru
Set-Cookie: par3=val3; expires=Sat, 04-Sep-2010 08:50:26 GMT; path=/; domain=.domain.ru
После чего я хочу использовать эти куки, но видимо что-то не так делаю.
Ниже текст HTTP запроса.
Куда правильно присоединить эти куки?
Если запрос не правильный, подправьте пожалуйста.
Заранее спасибо!
Код:
'GET '+WebAddr+' HTTP/1.0'+#13#10+
'Accept: text/html, */*'+#13#10+
'Host: '+Server+#13#10+
'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727)'+#13#10+
'Content-Type: text/html'+#13#10#13#10;
Последний раз редактировалось Flenov; 30.08.2009 в 23:17..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
