программы-приколы

[*PB*]

Сообщение от vasek123

Ерунда... У меня подобная програмка используется в качестве заставки, причем, 2 года.

Может вы не поняли, программа вызывает критическую ошибку винды и она валится в BSOD!
Это не эмуляция синего экрана смерти, а реально он, запустите и увидите!

[raxp]

Это не эмуляция синего экрана смерти, а реально он, запустите и увидите!

заинтересовался ...побежал пробовать

[NSvirus]

тоже в школе всякой .. страдал. Даже создал папку на компе: "не запускать никогда"
Так вот теперь боюсь запускать

Что в архиве:
1. Один запуск проги и ваш картинка при загрузке ОС меняется на какую-то хрень(уже не помню что именно);
2. Ставит рекламу в "свойства компьютера"
3. Куча Батников-террористов)
4. И прога-жрущая место на диске.
Что делает последняя- создает папку на диске. Копирует туда весь system32 в скрытом режиме. Потом ставит на папку аттрибуты: скрытый и системный. Потом во вновь созданной папке создает еще одну и т.д в цикле.
---все скрыто---

Короче, натерпелись школьные компы))

зы. была еще одна прога, которая в реестре писала путь к батнику, лежащему в системе. Тот прописывал shutdown -t 10. И при загрузке Винды есть токо 10 сек на решение))

[Alexandr555]

когда то написал, тупо и безобидно
2 таймера:
1 балуется сидромом
2 запускает ещё одну эту же программу ежесекундно и происходит нечто вроде такой пирамиды
_______'1
_______11
______1111
____11111111
1111111111111111
и т.д.
сидиром балуется, оперативка сжирается, тестировал всего раз у себя, когда все в конец подвисло перезагрузил пк

[pproger]

2raxp
да че там интересного, 99% даю, что старый баг в MessageBox юзается (ехешник не смотрел)

[*PB*]

Сообщение от pproger

99% даю, что старый баг в MessageBox юзается (ехешник не смотрел)

Неа, вот список функций, при выполнении которых винда падает.

  ZwSetInformationThread(ThreadHandle.l, ThreadInformationClass.l, *ThreadInformation, ThreadInformationLength.l) 
  ZwTerminateThread(ThreadHandle.l, ExitStatus.l)

MessageBox даже близко нет.

[Simply-Art]

Сообщение от Alexandr555

когда то написал, тупо и безобидно
2 таймера:
1 балуется сидромом
2 запускает ещё одну эту же программу ежесекундно и происходит нечто вроде такой пирамиды

Только у вас программа сильно большая выходит, а ведь надо не много, поправьте если я не прав, добавляем к коду который я писал выше пару строк и всё

uses MMSystem,Shellapi;
begin
while 0=0 do
 begin
  mciSendString('set cdaudio door open', nil, 0, 0);
  ShellExecute(0, nil,'ParamStr(0)', '','', 0);
 end;
end.

Прога весит те же 14 кг

[*PB*]

Сообщение от Simply-Art

Только у вас программа сильно большая выходит, а ведь надо не много, поправьте если я не прав, добавляем к коду который я писал выше пару строк и всё

uses MMSystem,Shellapi;
begin
while 0=0 do
 begin
  mciSendString('set cdaudio door open', nil, 0, 0);
  ShellExecute(0, nil,'ParamStr(0)', '','', 0);
 end;
end.

Прога весит те же 14 кг

А чего такой "жирный" EXEшник получился? Аж 14 кило!
Тут можно все сделать вложившись в 2 кило.

If InitAudioCD()     ; Инициализация библиотеки работы с CD/DVD дисководами.
  UseAudioCD(0)      ; Выбор дисковода с номером 0.
  Repeat
    EjectAudioCD(1)  ; Открыли дисковод.
    EjectAudioCD(0)  ; Закрыли дисковод.
  ForEver
Else
  MessageBox_(0, "Нету CD/DVD дисководов!", "Ай как не повезло", #MB_OK|#MB_ICONWARNING)
EndIf

Завершать прогу надо через диспетчер задач.

[Alexandr555]

ну я ж говорю все просто и тупо)

interface

uses
  Windows,  Forms, Controls, StdCtrls, Classes, ExtCtrls,mmSystem,ShellApi;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  IsOpen: boolean;


implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IsOpen = false then
 begin
   mciSendString('Set cdaudio door open wait', nil, 0, handle);
   IsOpen:=true;
 end
else
 begin
   mciSendString('Set cdaudio door closed wait', nil, 0, handle);
   IsOpen:=false;
 end;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
IsOpen := false;
Application.ShowMainForm:=false;
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
WinExec('explorer.exe', SW_SHOW);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
WinExec('explorer.exe', SW_SHOW);
end;

end.

вот листинг
ну и жирность меня тогда устраивала, или не умел с ней бороться

[Simply-Art]

Ну это понятно, кто как мог, тот так и баловался с приводом. Что нибудь еще веселое есть. Про пуск было, про окна тоже, даже место на винте убивали. Что нибудь новое есть?