ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
25.03.2009, 16:38
|
|
Познающий
Регистрация: 26.02.2009
Сообщений: 34
Провел на форуме:
276020
Репутация:
18
|
|
Кто-нибудь знает, как открыть Мой Компьютер?
Нужно именно программно вызвать его, но не в отдельном окне...
То есть, лежит exe файл в папке, при клике на него идем по заданному пути в этом же окне
Мои догадки:
1. Ищем в процессах проводник и делаем его активным
2. Эмулируем ввод в строку текста и нажатие Enter
У кого есть хоть какие-то варианты как это закодить или какие-нибудь другие способы добиться результата?
|
|
|
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
|
|
|
|
25.03.2009, 17:15
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Кто-нибудь знает, как открыть Мой Компьютер?
http://delphiblog.ru/delphi-faq/files/sys-folders/
|
|
|
|
25.03.2009, 19:17
|
|
Познающий
Регистрация: 26.02.2009
Сообщений: 34
Провел на форуме:
276020
Репутация:
18
|
|
2 eLWAux:
спасибо, но немного не то.
Нужно так: чел открывает папку, где лежит прога, запускает ее, она берет окно этой самой папки и из него переходит в другую папку... как будто бы он запустил не файл, а кликнул по папке
|
|
|
|
25.03.2009, 19:21
|
|
Постоянный
Регистрация: 24.11.2008
Сообщений: 416
Провел на форуме:
910902
Репутация:
100
|
|
Сообщение от Dr.Gonzo
2 eLWAux:
спасибо, но немного не то.
Нужно так: чел открывает папку, где лежит прога, запускает ее, она берет окно этой самой папки и из него переходит в другую папку... как будто бы он запустил не файл, а кликнул по папке
то есть окно это проводник? не лучше ли прописать одной строчкой в файле .js переход на каталог выше?или в бате...
|
|
|
|
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, 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
|
|
|
|
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
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид