Titolo: Percorso dell'applicazione o della struttura
Categoria: Codice |
|
Ultimo Aggiornamento: 11/04/06 |
Questo metodo ritorna il percorso corrente dell'applicazione compilata con l'engine o della struttura sia su Mac che su PC
` Method: dammiPercorso
C_LONGINT($lun;$pos)
C_TEXT($0;$sep;$percorso)
$sep:=system folder≤length(system folder)≥
If ((Application type=
4D Runtime Volume License) & ($sep=":"))
$percorso:=Replace string(Application file;".app";"")
Else $percorso:=Structure file
End if$lun:=Length($percorso)
$pos:=$lun
Repeat $pos:=$pos-1
Until ($percorso?$pos?=$sep)
$0:=Substring($percorso;1;$pos)
Inviato da: Umberto Migliore |
|
Visite: 12046 |
Se accedi con utente e password, puoi aggiungere dei commenti.