Ich würde gerne mitzählen, wie oft Form1 geöffnet wurde!

[BullsEye]

Oder du machst ne Variable, speicherst die in ner INI FIle und bei jedem Mal wo das Formular aufgerufen wird, wird diese hochgezählt. Beim beenden speicherst du die Variable denn.

[Micha88]

Was hast du denn da vor?

Ich würde es so machen:
- Form 1 öffnen
- Integerwert in INI-File speichern
- Beim wiederöffnen, INI-Wert lesen, um eins erhöhen usw


Das sähe so aus

Delphi-Quellcode:

uses
 {...,} IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var
 ini: TiniFile;
 iCount: Integer;
begin
 try
  ini := TIniFile.Create('C:\count.ini');
  iCount := ini.ReadInteger('Openings', 'Counts', 1);
  iCount := iCount + 1;
  ini.WriteInteger('Openings', 'Counts', iCount);
 finally
  ini.Free;
 end;
end;

[BullsEye]

Zitat von MichaelLinden:

Was hast du denn da vor?

Ich würde es so machen:
- Form 1 öffnen
- Integerwert in INI-File speichern
- Beim wiederöffnen, INI-Wert lesen, um eins erhöhen usw

Genau so meinte ich das ja auch, nur halt ohne Code^^

Hier ne kleine Verbesserung deines Codes weil es sonst unter Vista ggf zu komplikationen kommen kann und es auch nie gut ist was auf C oder sonstwelche Verzeichnisse zu speichern!

Delphi-Quellcode:

uses
 {...,} IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var
 ini: TiniFile;
 iCount: Integer;
begin
 try
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'count.ini');
  iCount := ini.ReadInteger('Openings', 'Counts', 1);
  iCount := iCount + 1;
  ini.WriteInteger('Openings', 'Counts', iCount);
 finally
  ini.Free;
 end;
end;

[Micha88]

Das mit "C" war nur so dahin geklatscht

Natürlich schreibe ich selbst IMMER ExtractFilePath(Application.ExeName) oder ExtractFilePath(ParamStr(0))

[BUG]

Zitat von MichaelLinden:

Das mit "C" war nur so dahin geklatscht

Natürlich schreibe ich selbst IMMER ExtractFilePath(Application.ExeName) oder ExtractFilePath(ParamStr(0))

Sehr gut, besonders wenn dein Programm im Programmverzeichnis liegt, wo der normale Benutzer keine Schreibrechte hat.
Dann sperrt man die ganzen Nicht-Administrator-Loser nämlich aus ( ).

MfG,
Bug

[Micha88]

Hä? Verstehe ich grad nicht ..

Ich habs noch nie ausprobiert (werde ich gleich machen).

Was passiert denn, wenn ein Nicht-Admin-Looser versucht in dieses Verzeichnis zu schreiben?

[mkinzler]

Er bekommt eine Exception um die Ohren geschlagen.

[Micha88]

Mhhh... wie kann man sowas denn umgehen?
Ich meine, dass das Setup vorher schon weis, dass es nicht in "Programme" schreiben kann/darf?

[mkinzler]

Gleich in eine Verzeichnis mit Benutzerschreibrechten schreiben. Z.B. im Benutzerprofil

[Micha88]

Für meinen Installer habe ich folgende Lösung gefunden:

Ich überprüfe via
if ForceDirectories(InstallVerz) then ..
ob das Verzeichnis beschreibbar ist oder nicht.