Discussion :

[tintin62]

bonjour
je crais une autre discussion car a la fin je m'éloignais de intitulé
donc ma prochaine question est celle ci
si je veux que mon application puisse être lancé par une autre avec des paramètres
il faut dans le create du programme que je veux lancer puisse en tenir compte
comment
je sais que paramstr(0) est le nom du fichier
si Jai des form1.edit1.text:= ParamStr(1)
form1.edit2.text:= ParamStr(2)
ect..

et pour le programme qui le lance viens de récupérer sa

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
 
function Run(hnd: hWnd; Filename: string; Parameters: string): Boolean;
var
  sei: TShellExecuteInfo;
begin
  ZeroMemory(@sei, SizeOf(sei));
  sei.cbSize := SizeOf(TShellExecuteInfo);
  sei.Wnd    := hnd;
  sei.fMask  := SEE_MASK_FLAG_DDEWAIT;
  sei.lpFile := PChar(Filename);
  if Parameters <> '' then
    sei.lpParameters := PChar(Parameters);
  sei.nShow := SW_SHOWNORMAL;
  Result := ShellExecuteEx(@sei);
end;

hnd je dois mettre Self.Handle

la procédure Run teint t'il des privilège ou pas
pour le rendre invisible je dois modifier" sei.nShow := SW_SHOWNORMAL"
par SW_HIDE je ne sais pas si sa existe
et en plus des qu'il as écris le SVG qu'il se ferme automatiquement

merci de votre patience car la j'abuse avec toutes ces questions



merci

[papyvore]

Regardes si tu cherche quelque chose comme ça Launcher.zip
j'ai oublié ajoute

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 TForm14.FormShow(Sender: TObject);
var
  Gen: TJigsawGenerator;
begin
  if ParamCount <> 0 then
  begin
    Gen := TJigsawGenerator.Create;
    try
    // Exemple : puzzle 15 x 10, 300 x 200 mm, "modèle Johnny Hallyday"
      Gen.SaveSVGToFile(Edit1.Text, 1234, // Seed
      20.0, // TabSize (%)
      4.0, // Jitter (%)
      StrToInt(Edit2.Text), StrToInt(Edit3.Text), // XN, YN
      300, 200); // largeur/hauteur en mm
    finally
      Gen.Free;
      ShellExecute(0, 'open', PChar(Edit1.Text ), nil, nil, SW_SHOWNORMAL);
     // sleep(100);
      close;
    end;
  end;
end;

dans unit14

ou plutôt cette version Launcher2.zip