Fonction ki execute tout et n'importe koi et attend sagement la fin

Question

J'ai trouver cette excelentissime fonction sur le web:

function LaunchNWaitEnd(sFile: string): boolean;
var
  cExe: array [0..255] of Char;
  sExe, Fichier: string;
  StartInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  pcFile: PChar;
begin
  Result:=True;
  FindExecutable(PChar(ExtractFileName(sFile)), PChar(ExtractFilePath(sFile)), cExe);
  sExe:= string(cExe);
  if Uppercase(ExtractFileName(sExe))<>Uppercase(ExtractFileName(sFile))
  then pcFile:=PChar(' "'+sFile+'"')
  else pcFile:=nil;
  ZeroMemory(@StartInfo, SizeOf(StartInfo));
  StartInfo.cb:= sizeof(StartInfo);
  if CreateProcess(PChar(sExe), pcFile, nil, nil, true, 0, nil, nil, StartInfo, ProcessInfo)
  then WaitForSingleObject(ProcessInfo.hProcess, INFINITE)
  else Result:= false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  Visible:= false;
  if not (LaunchNWaitEnd(OpenDialog1.FileName))
    then ShowMessage('erreur au lancement de l''application'
                     + Opendialog1.FileName);
  Visible:= true;
end;

Elle lance un exe ou un fichier (via l'exe associer) disparait et reaparait une fois l'exe fermer.

Le truc c'est ke j'aimerais kel lance mon applis en grand ecran mais ne comprenand pas grand chose a la fonction CreateProcess je sais pas ou fo mettre WS_MAXIMIZE??!

Merci de m'eclairer sur la question.

Babaille.

cs_Nono40 · Answer

Pour obtenir la fenêtre en grand écran il faut ajouter juste avant le CreateProcess :
StartInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartInfo.wShowWindow:=SW_SHOWMAXIMIZED;

Voili, ci tout.

--- Nono du Moulin ---

cs_Gysmo · Answer

Yahoo super cool merci!!!
Je comprend un peu mieu comment ca marche ce bitouniou maintenant.
C StartInfo ki envois les info a la fenetre car c un TStratupInfo...
Bref je verrai plus tard qd j'aurais plus d'experience pour comprendre exactement.

Merci beaucoup!

Babaille.

adjena · Answer

Cette fonction est très interessante mais quel uses faut-il faire pour avoir la fonction FindExecutable, car à chaque fois que je fais un test delphi me répond :
[Erreur] Unit1.pas(37): 
Identificateur non déclaré : 'FindExecutable'
Merci d'éclaire ma lanterne

Fonction ki execute tout et n'importe koi et attend sagement la fin

3 réponses

Votre réponse

Discussions similaires