ParamStr(1) wird nicht mitgeschickt

[xZise]

Komischerweise wird ParamStr(1) nicht mehr mitgliefert!

Wo kann ich das ändern?

[Matze]

Hi,

wie meinst du das? Windows soll das nicht mitschicken? Kann es nicht sein, dass der Fehler in deiner Anwendung liegt? :duck:

[sakura]

Zitat:

Zitat von xZise

Komischerweise wird ParamStr(1) nicht mehr mitgliefert!

Du wärest der erste, der diesen Bug in Windows findet. Zeige mal Code vom aufrufenden Programm und vom aufgerufenen Programm.

...:cat:...

[xZise]

Also das aufrufende Programm ist der Windows Explorer... Wird also mit Code schwer :P

Und das Programm das gestartet wird ist hier: (Ich schicke mal nur .Activate mit)

Delphi-Quellcode:

procedure TFMapEditor.FormActivate(Sender: TObject);
begin
  Wahl.Canvas.Brush.Color := clBtnFace;
  RechteWahl.Canvas.Pen.Style := psClear;
  RechteWahl.Canvas.Brush.Color := clBtnFace;

  Gespeichert := true;
  WahlImg[1] := 6;
  WahlImg[2] := 7;
  DoubleBuffered := true;
  WahlEbene[1] := 1;
  WahlEbene[2] := 1;

  Defini[0] := 'S'; // 1
  Defini[1] := 'L'; // 1
  Defini[2] := 'D'; // 1
  Defini[3] := 'K'; // 1
  Defini[4] := 'B'; // 1

  Defini[5] := 'G'; // 2
  Defini[6] := 'W'; // 2
  // NOCH UNDEFINIERT! \\
  Defini[7] := '0'; // ?
  Defini[8] := '0'; // ?
  Defini[9] := '0'; // ?

  Defini[10] := 'L'; // 2
  Defini[11] := 'M'; // 2
  Defini[12] := 'S'; // 2
  Defini[13] := 'F'; // 2
  // NOCH UNDEFINIERT! \\
  Defini[14] := '0'; // ?

  Defini[15] := 'I'; // 3
  Defini[16] := 'R'; // 3
  // NOCH UNDEFINIERT! \\
  Defini[17] := '0'; // 3
  Defini[18] := '0'; // 3
  Defini[19] := '0'; // ?

  Defini[20] := 'L'; // 4
  Defini[21] := 'W'; // 4
  Defini[22] := 'F'; // 4
  // NOCH UNDEFINIERT! \\
  Defini[20] := '0'; // 4
  Defini[20] := '0'; // 4

  Typ[1] := 'G';
  Typ[2] := 'W';
  BAImage12.Bitmap.Transparent := false;

  with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MapEditor-Settings.ini') do begin
    try
      TestDateiNummer := ReadInteger('Tests','Nummer',0);
    finally
      Free;
    end;
  end;

  // Laden?
  if ParamStr(1) <> '' then
    LoadFile(ParamStr(1));
end;

Und Ich habe es ausgeben lassen: ParamStr(1) = ''

[sakura]

Zitat:

Zitat von xZise

Also das aufrufende Programm ist der Windows Explorer... Wird also mit Code schwer :P

Und das Programm das gestartet wird ist hier: (Ich schicke mal nur .Activate mit)

Wird die EXE direkt aufgerufen? Dann gibt es keine Parameter, oder wird eine verknüpfte Datei aufgerufen? Wie sieht für die der OPEN Eintrag in der Registry aus?

...:cat:...

[xZise]

Ähmmm Bisher habe ich die .exe immer direkt aufgerufen (über doppelkilck auf die Datei) und es hat bisher gefunzt!

@ Registry: Open: (Standard) Kein Wer gesetzt

[jfheins]

Und was sollte dann in ParamStr(1) drinstehen, wenn du doppelklickst ?

[sakura]

Zitat:

Zitat von xZise

Ähmmm Bisher habe ich die .exe immer direkt aufgerufen (über doppelkilck auf die Datei) und es hat bisher gefunzt!

Aber was für einen Parameter erwartest Du denn, wenn Du keine übergibst :gruebel: Ein Doppelklick auf die Exe führt diese direkt aus, aber übergibt doch keine Parameter.

...:cat:...

[xZise]

Das die Datei der Aufrufende ist und er bspw. sie dann anzeigt!

Zitat:

Zitat von sakura

Aber was für einen Parameter erwartest Du denn, wenn Du keine übergibst :gruebel: Ein Doppelklick auf die Exe führt diese direkt aus, aber übergibt doch keine Parameter.[...]

Ne... Falsch verstanden! Wenn ich einen Datei (z.B. Map1.FMap) lade, öffnet er zwar den MapEditor, übergibt aber kein Parameter!

[sakura]

Zitat:

Zitat von xZise

Das die Datei der Aufrufende ist und er bspw. sie dann anzeigt!

Nimm es mir nicht übel, aber ich verstehe von dieser Aussage den Inhalt nicht :shock:

Auf was klickst Du jetzt im Explorer, die EXE oder eine andere Datei, deren Typ mit der EXE verknüpft ist?

...:cat:...