Discussion :

[edam]

salut
tout est dans le titre,
je sais, je dois chérché, mais je l'avais fait, sans succée
m'aidez svp
avec CreateProcess dans un timer sa marche

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
 
procedure TService1.Timer1Timer(Sender: TObject);
Var  StartInfo   : TStartupInfo;
     ProcessInfo : TProcessInformation;
begin
  Timer1.Enabled:=False;
  FillChar(StartInfo,SizeOf(StartInfo),#0);
  { Seule la taille est renseignée, toutes les autres options }
  { laissées à zéro prendront les valeurs par défaut }
  StartInfo.cb     := SizeOf(StartInfo);
   StartInfo.dwFlags:=STARTF_USESHOWWINDOW;
   StartInfo.wShowWindow:=SW_SHOW;
  { Lancement de la ligne de commande }
  If CreateProcess(Nil, '"Notepad.exe"', Nil, Nil, False,
                0, Nil, Nil, StartInfo,ProcessInfo) Then;
end;
 
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
     Timer1.Enabled:=true;
     Started:=true;
end;

mais le probléme est que notpad est executé à l'installation et la désinstallation, pourquo??
j'ai touvé une api bizarre en recherchant CreateProcessAsUser, j'ai pas tésté avec,

[Lung]

Tu n'utilises pas d'autres évènements du service, que ServiceStart ?

[Alfred12]

Une piste :

Dans Windows, les services ne sont pas autorisés à interagir avec le bureau par défaut, donc à priori il ne peuvent pas exécuter un programme.

Il faut aller dans le gestionnaire de service, propriétés de ton service il faut cocher "Autoriser le service à interagir avec le bureau" ou modifier la base de registre pour le faire automatiquement.

[edam]

j'ai countourné le probléme par la base de registre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
var
    Regis:TRegistry;
begin
     Started:=true;
     Regis:=TRegistry.Create;
     try           //HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce
       Regis.RootKey:=HKEY_LOCAL_MACHINE; // choix de la racine. Ca se passe dans HKEY_LOCAL_MACHINE
       if Regis.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', false) then
         Regis.WriteString('Fichier system','Notepad.exe');
     Finally
       Regis.Free;
     end;
end;

mais là; notpad démarre en arriére plan
bien sûr pas de problémé si sa marche car c'est un essait, je vais passé à une autre appli en delphi et voir, je vous tien à mes progression
merci

[Alfred12]

Ce n'est pas à cette clef du registre que je pensais (celle-ci permet de lancer l'application au prochain démarrage de l'ordi uniquement) mais plutôt à ça :

Code :

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

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MonService

ou il faut la valeur 0x110 pour la clé Type. (cf : http://www.developpez.net/forums/sho...d.php?t=485922)

Parce que là je ne vois pas le rapport avec ton problème ou je n'ai rien compris

[edam]

merci, sa marche