Lu JL ,
Biensur IOI.
Je fais déjà ça pour starter Sioc automatiquement et mettre les Var jour :
procedure TForm1.StartTimer(Sender: TObject);
begin
Start.Enabled := False;
CheminFic := '';
FicTrouve := False;
RechercheApplic('C:','sioc.exe');
if CheminFic = '' then
StaticText1.Caption := 'Sioc n''a pas été trouvé sur le disque C'
else
begin
StaticText1.Caption := 'Démarrage Sioc en cour';
if ShellExecute(0,Nil,PChar(CheminFic),nil,nil,Sw_ShowMinimized) <= 32 then //Erreur démarrage Sioc
StaticText1.Caption := (SysErrorMessage(GetLastError))
else
Connecter_Serveurs_Sioc();
end;
end;
Procedure TForm1.RechercheApplic(Schemin ,NomFic : String);
Var r : integer;
Sr : TSearchRec;
begin
r := FindFirst(SChemin + '\*.*' ,faAnyFile ,Sr);
While r = 0 do
begin
if Copy(Sr.Name ,1 ,1) <> '.' then
begin
if (Sr.Attr <> 0) And (FaDirectory <> 0) then
if LowerCase(Sr.Name) = NomFic then
begin
FicTrouve := True;
CheminFic := PChar(SChemin + '\' + Sr.name);
end;
if Not FicTrouve then
RechercheApplic(Schemin + '\' + Sr.Name ,NomFic)
else
FindClose(Sr);
end;
Application.ProcessMessages;
r := FindNext(Sr);
end;
FindClose(Sr);
end;
Ce que je veut c'est être dans le cockpit directement sans passer par un chargement d'un vol
++
JeanMi