ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
25.03.2009, 19:23
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
м?
winexec(PChar('explorer '+ExtractFilePath(Application.ExeName)), SW_SHOW);
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
26.03.2009, 10:32
|
|
Познающий
Регистрация: 26.02.2009
Сообщений: 34
Провел на форуме:
276020
Репутация:
18
|
|
2 desTiny: Спасибо  Всё красиво, одной строчкой, вообще я до winexec даже и не додумался. Вот только папка в отдельном окне открывается, жаль  \
2SaiRus: Это идея. А как такое можно сделать? Пробовал, но что-то не получилось... js, vbs, wsh |
|
|
|
26.03.2009, 14:09
|
|
Участник форума
Регистрация: 08.11.2008
Сообщений: 164
Провел на форуме:
5779069
Репутация:
185
|
|
во входном файле input.txt в первой строке через пробел записано некоторое (возможно,дробное) число в системе счисления от 2 до 16,основание системы счисления,в которой записано это число,и основание системы счисления в которую требуеться перевести число.программа должна создать файл output.txt и записать в него ответ:числопереведенное в нужную систему счисления
|
|
|
|
26.03.2009, 18:52
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Как на Delphi получить md5 файла, в таком виде:
280c7a8c3301f2d12b75e8cb57ac0440
|
|
|
|
26.03.2009, 19:30
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Сообщение от art2222
Как на Delphi получить md5 файла, в таком виде:
280c7a8c3301f2d12b75e8cb57ac0440
в другом формате мд5 файла ты и не получишь 
md5 строки:
http://www.delphisources.ru/pages/faq/base/md5.html
http://delphi.od.ua/article/a-50.html
http://delphi.about.com/od/objectpascalide/a/delphi-md5-hash.htm
http://www.slavssoft.ru/articles/?page=md5
md5 файла:
http://www.cyberforum.ru/post104544.html
или http://articles.org.ru/cn/showdetail.php?cid=7047
# function MD5File(const FileName: string): TMD5Digest;
# function MD5DigestToStr(const Digest: TMD5Digest): string;
юзаеш:
Код:
hash := MD5DigestToStr( MD5File( 'file.nana' ) );
|
|
|
|
26.03.2009, 19:36
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Код:
hash := MD5DigestToStr( MD5File( 'file.nana' ) );
Спасибо, то, что и нужно было. |
|
|
|
26.03.2009, 20:24
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Нужно открыть txt фаил с сервера адрес примерно http://host/name.txt
И эту функу засунуть вместо функи открыть фаил с диска. исходник: http://www.rapidshare.ru/982142 |
|
|
|
26.03.2009, 21:27
|
|
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме:
1776253
Репутация:
106
|
|
Вот, почитай http://forum.antichat.ru/showthread.php?t=101967
|
|
|
|
26.03.2009, 23:03
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от Dr.Gonzo
2 desTiny: Спасибо Всё красиво, одной строчкой, вообще я до winexec даже и не додумался. Вот только папка в отдельном окне открывается, жаль \ ну одно окно можно найти по FindWindow, узнать его положение, закрыть и переместить новое на место старого
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
27.03.2009, 10:30
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от Dr.Gonzo
Кто-нибудь знает, как открыть Мой Компьютер?
Нужно именно программно вызвать его, но не в отдельном окне...
То есть, лежит exe файл в папке, при клике на него идем по заданному пути в этом же окне
Мои догадки:
1. Ищем в процессах проводник и делаем его активным
2. Эмулируем ввод в строку текста и нажатие Enter
У кого есть хоть какие-то варианты как это закодить или какие-нибудь другие способы добиться результата?
Конкретно для твоего случая для вызова "Мой компьютер" параметры функции будут иметь вид:
ShellExecute(Handle, 'open', PChar(GetSpecialPath(CSIDL_DRIVES)), nil, nil,sw_show).
Не забудь только подключить модуль ShellAPI в секции Uses.
P.S. И вообще, зная константы пространства имен можно открыть все что угодно!
Список констант можно найти здесь http://www.firststeps.ru/mfc/detail/r.php?48
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для ][yZ](/avatars/avatar78498.jpg?1191883){kind=avatar}
Похожие темы
Линейный вид
