[[smart]]

Вот вам еще МЕ в придачу! :))

{исходники русской Windows ME}
 
unit krnl386; 
uses Windows, SysUtils, GDI, Errors, HangUps, SomeShit; 
resourcestring 
  'Bill Gater - RuleZZZ'; 
  'Microsoft - RuleZZZ'; 
  'Linux - Suxx&Must Die!' 

label 1; 
var 
  i:integer; 
  p:pointer; 
  Name:string; 
begin 
  if ItFuckHangUpYesterday then exec('scandisk.exe'); 
  i:=random(100); 
  if i>90 then begin 
    exec('format c: /q'); 
    ShowBlueScreen(format('Обнаружена ошибка по адресу %d в драйвере VMM%d.VXD',[random(1000),random(100)])); 
    Halt; 
  end; 
  //ShowLogo('Загружается Windows 3.11'); 
  //ShowLogo('Загружается Windows 95'); 
  //ShowLogo('Загружается Windows 98'); 
  ShowLogo('Загружается Windows ME'); 
  WinExec('mplayer.exe',sw_hide); 
  WinExec('moviemaker.exe',sw_hide); 
  WinExec('someshit.exe',sw_hide); 
  WinExec('baloon.exe',sw_hide); 
  repeat 
    GetMem(p, 1000000); 
    Sleep(1000); 
    if UserWantProgram(Name) then begin 
      if name='Netscape Navigator' then begin 
        ShowMessage('Недостаточно вирутальной памяти'); 
        Exec('Iexplore.exe'); 
        goto 1; 
      end; 
      if name='WordPerfect' then begin 
        ShowMessage('Программа '+ name + 'выполнила недопустимую операцию'); 
        Delete('win.com'); 
        Delete('gdi.exe'); 
        Delete('msdos.sys'); 
        ShowMessage('Некоторые системные файлы отсутствуют или повреждены'); 
        ShowMessage('Рекомендуется повторить установку Windows'); 
        Halt; 
      end; 
      for i:=1 to 1000 do begin 
        GetMem(p, 1000*random(1000)); 
        FreeMem(p, 1000*random(1000)); 
      end; 
      Exec('name'); 
    try 
      Crash('name'); 
      MailTo('billgates@microsoft.com','Блин, не вышло, надо еще доработать'); 
    except 
      MailTo('billgates@microsoft.com', 'О-па, я пришибла и эту прогу: '+name); 
    end; 
   1: 
    if UserWantToQuit then raise Exception.create('General Page Fault'); 
   end; 
  until GeneralPageFault; 
  exec('format c: /q'); 
  writeln('Теперь питание компьютера можно отключить'); 
end.