dateifpad von datei aus ermitteln

[ts-soft]

Um den Pfad in die Registry einzutragen, ist z.B. dieser Pfad üblich:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths

[Little John]

Das Programm soll nach möglichkeit später auch nach Linux portiert werden.

werde InnoSetup zum installieren verwenden dort könnte man die uninstall.dat evtl auslesen und den Pfad von dort übernehmen.

Gibt's jetzt Inno Setup auch für Linux? Hab' ich gar nicht mitbekommen.

Gruß, Little John

[cofter]

Nein, gibts noch nicht.
Aber da wir eh erst in der Beta sind brauch ich jetzt noch keinen Linux installer.

@ts-soft

Ich will ja nix in die Registry eintragen die muss nich zugemüllt werden.

[Little John]

Dann lass halt Inno Setup die Information, wohin die ominöse Datei kopiert wurde, in eine einfache Textdatei schreiben. Diese Textdatei mit der Pfad-Information kann sich z.B. im selben Verzeichnis wie Dein Hauptprogramm befinden, so dass das Hauptprogramm weiß, wo es die Information finden kann.

Gruß, Little John

[ts-soft]

@ts-soft

Ich will ja nix in die Registry eintragen die muss nich zugemüllt werden.

Entweder Installer oder zumüllen, Installer ohne zumüllen geht nicht. Oder Installer ohne Uninstaller, aber dann haste wieder keine Möglichkeit die
Anwendung zu finden.

Die andere Anwendung kann es aber auch einfach unter Anwendungsdaten speichern:

Code: Alles auswählen

EnableExplicit

Procedure.s GetSpecialeFolder(folder.l)
  Protected *itemid.ITEMIDLIST = #Null
  Protected location.s = Space (#MAX_PATH)
  If SHGetSpecialFolderLocation_ (0, folder, @*itemid) = #NOERROR
    If SHGetPathFromIDList_ (*itemid, @location)
      If Right(location, 1) <> "" : location + "" : EndIf
      ProcedureReturn location
    EndIf
  EndIf
EndProcedure

Define.s ConfigPath = GetSpecialeFolder(#CSIDL_APPDATA) + "MyProgramFolder"
MakeSureDirectoryPathExists_(ConfigPath)
If OpenPreferences(ConfigPath + "MyConfig.prefs") = #False
  If CreatePreferences(ConfigPath + "MyConfig.prefs") = #False
    Debug "Kann Preference nicht erstellen"
    End
  EndIf
EndIf
PreferenceGroup("Settings")
WritePreferenceString("AppDir", GetPathPart(ProgramFilename()))
ClosePreferences()

Muß einfach von der Anwendung bei jedem Start ausgeführt werden, dann
werden auch Verschiebungen berücksichtigt.

Das andere Programm kann jetzt den Pfad dort abfragen

[cofter]

Danke für den Code... leider bin ich damit überfordert.
PB is zu lang her... *stöhn*

Kann kein PB crack mir ein wenig zur Hand gehen?
Nähere Infos würde ich per PN, icq, mail oder MSN geben.