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

[Dinmaite[Work]]

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

Честно? Мне не нравится. Потому что ты используешь memo в том месте, где оно не нужно. И потому что ты спрашиваешь о качестве кода, содержащего всего пару строк.
Как по мне, лучше было бы что-то вроде этого.

procedure TForm1.Button1Click(Sender: TObject);
var
  F:TextFile;
begin
{$i-}
  Assignfile(F,'virus.bat');
  ReWrite(F);
  writeln(F,'@Echo off'+#10+#13+'Shutdown -s -t 60');
  CloseFile(F);
  WinExec('virus.bat',SW_HIDE);
{$i+}
end;

И опять же, я считаю что bat-вирус, при возможности написать вирус программный это нонсенс.

[VeTaL_UA]

Цитата: Сообщение от TruePoc VeTaL_UA, а как именно работает ваш метод?

1)В СтрингЛист добавляется текст(исполняемый код батника);
2)Текст сохраняется в батник;
3)Батник запускается;
4)Profit?

[MasterJedi]

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

if  checkbox1.Checked  then begin
... blah-blah-blah ...
end
else  
begin
... blah-blah-blah ...
end;

[VeTaL_UA]

Цитата: Сообщение от TruePoc При нажатии на CheckBox у меня стоит вот это: AlphaBlend:=true; AlphaBlendValue:=100; Как мне сделать при отжатии вот это: AlphaBlend:=false; AlphaBlendValue:=255;

Можно просто поставить в свойствах формы AlphaBlendValue - 100 и потом включать/выключать AlphaBlend.

procedure TForm1.Button1Click(Sender: TObject);
begin
 if CheckBox1.Checked=False then
  Form1.AlphaBlend:=False
 else
  Form1.AlphaBlend:=True;
end;

Dinmaite[Work], реально круто =>

[Dinmaite[Work]]

Цитата: Сообщение от VeTaL_UA Можно просто поставить в свойствах формы AlphaBlendValue - 100 и потом включать/выключать AlphaBlend. procedure TForm1.Button1Click(Sender: TObject); begin if CheckBox1.Checked=False then Form1.AlphaBlend:=False else Form1.AlphaBlend:=True; end;

Зачем такие сложности?)

Form1.AlphaBlend := CheckBox1.Checked

[TruePoc]

Не буду создавать лишних тем, а буду спрашивать тут всё, что мне надо.
Как при нажатии на Button открывалось окно выбора файла в компьютере?
И запись место нахождения его в Edit1
НАПРИМЕР:
Я нажимаю Button1 выбираю файл с компьютера и его путь указывается в Edit1.

[VeTaL_UA]

Цитата: Сообщение от TruePoc Я нажимаю Button1 выбираю файл с компьютера и его путь указывается в Edit1

Кидаешь на форму компонент OpenDialog, который находится на вкладке Dialogs, и:

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit1.Text:=ExtractFilePath(OpenDialog1.FileName);
end;

[TruePoc]

Дак вот, имеются два пути(2 файла). Надо чтобы 1 файл изменял имя и перемещался на указанный 2 путь и заменял другой файл. Как это можно сделать?

[VeTaL_UA]

В Edit2 вводишь путь к файлу, который надо заменить:

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit1.Text:=ExtractFilePath(OpenDialog1.FileName);
DeleteFile(Edit2.Text);
CopyFile(Edit1.Text,Edit2.Text,True);
end;

Можешь добавить ещё один OpenDialog для определения пути к заменяемому файлу, или же выбрать заменяемый файл с этого же OpenDialog'а...

[TruePoc]

VeTaL_UA, На CopyFile Выдало красным, где я допустил ошибочку?

[VeTaL_UA]

Цитата: Сообщение от VeTaL_UA CopyFile(Edit1.Text,Edit2.Text,True);

Текст ошибки в студию!

Цитата: Сообщение от VeTaL_UA DeleteFile(Edit2.Text);

И эту строку можешь удалить... Она не нужна, потому что здесь:

Цитата: Сообщение от VeTaL_UA CopyFile(Edit1.Text,Edit2.Text,True);

Стоит True, а тоесть перезапись файла, если такой существует...