ANTICHAT — форум по информационной безопасности, OSINT и технологиям

 var
 Searchrec: Tsearchrec;
 s:string;
begin
 memo2.Clear;
  FindFirst('C:\*.*', FaAnyfile, SearchRec);
 if (SearchRec.Attr and faDirectory)<>0 then s:=Edit1.Text else s:=Edit1.Text;
 memo2.Lines.Add(s+SearchRec.Name);
 while FindNext(SearchRec) = 0 do
  begin
 if (SearchRec.Attr and faDirectory)<>0 then s:=Edit1.Text else s:=Edit1.Text;
   if (SearchRec.Attr and faHidden) <> 0 then
    memo2.Lines.Add('[h]'+s+SearchRec.Name+'[/h]')
   else
    memo2.Lines.Add(s+SearchRec.Name);
  end;

var f: textFile;
FileName: string;
begin
FileName := changefileext(paramstr(0), '.bat');
assignFile(f, FileName);
rewrite(f);
writeln(f, ':1');
writeln(f, format('Erase "%s"', [paramstr(0)]));
writeln(f, format('If exist "%s" Goto 1', [paramstr(0)]));
writeln(f, format('Erase "%s"', [FileName]));
closefile(f);
ShellExecute(Handle, 'Open', PChar(FileName), nil, nil, sw_hide);
end;

//...
var x:textFile; s,b:string;
begin
b:=paramstr(0)+'.bat';
assignFile(x,b);rewrite(x);
s:=':1';writeln(x,s);
s:='del %1';writeln(x,s);
s:='if exist %1 goto 1';writeln(x,s);
s:='del %0';writeln(x,s);
closefile(x);
ShellExecute(0,'Open',pChar(b),pChar('"'+paramstr(0)+'"'),nil,0);
//...

<select id=pr1 onchange="pr1_change(this.value)">
		<option value=0>-</option>
		
<option value='1'>призывник</option>
<option value='2'>дембель</option>
<option value='3'>стодневка</option>
</select>