Вопрос - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе
04.08.2011, 22:49
#1
Разведчик
Регистрация: 03.07.2011
Сообщений: 13
Популярность: -2
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Вопрос
Как сделать чтоб при нажатии на Button создавался и запускался .bat файл?
04.08.2011, 23:33
#2
Разведчик
Регистрация: 30.07.2011
Сообщений: 20
Популярность: 282
Сказал(а) спасибо: 19
Поблагодарили 33 раз(а) в 12 сообщениях
Re: Вопрос
Чтоб тебе могли помочь , ты сначала объясни - зачем тебе создавать и запускать .bat файл ? Если для сохранения в нем текста или чего-то иного - так и скажи ..
________________
Помог?Нажми спасибку!
Благодарность можно выразить и нажав на весы под моей аватарой <=
04.08.2011, 23:34
#3
Сержант
Регистрация: 03.04.2011
Сообщений: 128
Популярность: 5379
Сказал(а) спасибо: 137
Поблагодарили 209 раз(а) в 111 сообщениях
Re: Вопрос
Обрисуй ситуацию полностью,я помогу
04.08.2011, 23:50
#4
Разведчик
Регистрация: 03.07.2011
Сообщений: 13
Популярность: -2
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Вопрос
Ну через .bat можно снести винду, а кто клюнет на bat файл?
Вот мне и надо сделать exe которая создаёт батник и запускает его...
Что-то типо такого.
05.08.2011, 00:07
#5
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Re: Вопрос
А снести винду мимо бата, прямо из программы ниале?)
Вообще тебе подойдет winexec,
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
05.08.2011, 00:10
#6
Фельдмаршал
Регистрация: 22.02.2011
Сообщений: 949
Популярность: 34698
Сказал(а) спасибо: 939
Поблагодарили 2,534 раз(а) в 911 сообщениях
Re: Вопрос
TruePoc , можно снести и через эксюшник.
Смотря как хочеш её снести:
-удалить ветки реестра;
-удалить файлы для запуска винды.
Это всё можно запилить в полне безопасную програмку, типо какогото информера.
05.08.2011, 00:12
#7
Разведчик
Регистрация: 03.07.2011
Сообщений: 13
Популярность: -2
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Вопрос
Ладно, а как при нажатии на Button создавался файл, какой будет код?
05.08.2011, 00:18
#8
Разведчик
Регистрация: 30.07.2011
Сообщений: 20
Популярность: 282
Сказал(а) спасибо: 19
Поблагодарили 33 раз(а) в 12 сообщениях
Re: Вопрос
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('virus.bat');
Memo1.Lines.LoadFromFile('virus.bat');
WinExec(PChar('virus.bat '),SW_SHOW);
MessageBox(Application.Handle,'good', 'info', MB_OK +MB_ICONINFORMATION);
end;
end.
Вот код который тебя интересует . В Memo1 запишешь то что надо записать в батнике и все - работает !
________________
Помог?Нажми спасибку!
Благодарность можно выразить и нажав на весы под моей аватарой <=
Пользователь сказал cпасибо:
05.08.2011, 00:20
#9
Лейтенант-командор
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Re: Вопрос
Здесь и создание и запуск:
Код:
var
s:TStringList;
begin
s.Create;
s.Add('string');
s.SaveToFile(1.bat);
WinExec(1.bat);
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882 ; WMR - R231028582939 ; WMU - U394136909210 ; ЯД - 410011494605270 .
Perfect World : PWDatabaseScanner , Client , PWNickRenamer , PWClientRenamer , База логинов PW , Гайд по варУ , Зарабатываем репутацию .
Delphi : Авторизация на сайте с помощью Indy , Загрузка изображений с интернета в TImage с помощью Indy , Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5 , Основы парсинга с помощью Indy , Делаем Updater до программы с помощью Indy .
Other : ShowIP , FFUUU смайлы в QIP , Как играть в Minecraft (видеокурс) , Как мы захватили человечество :D , Энергия в Лицемер/TopFace , PasGen .
05.08.2011, 00:20
#10
Разведчик
Регистрация: 30.07.2011
Сообщений: 20
Популярность: 282
Сказал(а) спасибо: 19
Поблагодарили 33 раз(а) в 12 сообщениях
Re: Вопрос
Dinmaite , я новенький в Делфи , и мне интересно твое мнение - как мой код ?
З.Ы. на положительный отзыв надеюсь и уповаю ))
________________
Помог?Нажми спасибку!
Благодарность можно выразить и нажав на весы под моей аватарой <=
05.08.2011, 00:21
#11
Разведчик
Регистрация: 03.07.2011
Сообщений: 13
Популярность: -2
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Вопрос
[Ссылки могут видеть только зарегистрированные пользователи. ]
Красным отображает при запуске.
05.08.2011, 00:23
#12
Разведчик
Регистрация: 30.07.2011
Сообщений: 20
Популярность: 282
Сказал(а) спасибо: 19
Поблагодарили 33 раз(а) в 12 сообщениях
Re: Вопрос
ты кнопку кинь на форму - Button с панели Standart . И Memo с той же панели тоже кинь
________________
Помог?Нажми спасибку!
Благодарность можно выразить и нажав на весы под моей аватарой <=
05.08.2011, 00:25
#13
Разведчик
Регистрация: 03.07.2011
Сообщений: 13
Популярность: -2
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Вопрос
SeeZZer , Кинул как бэ, а и код добавил в Button, или в другое место надо?
05.08.2011, 00:26
#14
Разведчик
Регистрация: 30.07.2011
Сообщений: 20
Популярность: 282
Сказал(а) спасибо: 19
Поблагодарили 33 раз(а) в 12 сообщениях
Re: Вопрос
В Button - пошло ?
________________
Помог?Нажми спасибку!
Благодарность можно выразить и нажав на весы под моей аватарой <=
05.08.2011, 00:29
#15
Разведчик
Регистрация: 03.07.2011
Сообщений: 13
Популярность: -2
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Вопрос
SeeZZer , А всё разобрался, я добавлял код в Button, а надо было заменить. Спасибо
VeTaL_UA , а как именно работает ваш метод?
Добавлено через 1 час 42 минуты
При нажатии на CheckBox у меня стоит вот это:
AlphaBlend:=true;
AlphaBlendValue:=100;
Как мне сделать при отжатии вот это:
AlphaBlend:=false;
AlphaBlendValue:=255;
Последний раз редактировалось TruePoc; 05.08.2011 в 02:11 .
Причина: Добавлено сообщение
Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Похожие темы
Тема
Автор
Раздел
Ответов
Последнее сообщение
[Игра] Вопрос на вопрос
AEBus
Треп
351
29.03.2015 23:20
[Помогите!] Вопрос?
Tr[1]x
Вопросы и ответы, обсуждения
1
01.08.2013 05:50
[Подсказка] Вопрос!
gonsh1k
Общение и обсуждение, архив Lineage 2
3
14.08.2010 00:32
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 17:26 .