[Подсказка] Вопрос

[TruePoc]

Как сделать чтоб при нажатии на Button создавался и запускался .bat файл?

[SeeZZer]

Чтоб тебе могли помочь , ты сначала объясни - зачем тебе создавать и запускать .bat файл ? Если для сохранения в нем текста или чего-то иного - так и скажи ..

[gum_classis]

Обрисуй ситуацию полностью,я помогу

[TruePoc]

Ну через .bat можно снести винду, а кто клюнет на bat файл?
Вот мне и надо сделать exe которая создаёт батник и запускает его...

Что-то типо такого.

[Dinmaite]

А снести винду мимо бата, прямо из программы ниале?)

Вообще тебе подойдет winexec,

[Dimedrol1536]

TruePoc, можно снести и через эксюшник.
Смотря как хочеш её снести:
-удалить ветки реестра;
-удалить файлы для запуска винды.
Это всё можно запилить в полне безопасную програмку, типо какогото информера.

[TruePoc]

Ладно, а как при нажатии на Button создавался файл, какой будет код?

[SeeZZer]

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 запишешь то что надо записать в батнике и все - работает !

[VeTaL_UA]

Здесь и создание и запуск:

var
s:TStringList;
begin
s.Create;
s.Add('string');
s.SaveToFile(1.bat);
WinExec(1.bat);

[SeeZZer]

Dinmaite, я новенький в Делфи , и мне интересно твое мнение - как мой код ?
З.Ы. на положительный отзыв надеюсь и уповаю ))

[TruePoc]

[Ссылки могут видеть только зарегистрированные пользователи. ]
Красным отображает при запуске.

[SeeZZer]

ты кнопку кинь на форму - Button с панели Standart . И Memo с той же панели тоже кинь

[TruePoc]

SeeZZer, Кинул как бэ, а и код добавил в Button, или в другое место надо?

[SeeZZer]

В Button - пошло ?

[TruePoc]

SeeZZer, А всё разобрался, я добавлял код в Button, а надо было заменить. Спасибо

VeTaL_UA, а как именно работает ваш метод?

Добавлено через 1 час 42 минуты
При нажатии на CheckBox у меня стоит вот это:
AlphaBlend:=true;
AlphaBlendValue:=100;
Как мне сделать при отжатии вот это:
AlphaBlend:=false;
AlphaBlendValue:=255;