Discussion :

[taze1]

bonjour

existe-il une fonction pour redemmarer une application ?

[Invité1]

bonsoir,

la redemarrer comment?

il existe un composant, lorsque on éteint l'ordinateur alors que l'application est en cours d'utilisation, elle se rouvre automatiquement lorsque l'on rallume le micro, ce composant s'appel ReRun

bone chance

[ero-sennin]

Salut,

Si c'est pour quitter l'application en cours et la relancer, je te propose une solution :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI;
 
type
  TForm1 = class(TForm)
    CloseAppli: TButton;
    RebootAppli: TButton;
    procedure FormCreate(Sender: TObject);
    procedure CloseAppliClick(Sender: TObject);
    procedure RebootAppliClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  redemarrerApplication:boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  redemarrerApplication:=false;
  // Application au premier plan
  Application.BringToFront;
end;
 
procedure TForm1.CloseAppliClick(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.RebootAppliClick(Sender: TObject);
begin
   redemarrerApplication:=true;
   Close;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Redémarre l'application
  if(redemarrerApplication) then
  begin
    ShellExecute(0,'OPEN',PChar(ParamStr(0)),nil,nil,SW_SHOWNORMAL);
  end;
end;
 
end.

N'oublies pas de mettre dans les uses ShellAPI ...
J'espère t'avoir aidé!
A+