Wer kann mal eben meinen Installer testen...

[nahpets]

Windows XP mit laufendem Delphi 7 und Adminrechten aus dem Zip gestartet.

Keine Probleme.

[Zacherl]

Grade gefunden:
http://qc.embarcadero.com/wc/qcmain.aspx?d=128952

Vielleicht auch sowas in der Art? Also ggfls. mal versuchen an der Include-Reihenfolge zu spielen.

[Mavarik]

Zitat:

Zitat von Zacherl (Beitrag 1360722)

Kurz davor wird auf "SOFTWARE\Embarcadero\BDS\18.0\Environment Variables" zugegriffen, also knallt es definitiv schon irgendwo in den internen Delphi Startup-Routinen.

Guter Hinweis

Nee, darauf greife ich zu...

Danach kommt eigentlich - abgesehen von ein paar Registrierungen sofort die Init Routine von TMS für die
Richedit Komponente... :evil:

Ich kann - wer es mag - mal eine Version mit logging hinlegen...

Mavarik

[Mavarik]

Zitat:

Zitat von Zacherl (Beitrag 1360731)

Grade gefunden:
http://qc.embarcadero.com/wc/qcmain.aspx?d=128952

Vielleicht auch sowas in der Art? Also ggfls. mal versuchen an der Include-Reihenfolge zu spielen.

Der QU trifft ja "nur" für das Programmende zu... Aber ich habe FMX.Forms mal an die 1. Stelle gesetzt...

[Zacherl]

Habe mal nachgeschaut, welches Konstrukt den problematischen Assembler-Code erzeugt. Hast du irgendwo in dem Bereich vom Registry-Access und der RichEdit Initialisierung eine Codestelle, die folgendermaßen auf einen String zugreift:

Delphi-Quellcode:

var
  S: String;
  Int: Integer;
begin
  while (S[Int] <> '\') do

Wobei das

Delphi-Quellcode:

while

theoretisch auch ein

Delphi-Quellcode:

if

sein könnte Vielleicht springt dir das '\' Zeichen ja ins Auge.

[TiGü]

Zitat:

Zitat von Mavarik (Beitrag 1360721)

Zitat:

Zitat von p80286 (Beitrag 1360716)

Auf einem W7(prof) bin ich ohne Fehler bis zu Registrierung gelangt.
(ohne Admin rechte!?)

Ist DirectX nicht automatisch installiert seit Windows 7?

Das ist bei mir definitiv, bei den anderen bestimmt auch.
Wahrscheinlich werden die bloß noch nicht geladen, weil vorher der Fehler zuschlägt.

Ich habe nochmal die Reihenfolge verglichen mit deinen geposteten Eventlog.
Laut Process Monitor komme ich bis zum Laden der GdiPlus.dll aus C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_65 95b64144ccf1df_1.1.14393.321_none_baab3cb4359688b4 \
Die nächste DLL sollte eigentlich SHELLHOOK.dll sein (siehe unteres Drittel in deinen Log), aber da taucht dann schon der Runtime Error auf.
Vielleicht hängt das irgendwie damit zusammen oder mit einer folgenden DLL?

[Mavarik]

Zitat:

Zitat von Zacherl (Beitrag 1360735)

Habe mal nachgeschaut, welches Konstrukt den problematischen Assembler-Code erzeugt. Hast du irgendwo in dem Bereich vom Registry-Access und der RichEdit Initialisierung eine Codestelle, die folgendermaßen auf einen String zugreift:

Delphi-Quellcode:

var
  S: String;
  Int: Integer;
begin
  while (S[Int] <> '\') do

Wobei das

Delphi-Quellcode:

while

theoretisch auch ein

Delphi-Quellcode:

if

sein könnte Vielleicht springt dir das '\' Zeichen ja ins Auge.

WOW DU BIST DER CODE DUKE!

Neue Version liegt bereit...

Vielen DANK!!!!:thumb:

[Zacherl]

Zitat:

Zitat von Mavarik (Beitrag 1360739)

Neue Version liegt bereit...

Vielen DANK!!!!:thumb:

Gerne :) Die neue Version startet jetzt auch auf meinem Main System ohne Fehler :thumb:

[TiGü]

Geht jetzt! :thumb:

Was war es letztendlich?

[Mavarik]

Zitat:

Zitat von TiGü (Beitrag 1360742)

Geht jetzt! :thumb:

Was war es letztendlich?

Frank zu doof...

Delphi-Quellcode:

  if TFDKRegistry.UserKey.Exists(TFDKRegistry.DelphiInstallKey(-1)+'\Environment Variables',Reg) 
    then begin
           Path2FDK := Reg.ReadOnly.ReadString('FDK');  
           
           if Path2FDK.Trim = '' then // OMG klar kann es sein, das es diese Key nicht gibt... 
             exit;
             
           I := High(Path2FDK);
  
           while Path2FDK[i] <> '\' do  // LOL....
             dec(i);
    
           Path2FDK := Copy(Path2FDK,1,i);
        end
...