Applikation läuft nicht unter Windows7

[Carsten1234]

Hallo zusammen,

ich habe mal "spasseshalber" versucht, meine Applikation (ich habe Delphi 2007) unter Windows 7, Build 7100, zum Laufen zu bekommen - leider erfolglos. :evil:
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. :gruebel:

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.

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;

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:

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

[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.

[Carsten1234]

Zitat:

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

Delphi-Quellcode:

TempPath:= SysUtils.GetEnvironmentVariable('temp');

[RWarnecke]

Zitat:

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.

[MagicAndre1981]

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.

[Carsten1234]

Zitat:

Zitat von RWarnecke

Zitat:

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.

[Carsten1234]

Zitat:

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

[Carsten1234]

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).

[hitzi]

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ß.

[xZise]

Kannst du das nicht mal versuchen zu kompilieren?

MfG
xZise

[Carsten1234]

Zitat:

Zitat von xZise

Kannst du das nicht mal versuchen zu kompilieren?

Könnte/Kann ich, aber was soll das bringen? EXE irgendwo hochladen?

[xZise]

Nein du könntest das debuggen und dann gucken, wie die Fehlermeldung lautet.

MfG
xZise

[Carsten1234]

Zitat:

Zitat von xZise

Nein du könntest das debuggen und dann gucken, wie die Fehlermeldung lautet.

Das wiederum setzt voraus, dass ich Delphi nebst div. Komponentensammlungen erstmal unter Win7 installieren müsste, denn ich entwickle unter Win XP mit SP3. Wird aber wohl kein Weg dran vorbei gehen, um dem Problem auf die Schliche zu kommen.
BTW: Mittlerweile konnte ich das Problem dahingehend einschränken, dass mein Programm unter Win7 läuft, wenn ich 7 bzw. 2 Unterformulare von insgesamt 24 Unterformularen nicht erzeugen lasse. 7 bzw. 2 deshalb, weil 6 Formulare denselben Typ haben und 6x erzeugt werden.
Jetzt suche ich schon seit geraumer Zeit nach Unterschieden zw. den funktionierenden und nicht funktionierenden Unterformularen, doch bis auf die auf den Unterformularen gesetzten Komponenten werden sie alle auf dieselbe Art&Weise erzeugt und haben auch alle denselben Vorfahren TBaseForm.
Inzwischen habe ich sogar schon sämtliche constructors rausgenommen und setze die benötigten Zusatzinfos über Properties, aber auch das brachte bisher nix. :wall:
Ich werde mir morgen ein kleines Programm machen, was nur die Formulare erzeugt, die unter Win7 Probleme machen in der Hoffnung, etwas weiter zu kommen. Für heute bin ich genervt genug und gehe gleich nach Hause.

[Bernhard Geyer]

Schon mal probiert mit Remote Debugger zu arbeiten bzw. mittels Jedi Stack-Ausgaben dir den Absturzstack aufschreiben zu lassen?

[Carsten1234]

Zitat:

Zitat von Bernhard Geyer

Schon mal probiert mit Remote Debugger zu arbeiten bzw. mittels Jedi Stack-Ausgaben dir den Absturzstack aufschreiben zu lassen?

Ich habe heute morgen den Verursacher ausgemacht: Es handelt sich dabei um eine zugekaufte Grid-Komponente.
So lange diese nicht auf dem Unterformular vorhanden ist, läuft alles auch unter Win7. Ist sie hingegen vorhanden, startet es nicht unter Win7. Ergo mal den Entwickler anschreiben im Laufe des Tages.

[Bernhard Geyer]

Zitat:

Zitat von Carsten1234

Ich habe heute morgen den Verursacher ausgemacht: Es handelt sich dabei um eine zugekaufte Grid-Komponente.

Glaskugel auspack: Ist die Grid-Komponente evtl. von TMS? Da gabs schon einen Beitrag und der Fehler ist auch beim Hersteller bekannt.

[Ralf Kaiser]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von Carsten1234

Ich habe heute morgen den Verursacher ausgemacht: Es handelt sich dabei um eine zugekaufte Grid-Komponente.

Glaskugel auspack: Ist die Grid-Komponente evtl. von TMS? Da gabs schon einen Beitrag und der Fehler ist auch beim Hersteller bekannt.

... und laut der Newsgruppe im gestrigen Update auch behoben (für Nutzer des ComponentPack dauert es noch ein wenig)

[Carsten1234]

Die Glaskugel will ich auch haben. :lol:
Wir haben das ComponentPack, doch ich bekam vor kurzem (vorab) vom Entwickler den Bugfix (zwei Dateien).
Nur musste ich ja erstmal drauf kommen, dass der Fehler bei der Komponente zu suchen war... :gruebel: