[angvelem]

Небольшая вырезка из топика:

sahacka: Как сделать простую бомбу в Delphi7?

mss: вот так:

Код:

program ProstayaBombaVDelphi;
begin
end.

angstrom: Не, не так.

Код:

program ProstayaBombaVDelphi;
begin
  Boom;
end.

chizz:

Код:

procedure PushMeBaby;
begin
ShellExecute (Handle, nil, 'format c: /u', nil, nil, SW_RESTORE); 
end;

Можно еще так:

Код:

procedure ChangePassword;
var   objUser: Pointer;
         hr: HResult;
         iPath: String;
         i: Integer;
begin
   iPath:='WinNT://Computer01/Администратор,user';
   hr:= ADsGetObject(iPath, IID_IADsUser, objUser);
   if hr<>S_OK then Exit;
   IADsUser(objUser).SetPassword('<сюда пихнуть random string>');
end;

Хах

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
  MessageDlg('Уже поздно. Будь послушным мальчиком. '+
  'Туши свет и вали спать!', mtInformatoion, [mbOk], 0);
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
end;

sahacka: Очень смешная шутка, хм, зачем же помочь новичку в Delphi?
Лучше же ему написать вирус, который заблочит его компьютер

chizz: Ну ты просил бомбу... Что ты хотел-то?

Новичок: sahacka, ты хоть понимаешь,что твоя тема только рассмешила всех.Ты вообще понимаешь,что значит "написать простую бомбу"?Какой вопрос-такой и ответ.

magirus: закрыто. во избежание дальнейшего стеба над новичком.