Application compilée avec Delphi6Résolu

Question

Bonjour,

J'ai développé une application avec Delphi6. J'aimerais inclure dans le code exécuté au démarrage du programme, un test pour éviter que l'application soit lancée plusieurs fois. Dans une version antérieure de ce programme, développée avec BPW, j'utilisais le code suivant :

procedure TMyApplication.InitInstance;
VAR Version: LongInt;
    MajorRev, MinorRev:Byte;
    Okay: Boolean;
begin
  Version := GetVersion;
  MajorRev := LOBYTE(LOWORD(Version));
  MinorRev := HIBYTE(LOWORD(Version));
  if (MajorRev < 3) then Okay := false
                    else if (MajorRev = 3) then Okay := (MinorRev >= 1)
                                           else Okay := true;
  if Okay then
  begin
    if (HPrevInst = 0) then
    begin
      TApplication.InitInstance;
      HAccTable := LoadAccelerators(HInstance,PChar(id_Accelerators));
    end
    else Status := em_Multiple; { Instances mulptiples interdites }
  end
  else
    Status := em_BadVersion;
end;

Je ne trouve aucun équivalent en Delphi.
Quelqu'un pourrait-il m'aider à résoudre ce problème ? Merci d'avance pour toute aide qu'un spécialiste plus compétent que moi pourrait me donner.

cs_47 · Accepted Answer

Bonsoir,

un exemple est disponible sur le site www.phidels.com, dans le champs recherche, il faut taper mutex, l'exemple donné par Michel Bardou doit pouvoir répondre à ta question

bonne soirée

Ecaussinnes · Answer

Bonjour,

Un très grand merci pour ta réponse. La solution proposée marche impeccablement.

Félicitations pour votre service super rapide et qui répond réellement à la question posée. 

Passez une bonne journée.

botelec · Answer

Bonjour, 
Le programme fonctionne bien sous Seven sur les deux modes d'éjection.
Mat.

botelec · Answer

oups erreur de post, désolé de polluer votre sujet.

Application compilée avec Delphi6

4 réponses

Votre réponse

Discussions similaires