resta un problema, se ho windows 10 che parametro inserisco?
Per il tuo problema, non ti interessa sapere la versione di windows. nel tuo caso dovresti fare così:
Percorso:='';
{$IFDEF MSWINDOWS}
Percorso:='C:\gestionecespiti';
{$ELSE}
{$IFDEF LINUX}
Percorso:='/home/gestionecespiti';
{$ENDIF}
{$ENDIF}
if (Percorso = '') then begin
ShowMessage('Sistema operativo non definito !!!');
end;
P.S. Per esperienza personale, ti conviene fare una funzione che riceve in input il percorso, e lo adatta in base al sistema operativo.
Ciao, Mario
Ho provato a fare cosi:
PercorsoSoftware:=Application.Location;
Percorso:=copy(PercorsoSoftware,1,length(PercorsoSoftware)-8)+'Azienda';
ciao
Aggiungo un dettaglio alla risposta di prima.
Se aggiungi una variabile e un costruttore alla form :
FPathGestioneCespiti: String;
Constructor Create(aOwner : TComponent); override;
....
Constructor TMiaForm.Create(aOwner : TComponent); override;
var
SL : TStringList;
begin
inherited Create(aOwner);
SL := TStringList.Create;
SL.LoadFromFile('file-di-consigurazione.txt');
FMiaGestioneCespiti := SL.Text;
SL.Free;
End;
Dall'inizio della vita dell'oggetto form, hai sempre a disposizione il valore che ti serve.
Quando scrivo un'applicazione da riga di comando estendo sempre la custom application e nel costruttore cerco di mettere i valori di default / fissi per poi usali nel resto dell'applicazione.Così come processo i parametri di input proprio nel costruttore. Se ci sono errori non parte nemmeno il RUN della classe.
E' solo una questione stilistica se vuoi. Non mi piace molto la gestione di default che il template mette a disposizione.
Stilgar