Lancè un ecran de veille a chaque demarrage

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 197 fois - Téléchargée 35 fois

Contenu du snippet

Vous Pouvez Faire un mot de pass dans la propritè de votre ecran de veille et Puis vous aurez besoin de se pass quand vous demarrer votre ordinateur de nouveau c'est bete je pense

Source / Exemple :


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var start:TRegistry;
  begin
  start:=TRegistry.Create;
     start.RootKey := HKEY_CURRENT_USER;
     start.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
     start.WriteString('demarrage',ParamStr(0));  
     start.Destroy;
  end;   // Pour Mettre L'API au Demmarage 

Begin
SendMessage(application.handle, wm_syscommand, SC_SCREENSAVE, 0);
       // Pour Lancer L'ecran de Veille  
     

end.

Conclusion :


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var start:TRegistry;
begin
start:=TRegistry.Create;
start.RootKey := HKEY_CURRENT_USER;
start.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
start.WriteString('demarrage',ParamStr(0));
start.Destroy;
end; // Pour Mettre L'API au Demmarage

Begin
SendMessage(application.handle, wm_syscommand, SC_SCREENSAVE, 0);
// Pour Lancer L'ecran de Veille


end.
C'est bette mais il ya des Gens qui peux Butè pour ça :)
Vous Pouvez Faire TRop de truc a part Lancè un Ecran de Veille
Par exemple etindre un pc il sera un Virus qui etiend Un pc a Chaque demarrage :)
Je L'ai pas essayè mais je suis sur qu'il va marchè comme meme :)

C'est Tout :)

salut !

JaDo

To be Continued !

A voir également

Ajouter un commentaire

Commentaires

Messages postés
871
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
1
Pour ton "virus" qui éteind le PC au démarrage, il faudrait changer HKEY_CURRENT_USER en HKEY_LOCAL_MACHINE... Sinon rien de plus simple, s'il y a plusieurs sessions sur ce PC, de se connecter sur une qui n'est pas "infectée" et de retirer la clé...
Pour palier à ce problème, tu peux mettre ta clé dans "...CurrentVersionRunOnce". Le prog sera alors démarré au réel démarrage du PC, quand Windows demande le mot de passe...

Bonne continuation !
Messages postés
25
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 mai 2008

Oui jejecool Ta raison il ya Trop de Façon pour faire un ecran de veille en demarrage :)
Messages postés
2
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
8 août 2002

On peut faire plus simple en mettant un raccourci vers ton ecran de veille (.src) dans programmes->démarrage

...
Messages postés
2
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
8 août 2002

On peut faire plus simple en mettant un raccourci vers ton ecran de veille (.src) dans programmes->démarrage

...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.