Discussion :

[jeanmy]

Bonjour,

Pour éviter de lancer plusieurs fois mon application, en dephi 5 j'écrivais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Project1;
 
uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  WinSysUtils in 'WinSysUtils.pas';
 
{$R *.RES}
 
begin
 SetLastError(NO_ERROR);
  CreateMutex (nil, False, 'printer write V1.9');
  if GetLastError = ERROR_ALREADY_EXISTS then
    Exit;
  Application.Initialize;
  Application.Title := 'printer write V1.9';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 
end.

Mais Delphi7 ne connais pas SetLastError

Avez-vous un idée pour interdire a mon application d'être lancer plusieurs fois ?

[Cl@udius]

Salut

Mais Delphi7 ne connais pas SetLastError

Si si, SetLastError, GetLastError sont définis l'unité Windows
Ce qui m'étonne c'est qu'elle est dans tes uses.

Qu'est-ce qu'il y a dans l'unité WinSysUtils ? Quelque chose qui créé une "interférence" avec Windows.

@+

[jeanmy]

Salut

Qu'est-ce qu'il y a dans l'unité WinSysUtils ?

C'est une unité que je réaliser avec des fonctions divers "windows"

voici mes fonctions dans cette unité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function  RenvoiDossier(Identifiant : Integer) : String;
Procedure RenseigneSurWindows(Var Dossiers : Array Of WideString);
Procedure RelancerWINDOWS95;
Procedure ArreterWINDOWS95;
Procedure RelancerWINDOWS_NT;
Procedure ArreterWINDOWS_NT;
Procedure EcritRegistre(Racine : DWord;Clef, Nom, Valeur : String);
Procedure Associe(Extension : String;Executable : String; Icone : String);
Procedure RetireAssociation(Extension : String);
Function  LanceProcAtt(Nom : String) : Boolean;
Function  LanceProc(Nom : String) : Boolean;
Procedure CreFicLien(FicSource, FicRaccourci : String; WorkingDirectory:String);
Procedure EffaceLien(Chemin, NomRaccourci : String);
Function  DossierStartUp : String;
Procedure AutoRunRaccourci(FichierADemarrer : String);
Procedure AutoRunSuppression(FichierADemarrer : String);
Function  ScreenSaverActif : Boolean;
Procedure DesactiveScreenSaver;
Procedure ActiveScreenSaver;
Function  GetWindowsVersion : String;
Procedure QuelleResolutionEcran(Var L,H : Integer);
Function  ChangeResolutionEcran(L,H,B : Integer) : Boolean;
Function  ChangeLectureSeule(Nom : String;LectureSeule : Boolean) : Boolean;
Function  ChangeDateHeureFichier(Nom : String;DateHeure : TDateTime) : Boolean;
Function  RetourneDateHeureFichier(Nom : String) : TDateTime;
Function  FichierEstRepertoire(Nom : String) : Boolean;
Procedure BarreTacheVisible(Visible : Boolean);
Function  RepertoireVide(Chemin : String) : Boolean;
Procedure ListerTousRepertoires(Racine : String;Liste : TStringList);
Function  ListeContenuRepertoire(Nom : String) : Integer;
Function  LanceProcAttmaxi(Nom : String;dureMs : integer) : Integer;
Function LireRegistre(Racine : DWord;Clef, Nom :String):string;

[jeanmy]

je viens de trouver la solution

Il faut ajouter Windows dans USES

voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program Project1;
 
uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Ubd in 'Ubd.pas' {BD: TDataModule},
  Unit2 in 'Unit2.pas' {FProvider},
  Unit3 in 'Unit3.pas' {FTag},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {FTmachines},
  Unit6 in 'Unit6.pas' {FTin},
  Unit7 in 'Unit7.pas' {Form7},
  WinSysUtils in 'WinSysUtils.pas';
 
{$R *.res}
 
begin
  SetLastError(NO_ERROR);
  CreateMutex (nil, False, 'Export V3.0');
  if GetLastError = ERROR_ALREADY_EXISTS then
    Exit;
  Application.Initialize;
  Application.Title := 'Export V3.0';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TBD, BD);
  Application.Run;
end.