Fehler nur bei Autostart aus Registry

[Mazel]

Hallo,

ich habe ein mekrwürdiges Problem mit dem Autostart aus der Registry. Folgendes: in der Registry unter dem Schlüssel HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Run\ befindet sich ein Enitrag, der mein Programm aufrufen soll:

D:\XXX\XXX\XXX\XXX.exe /run Beim Start des Programmes sollen ein paar Dateien geladen werden die sich im Unterverzeichnis von dem Programmverzeichnis befinden:

Delphi-Quellcode:

If FileExists(ExtractFilePath(Application.ExeName) + 'Data\msn.mjd') then
  begin
   AssignFile(MSNFile, 'Data\msn.mjd');
   Reset(MSNFile);
   for i := 0 to FileSize(MSNFile) - 1 do
    begin
     .
     .
     .
    end;
   CloseFile(MSNFile);
  end
 Else ShowMessage('Fehler');

Das funktioniert aber leider nicht, es iwrd immer der Else-Zweig ausgeführt. Starte ich das Programm manuell, also nicht als Autostart, geht es wunderbar aber, und das verstehe ich nicht, wenn ich unter Ausführen, das selbe wie oben, D:\XXX\XXX\XXX\XXX.exe /run, eintrage und öffne geht es auch wunderbar. Also muss da doch ein Unterschied sein, den ich aber nicht verstehe. Ich hoffe mir kan jemand helfen.

Gruß
Mazel

[DGL-luke]

AssignFile(MSNFile, 'Data\msn.mjd'); Da fehlt doch was im vergleich zu

FileExists(ExtractFilePath(Application.ExeName) + 'Data\msn.mjd')

[Cyberbob]

Hallo,

versuch mal

Delphi-Quellcode:

If FileExists(ExtractFilePath(Application.ExeName) + 'Data\msn.mjd') then
  begin
   AssignFile(MSNFile, ExtractFilePath(Application.ExeName) + 'Data\msn.mjd');
   Reset(MSNFile);
   for i := 0 to FileSize(MSNFile) - 1 do
    begin
     .
     .
     .
    end;
   CloseFile(MSNFile);
  end
Else ShowMessage('Fehler');

[Mazel]

Nochwas:
Mir ist eben aufgefallen dass er nicht den Else-Zweig ausführt, dafür aber die Datei nicht liest aber es kommt kein Fehler.

Außerdem habe ich noch diese Funktion im Programm die mir auch immer wieder den Fehler gibt, dass die Dateien nicht gefunden werden können, alles aber nur beim Autostart aus der Registry:

Delphi-Quellcode:

procedure TMain.ApplicationEventsException(Sender: TObject; E: Exception);
begin
  Application.MessageBox(PChar('Folgender Fehler ist aufgetreten: '+ E.Message + '.' + #10 + 'Die Anwendung wird nun geschlossen. Bei erneuten auftreten des Fehlers wenden Sie sich bitte an den Autor Marcel Jänicke'), 'Fehler', 16);
  Close;
end;

[EDIT]
@Cyberbob: ich werde es gleich probieren
[/EDIT]

[EDIT2]
OK, ich habe es eben probiert, es geht. Kann mir einer erklären warum das beim Autostart änders ist alsb beim normalen Start?
[/EDIT2]

Gruß
Mazel

[Cyberbob]

Weil das Programm beim Autostart im Autostart-Ordner sucht. Beim Kompilieren sucht das Programm im Projektordner.

[Mazel]

Wo ist den der Autostart-Ordner?

[Cyberbob]

In deinem Startmenü, es sei denn, du hast es per Registry-Autostart geladen...

[Mazel]

ASO, im Startmenü schaut er nach, das wusste ich nicht.

OK danke

Gruß
Mazel