Discussion :

[Shredder]

salut

et bien je crois que ma question a été supprimée depuis la maintenance :S

donc je vais la reposter ici

oui donc en fait mon soucis était de créer un thread qui puisse rester ouvert après la fermeture de l'application, donc on m'a dis que je devais utiliser CreateProcess, et je me demandais donc si le process ne pouvait pas exécuter un bout de code qu'on lui spécifié, ou est-ce qu'il est obligé d'être sur l'ordinateur sous forme d'un executable ?

en si je cherche a faire cela, c'est pour permettre à l'application de s'auto-supprimer après sa fermeture, ou bien de la redémarrer. Peut-etre y a-t-il plus simple, je ne sais pas trop.

voila voila merci

[Cl@udius]

Pour info: contenu de la discussion originelle:

bonjour,

dans mon application j'essaie de créer un thread, mais qui reste actif même après la fermeture de l'application.

je ne sais pas du tout si cela est possible, car d'après ce que j'ai vu jusqu'ici les threads de l'application son automatiquement détruits quand on ferme la forme.

enfin je voudrais savoir si il existe néanmoins une solution

merci

Pourquoi ne pas créer un process indépendant via "fork"?
-W

Ce n'est pas possible avec un simple thread.

Sous Windows, il faut lancer un nouveau process avec CreateProcess :
http://msdn.microsoft.com/en-us/libr...25(VS.85).aspx

oui mais en créant un process, j'ouvrirais alors un executable déjà présent sur l'ordinateur, a moins que je puisse spécifier le code de ce process sans avoir a passer par un .exe.

non?

[ShaiLeTroll]

Beaucoup de chose sont possibles, créer un process à partir d'un bout de code, vu ce que j'ai vu sur l'écriture en mémoire d'un process par un autre, de l'injection code et autres, c'est surement possible, ... mais solution simple avant :

En gros ce code devrait t'inspirer
L'application se lance, cela cherche une nouvelle version, cela génère un BAT qui va faire ce qu'il faut, et le BAT à la fin s'auto-supprime (ce que je peux pas faire un EXE)

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
function GetLastVersion(): Boolean;
var
  DirMaj, ExeMaj: string;
  VersionLocale, VersionMaj: string;
  TmpIniFile: TIniFile;
  BatOp: TStringList;
  DosStr: array of Char;
  BatName: string;
begin
  Result := False;
 
  TmpIniFile:= TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    DirMaj := TmpIniFile.ReadString('PATH', 'MAJPATH', DEFAULT_MAJPATH);
    ExeMaj := IncludeTrailingPathDelimiter(DirMaj)+ExtractFileName(Application.ExeName);
  finally
     TmpIniFile.Free();
  end;
 
  if GetFileVersion(Application.ExeName, VersionLocale) and
     GetFileVersion(ExeMaj, VersionMaj) then
  begin
     Result := CompareVersion(VersionMaj, VersionLocale) > 0;
     if Result then
     begin
       BatOp := TStringList.Create();
       try
         //BatOp.Add('@ECHO OFF');
         BatOp.Add(':LoopRename');
         BatOp.Add(Format('RENAME "%s" "%s"', [Application.ExeName, ExtractFileName(ChangeFileExt(Application.ExeName, '.'+VersionLocale))]));
         BatOp.Add(Format('IF NOT EXIST "%s" GOTO LoopRename', [ChangeFileExt(Application.ExeName, '.'+VersionLocale)]));
         BatOp.Add(':LoopDelete');
         BatOp.Add(Format('DEL "%s"', [Application.ExeName]));
         BatOp.Add(Format('IF EXIST "%s" GOTO LoopDelete', [Application.ExeName]));
         BatOp.Add(':LoopCopy');
         BatOp.Add(Format('COPY "%s" "%s"', [ExeMaj, Application.ExeName]));
         BatOp.Add(Format('IF NOT EXIST "%s" GOTO LoopCopy', [Application.ExeName]));
         BatOp.Add(Format('"%s"', [Application.ExeName]));
         BatName := Format('%s\MAJArchive.bat', [ExtractFileDir(Application.ExeName)]);
         BatOp.Add(Format('DEL "%s"', [BatName]));
         SetLength(DosStr, Length(BatOp.Text)+1);
         if CharToOem(PChar(BatOp.Text), @DosStr[0]) then
           BatOp.Text := StrPas(@DosStr[0]);
         BatOp.SaveToFile(BatName);
         ShellExecute(0, 'open', PChar(BatName), nil, PChar(ExtractFileDir(Application.ExeName)), SW_HIDE);
       finally
         BatOp.Free();
       end;
     end;
  end;
end;

[Shredder]

oué ça semble assez simple et efficace, malheureusement assez limité au niveau des fonctions, mais ça devrait faire l'affaire

créer un process à partir d'un bout de code, vu ce que j'ai vu sur l'écriture en mémoire d'un process par un autre, de l'injection code et autres, c'est surement possible

je n'ai pas trouvé quelque chose de semblable, mais si tu pouvais me donner un lien ça m'interesserait