Moderator: Moderatoren
)
kein Problem mit Schreibrechten (wird ja nix erzeugt, sondern geändert):!: Datei muss erzeugt werden 
Ok PACK macht ja "mehr" ... aber DBF Dateien haben ja auch nichts unter C:\Programme zu suchen ... die sind doch auf dem Server ...Cl*pper
Bei bestimmten Vorgängen, wie Sortieren und Indizieren, erstellt
CA-Clipper temporäre Dateien. Diese Dateien werden entweder im aktuellen
Verzeichnis oder in dem mit der Umgebungsvariablen TMP angegebenen
Verzeichnis abgelegt.
Hinweis: Bei früheren CA-Clipper-Versionen wurden temporäre Dateien
in das aktuelle DOS-Verzeichnis oder, sofern angegeben, in das
Verzeichnis abgelegt, das über SET DEFAULT angegeben war.
Xbase++
TMP=<Verzeichnis>
Im TMP Verzeichnis werden temporäre Dateien angelegt, z.B. wenn INDEX ON oder DbSort()
ausgeführt wird.
Nachdem ich mich damit auch längere Zeit auseinander gesetzt habe, sah ich es als einzigen praktikablen Ausweg, das alles über die Installationsroutine abzufangen. Da ich dafür Inno-Setup benutze läßt sich das relativ leicht machen.Jan hat geschrieben:Aber was mache ich, wenn der User das da wieder hinstellt (da ich dem User die Möglichkeit lasse, ein ihm gefälliges Verzeichnis zu wählen)?Jan
Code: Alles auswählen
; -- MeinTest.iss --
; copying all needed files and creating an icon.
[Setup]
PrivilegesRequired=admin
OutputBaseFilename=MeinTest_SETUP
VersionInfoVersion=1.00.11
VersionInfoCompany=PB-IT
LicenseFile=C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Setups\Test\license.txt
AppName=Test 1.00.11
AppVerName=Test 1.00.11
AppCopyright=Copyright © 2010 Ich
WizardImageFile=compiler:WizModernImage-IS.bmp
WizardSmallImageFile=compiler:WizModernSmallImage-IS.bmp
DefaultDirName={pf}\MeinTest
DefaultGroupName=MeinTest
UninstallDisplayIcon={app}\MeinTest
[Languages]
Name: "de"; MessagesFile: "compiler:Languages\German.isl"
[Dirs]
Name: {commonappdata}\{code:Pfad}; Permissions: everyone-full
[Files]
Source: "C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Setups\Test\Test.exe"; DestDir: "{app}"
Source: "C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Setups\Test\Test.exe.manifest"; DestDir: "{app}"
Source: "C:\Programme\alaska_19\runtime\DBFDBE.dll"; DestDir: "{app}"
Source: "C:\Programme\alaska_19\runtime\NTXDBE.dll"; DestDir: "{app}"
Source: "C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Setups\Test\file1.dbf"; DestDir: "{code:GetTargetDir}\Daten"
Source: "C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Setups\Test\file2.dbf"; DestDir: "{code:GetTargetDir}\Daten"
Source: "C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Setups\Test\ttipp.xpf"; DestDir: "{code:GetTargetDir}"
Source: "C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Setups\Test\Hilfe.chm"; DestDir: "{code:GetTargetDir}"
Source: "C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Setups\MSCOMCTL.OCX"; DestDir: "{sys}"; Flags: onlyifdoesntexist uninsneveruninstall sharedfile regserver
[Run]
Filename: "{app}\Test.EXE"; Description: "Test-Programm starten";Flags: postinstall nowait skipifsilent
[Code]
Function GetTargetDir (Param: String): String;
var
os: TWindowsVersion; // <-- "os" deklarieren
begin
// MsgBox(ExpandConstant('{commonappdata}') , mbInformation, MB_OK);
GetWindowsVersionEx(os);
// hier der Code, der ermittelt, wo installiert werden soll
if (os.Major > 5) and (ExpandConstant('{pf}') = ExtractFileDir(ExpandConstant('{app}'))) then
begin
Result := ExpandConstant('{commonappdata}')+'\'+ExtractFileName(ExpandConstant('{app}'))
end
else
Result:= ExpandConstant('{app}')
end;
function Pfad(StrTmp: String): String;
begin
StrTmp := WizardDirValue;
//MsgBox(StrTmp,mBInformation,MB_OK);
StrTmp := ExtractFileName(StrTmp);
//MsgBox(StrTmp,mBInformation,MB_OK);
Result := StrTmp;
end;
ich habe es nochmals getestet und bin erschrocken.Jan hat geschrieben:Wir reden natürlich NICHT über temporäre Dateien, erst Recht nicht in irgendwelchen Temp- oder sonstwie-Verzeichnissen
Der Virtualstore-Ordner wird soweit ich weiß automatisch angelegt, wenn etwas im \Programme-Ordner ohne Admin-Berechtigung geschrieben werden soll. Ich hatte diese Probleme erstmals bei der Erstellung von Index-Dateien. Die waren im VirtualStore-Ordner, und wurden dort natürlich vom Programm nicht gefunden. Wenn mehrere Benutzer mit dem Programm arbeiten wird es noch lustiger, denn dann hat jeder seinen eigenen VirtualStore-OrdnerAUGE_OHR hat geschrieben:c:\Users\Testi\AppData\Local\Virtualstore\Program Files\0\*.DBF zeigt mir AAA.DBF und(!!!) BBB.DBF
