Hallo und ein frohes Neues,

warum geht folgendes nur auf XP Konten die Adminrechte haben?

auf NichtAdmin Konten kann das Programm NIEMALS beendet werden, da der Scheibzugriff verweigert wird. Die Daten sollten aber denoch gesichert werden können. Was kann man da machen?

Moderiert von Narses: Delphi-Tags hinzugefügt

Wo versuchst du denn die Txt zu speichern? Kann sein das es im Anwendungsordner klappt aber sicher bin ich mir nicht....

Weil nur Admins Schreibrechte im Programmpfad haben. Lege die Ini im Anwenderverzeichnis ab

Im Ordner, in dem die Anwendung liegt, darf ein Programm nix schreiben. Unter Vista auch mit Standardeinstellungen schon nicht.

Mehr dazu hier:
www.delphi-library.d....php?p=541636#541636

Bob Murphy hat folgendes geschrieben :

Wo versuchst du denn die Txt zu speichern? Kann sein das es im Anwendungsordner klappt aber sicher bin ich mir nicht....

Nein, nein, nein und nochmals nein. Niemals Daten im Anwendungsordner speichern. Bitte nie machen!
Dinge dieser Art sind dafür verantwortlich, dass Unmengen Software noch immer nicht unter eingeschränkten Benutzerkonten funktionieren.
Für Anwendungsdaten gibt es den Anwendungsdatenordner. Wo der liegt, kann man mit einer API-Funktion (bitte mit der Suchfunktion im Forum nachschauen) herauskriegen.

Die Frage ist: Welchen Inhalt hat der String myHome?

Timosch hat folgendes geschrieben :

Bob Murphy hat folgendes geschrieben : Wo versuchst du denn die Txt zu speichern? Kann sein das es im Anwendungsordner klappt aber sicher bin ich mir nicht.... Nein, nein, nein und nochmals nein. Niemals Daten im Anwendungsordner speichern. Bitte nie machen! Dinge dieser Art sind dafür verantwortlich, dass Unmengen Software noch immer nicht unter eingeschränkten Benutzerkonten funktionieren. Für Anwendungsdaten gibt es den Anwendungsdatenordner. Wo der liegt, kann man mit einer API-Funktion (bitte mit der Suchfunktion im Forum nachschauen) herauskriegen. Die Frage ist: Welchen Inhalt hat der String myHome?

Also für mich ist der Anwendungsordner der Anwendungsdatenordner wie du es so schön sagst.... aber war ja klar das sowas kommt nech;)

Den Anwendungsordner (der Ordner, in dem sich die Anwendung befindet) bekommt man mit ExtractFilePath(ParamStr(0)). Den Anwendungsdatenordner (der Ordner, der für Anwendungsdaten vorgesehen ist, beispielsweise "C:\Dokumente und Einstellungen\<Username>\Anwendungsdaten") hingegen mit z.B. SHGetFolder und CSIDL_APPDATA.

Warten wir doch einfach mal die Antwort auf die alles entscheidende Frage ab:

Timosch hat folgendes geschrieben :

Die Frage ist: Welchen Inhalt hat der String myHome?

Bob Murphy hat folgendes geschrieben :

Also für mich ist der Anwendungsordner der Anwendungsdatenordner wie du es so schön sagst.... aber war ja klar das sowas kommt nech;)

Sorry, dachte, dass du mit Anwendungsordner den Ordner, in dem das Programm selbst liegt, meinst.

jaenicke hat folgendes geschrieben :

Warten wir doch einfach mal die Antwort auf die alles entscheidende Frage ab: Timosch hat folgendes geschrieben : Die Frage ist: Welchen Inhalt hat der String myHome?

42

Hallo und vielen Dank für die Tipps.

myHome := ExtractFilePath(Application.ExeName);

Ich versuchte also die Datei in das "home" Verzeichnis der Anwendung zu schreiben.
Eure Ansage als Speicherort ein Verzeichnis in 'Eigene Dateien' zu wählen leuchtet mir ein.
Ich werde das ausprobieren. Falls es nicht klappt melde ich mich noch mal.

