Hallo zusammen,

ich habe mal "spasseshalber" versucht, meine Applikation (ich habe Delphi 2007) unter Windows 7, Build 7100, zum Laufen zu bekommen - leider erfolglos.
Das Programm (Teile des Quelltextes hier) läuft kurz an, dann erfolgt seitens Windows die Meldung "Programm funktioniert nicht. Es wird nach einer Lösung gesucht", dann schliesst sich dieser Dialog wieder und das war es. Keine Fehlermeldung, kein nix. Da ich als Admin auf dem System angemeldet bin, kann es also auch keine Probleme mit Zugriffsrechten geben und auch der Kompatibilitätsmodus bringt keine Abhilfe. Nichts desto trotz läuft mein Programm sowohl unter W2K als auch unter Win XP und Vista (auf allen Systemen getestet).
Ich erstellte eine kl. Applikation mit einem Hauptformular und einem Label und das lief unter Win7.

Daraufhin begann die Ursachenforschung in meinem Programm, indem ich eine temporäre Textdatei erstelle/öffnete und an div. Stellen Eintragungen in diese Textdatei schrieb, um einfach mal zu sehen, wo das Programm aussteigt. So bin ich nun fündig geworden, doch ich habe keine Erklärung dafür, WARUM es an dieser Stelle aussteigt.
Alle meine Unterformulare haben ein gemeinsames Formular namens TBaseForm.

zusammenfalten · markieren

Delphi-Quellcode:

TBaseForm = class(TForm)
  private
    { Private-Deklarationen }
    FSideName : string;
    FPageIdx : integer;
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent; AWinControl: TWinControl;
                       ASideName: string; APageIDX: integer); reintroduce; overload;

    property PageIdx: integer read FPageIdx;
    property SideName: string read FSideName;
  end;

constructor TBaseForm.Create(AOwner: TComponent; AWinControl: TWinControl;
                         ASideName: string; APageIDX: integer);
{$ifdef DEBUG}
var FOut : System.Text;
    IOResult: integer;
{$endif}
begin
{$ifdef DEBUG}
{$I-}
  System.AssignFile(FOut, ExePath + 'appinit.txt');
  System.Append(Fout);
{$I+}
  IOResult:= System.IOResult;
  if (IOResult = 0) then
  begin
    System.Writeln(FOut, 'Step in Constructor BaseForm');
    if (AOwner = nil) or (not Assigned(AOwner)) then
      System.Writeln(FOut, 'AOwner is nil')
    else
      System.Writeln(FOut, 'Set AOwner');
    System.CloseFile(FOut);
  end;
{$endif}
  inherited Create(AOwner);

  Self.Parent:= AWinControl;
  FSideName:= ASideName;
  FPageIdx:= APageIdx;
end;

markieren

Delphi-Quellcode:

TMySubForm1 = class(TBaseForm)
(...)
// kein Constructor
end;

Wird TMySubForm1 erstellt, lande ich zwangsläufig im Constructor der BaseForm. Doch wenn hier der/die/das inherited Create aufgerufen wird, steigt mein Programm offensichtlich aus. Nun dachte ich, es könnte ja sein, dass der Owner NIL ist, daher erweiterte ich das ganz um einen try..except Block mit Debugausgabe in die Textdatei, doch der Except-Fall tritt nie ein.


Debugausgabe:

markieren

Delphi-Quellcode:

Step in Constructor BaseForm
Set AOwner

Frage: Hat jemand eine Idee, woran es liegen könnte und/oder hatte schon mal ein ähnl. Problem (unter Win7)?

Dank vorab und Gruß, Carsten

System.AssignFile(FOut, ExePath + 'appinit.txt');

ganz böse!

Niemals Logdateien oder INI Dateien in den Programmordner packen! Aber Vista hats du standardmäßig keine Adminrechte mehr (UAC), also kannst du nicht mehr in den Ordner C:\Programme schreiben.

Zitat von MagicAndre1981:

System.AssignFile(FOut, ExePath + 'appinit.txt');

ganz böse!

Niemals Logdateien oder INI Dateien in den Programmordner packen! Aber Vista hats du standardmäßig keine Adminrechte mehr (UAC), also kannst du nicht mehr in den Ordner C:\Programme schreiben.

Ich weiß, aber das ist 1. nur zu Testzwecken und 2. bin ich auf dem System Admin. In der Releaseversion schreibt mein Programm seine Daten nach
TempPath:= SysUtils.GetEnvironmentVariable('temp');

Zitat von Carsten1234:

Ich weiß, aber das ist 1. nur zu Testzwecken und 2. bin ich auf dem System Admin.

Auch wenn Du Admin bist, hast Du Probleme eine Datei in das Programmverzeichnis zuschrieben bei eingeschalteter UAC.

egal, mit aktivierter UAC wird immer der eingeschränkte Nutzertoken benutzt und du hast damit Standardbenutzerrechte.

Schreib die Logdatei immer in den Temp Ordner und poste mal was da drin steht.

Zitat von RWarnecke:

Zitat von Carsten1234:

Ich weiß, aber das ist 1. nur zu Testzwecken und 2. bin ich auf dem System Admin.

Auch wenn Du Admin bist, hast Du Probleme eine Datei in das Programmverzeichnis zuschrieben bei eingeschalteter UAC.

Ok, von mir aus auch das, aber das ist ja nicht Gegenstand des grundsätzlichen Problems da oben.
Hier wird (standardmässig) definitiv nix auf HDD geschrieben und in meiner DEBUG-Anweisung wird die 'appinit.txt' ja erzeugt.

Zitat von MagicAndre1981:

Schreib die Logdatei immer in den Temp Ordner und poste mal was da drin steht.

Habe ich ja schon da oben:

Step in Constructor BaseForm
Set AOwner

Als nächstes hätte noch stehe müssen:

Set parent
Set sidename
Step out Constructor BaseForm


Doch diese drei Einträge fehlen völlig, das Programm scheint sich also (offensichtlich) beim inherited Create(AOwner) zu verabschieden...

Unter WinXP oder Vista sieht es so aus (für jedes Unterformular):

Step in Constructor BaseForm
Set AOwner
Set parent
Set sidename
Step out Constructor BaseForm

Step in Constructor BaseForm
Set AOwner
Set parent
Set sidename
Step out Constructor BaseForm

Noch ein Nachtrag zum UAC:
Auf den Programmordner nebst Unterordner haben sowohl die Administratoren als auch die Benutzer der Maschine Vollzugriff (erhalten über Eigenschaften => Sicherheit).

OT: Oh oh ... drei Beiträge hintereinander und die Möglichkeit Beiträge zu editieren ist dir auch bekannt. Mach das lieber nicht:
http://www.delphipraxis.net/dpX_faq_...?faq=Q_27#Q_27

Zitat:

Auch wenn die Zeit drängt oder Du in einer Frage noch so gern weiterkommen würdest: Das "Pushen" von Beiträgen wird hier nicht gern gesehen. Das heißt, dass wir es nicht möchten, dass Du einen Nonsense-Beitrag schreibst, nur damit Deine Frage weiter oben in der Liste der aktuellen Themen rangiert. Sollten Dir neue Erkenntnisse gekommen sein, die Du zu Deiner Frage hinzufügen möchtest, dann kannst Du Deinen Beitrag innerhalb von 24 Stunden bearbeiten.

Erst nach Ablauf von 24 Stunden ist es Dir gestattet, mal nachzufragen, ob denn wirklich niemand eine Antwort weiß.

Kannst du das nicht mal versuchen zu kompilieren?

MfG
xZise