Vielen Dank.

Gizmo

Wieso denn Eigene Dateien? Les dir doch mal den Link von jaenicke durch...
Anwendungsdaten ist nicht das gleiche wie die Eigenen Dateien. Wenn Programme ungefragt Dateien in den Eigenen Dateien ablegen, ist das auch extrem nervig (vgl. manche Spiele...).

Einfach mal einen Blick auf die CSIDL_-Konstanten werfen (APPDATA für Anwendungsdaten, PERSONAL für Eigene Dateien usw.).

gizmo hat folgendes geschrieben :

Ich versuchte also die Datei in das "home" Verzeichnis der Anwendung zu schreiben. Eure Ansage als Speicherort ein Verzeichnis in 'Eigene Dateien' zu wählen leuchtet mir ein.

Wie Timosch schon sagte: Niemand hat von den Eigenen Dateien geredet.

In dem Link, den ich oben ja bereits gepostet hatte, steht u.a. warum das Verzeichnis, in dem dein Programm liegt, nicht geeignet ist:
www.delphi-library.d....php?p=541636#541636
Dort ist auch dieser Beitrag verlinkt (und der Quelltext verwendet), der dir hilft, diese Ordner zu finden, die auch DeddyH eben geschrieben hat:
www.delphi-library.de/viewtopic.php?t=9428

Alles fürn A. Ich versuchte mehrmals euren Beiträgen gerechte Antworten zu formulieren, aber immer wenn fertig - ich nicht mehr eingeloggt.
Danke für Funktionen und Hilfe. Nix versthen warum speichern von LEFT und TOP so ein Drama.
Jetzt schnell abschicken. Tschüss.

So, ich habe mir jetzt aus den Beiträgen von jaenicke eine einfache Lösung zusammengestrickt.
Dort erwähnte Dinge, wie Netzwerkprofile oder portable Anwendungen finden damit keine Berücksichtigung, aber für meine Zwecke reicht es.

Vielen Dank für die Hilfe!

const
AppDataRootDir = '\ICH';
AppDataProjectDir = '\PROGI';
CSIDL_LOCAL_APPDATA = $001C;


implementation

{$R *.dfm}

Uses
ActiveX, ShlObj;

//GetSpecialFolder-----------------------------------
Function GetSpecialFolder (aFolder: Integer): String;
var
pIdL: PItemIDList;
Path: Array [0..Max_Path] Of Char;
Allocator: IMalloc;
Begin
// ItemIdList für den Ordner holen
SHGetSpecialFolderLocation (0, aFolder, pIdL);
// ItemIdList in String umwandeln lassen
SHGetPathFromIDList (pIDL, Path);
// Speicher wieder freigeben
If Succeeded (SHGetMalloc (Allocator)) Then
Begin
Allocator.Free (pIdL);
{$IFDEF VER100}
Allocator.Release;
{$ENDIF}
End;
Result := Path;
End;

//SaveToAppDataDir------------------------
procedure SaveToAppDataDir(l:TStringlist);
var
UserAppDataDir: String;
begin
UserAppDataDir := GetSpecialFolder(CSIDL_LOCAL_APPDATA);
ForceDirectories(UserAppDataDir + AppDataRootDir + AppDataProjectDir);
l.SaveToFile(UserAppDataDir+AppDataRootDir+AppDataProjectDir+'\TEST.TXT');
//showMessage(UserAppDataDir+AppDataRootDir+AppDataProjectDir+'\TEST.TXT');
end;

//TEST.........................................
procedure TForm1.Button1Click(Sender: TObject);
var l:TStringlist;
begin
try
l:=TStringlist.Create;
l.Add('left='+IntToStr(Form1.Left));
l.Add('top='+IntToStr(Form1.top));
SaveToAppDataDir(l);
finally
l.Free;
end;
end;