ParamStr ParamStr(0), Bildschirmschoner und lange Dateinamen

[Delphi-Laie]

Zitat von Luckie:

Sind Leerzeichen im Pfad? Und wenn ja, was passiert, wenn du ihn in Anführungszeichen setzt?

Leerzeichen nicht, auch nicht im Dateinamen. Allerdings lautet das Verzeichnis C:\Winnt.0, ob das schon zuviel ist? Was Du mit Anführungszeichen meinst, weiß ich nicht, ich arbeite ja mit Paramstr(0) und nicht mit in Anführungszeichen gesetzten Strings, die man an Stringvariablen übergibt.

Leerzeichen wäre(n) auch kein Argument dagegen, denn lange Dateinamen erlauben ja auch Leerzeichen in den Verzeichnis-/Dateinamen (was ja im weiteren Sinne dasselbe ist), auch mehrere Punkte usw. Die Konvention wird doch damit nicht verletzt (alles andere ließe Windows ja auch nicht zu). Wenn langnamentauglich, dann richtig oder eben gar nicht.

Ist doch jetzt auch nicht mehr wichtig. Paramstr(0) lieferte nur den kurzen Dateinamen zurück, warum auch immer, aber mit der Funktion in der verlinkten Diskussion ließ sich dieses (Fehl-?)Verhalten heilen.

Edit: Die Verliebtheit des ParamStr mit kurzen Dateinamen scheint auch andere vor Probleme gestellt zu haben, s. hier (dort wird allerdings ParamStr(1) verwendet, n.m.W. der Abruf des ersten Übergabeparameters).

[Popov]

Also lange oder kurze Dateinamen, das interessiert die Ini nicht. Ob du dem Ident als Wert einen langen Dateinamen oder ein Banane zuweist, ist ihm egal, solange die Zeile unter 1024 Zeichen bleibt. Auch interessieren ihn keine Leerzeichen. Das einzige ist, dass Anführungszeichen beim auslesen entfernt werden.

Zitat:

Paramstr(0) lieferte nur den kurzen Dateinamen zurück

Bei mir nicht.

Wenn du Lust hast, ich habe hier paar Units, z. B. EasyIniAppExe speichert alles in der Ini am Programm, wechselt man die Ini aus, wird alles in der Reg gespeichert, usw.

[Delphi-Laie]

Zitat von Popov:

Also lange oder kurze Dateinamen, das interessiert die Ini nicht. Ob du dem Ident als Wert einen langen Dateinamen oder ein Banane zuweist, ist ihm egal, solange die Zeile unter 1024 Zeichen bleibt. Auch interessieren ihn keine Leerzeichen. Das einzige ist, dass Anführungszeichen beim auslesen entfernt werden.

Zitat:

Paramstr(0) lieferte nur den kurzen Dateinamen zurück

Bei mir nicht.

Bei mir leider schon. Ich reduzierte das Problem auf das Minimale. Leg den beigelegten Bildschirmschoner bitte mal in ein relevantes Verzeichnis und starte ihn über das Fenster "Eigenschaften von Anzeige". Er gibt den Paramstr(0)-Dateinamen zurück, einmal vor, einmal nach Application.Run. In jedem Falle bei mir mit den heißgeliebten Tilden.

Danke, den Rest schaue ich mir an, wenn der Tag wieder heller ist.

[Luckie]

Was ist ein relevantes Verzeichnis?

[himitsu]

Besitzt du die Quellcodes deines Delphis?

Wie sieht der Code von ParamStr aus?

[Delphi-Laie]

Mit "relevantem Verzeichnis" meinte ich eines für die Bildschirmschoner, also Windows (wie immer es auch benannt ist, früher gab es da ja noch Wahlfreiheit) oder sein Unterverzeichnis "System32". Die beiden kenne ich dafür. Also: Ein für die Bildschirmschoner relevantes Verzeichnis.

Bei mir liefert ParamStr(0), wenn (m)ein Bildschirmschonerprogramm aufgerufen wird, eben nur den kurzen Dateinamen (angehängtes Bild), der Grund liegt weiterhin im dunkeln. An einer fehlenden Path-Variable auf diese Verzeichnisse liegt es auch nicht. Hat jemand eine Idee? Falls nein, GetLongPahtName (bzw. dessen Kapselung) sind in der Lage, ParamStr(0)s Teilversagen auszugleichen.

Es muß jetzt mal heraus: Ich möchte nur mal ein größeres Programmierprojekt erleben, bei dem man nicht mit solchen unverhergesehenen Problemen, Widrigkeiten, ja Lästigkeiten zu kämpfen hat. Gibt es wahrscheinlich nicht, liegt wohl im Wesen der Programmiererei. Wenn ich so etwas beruflich täte, liefe ich Gefahr, irgendwann vor Frustration bis Wut einen Rappel zu bekommen.

Moderation: Soll ich den Titel dieser Diskussion umbenennen, z.B. in der Art: "ParamStr(0) liefert nur kurzen Dateinamen"?

himitsu: Habe ich, liegt in der System.pas, sieht so:

Delphi-Quellcode:

function ParamStr(Index: Integer): string;
var
  P: PChar;
  Buffer: array[0..260] of Char;
begin
  if Index = 0 then
    SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)))
  else
  begin
    P := GetCommandLine;
    while True do
    begin
      P := GetParamStr(P, Result);
      if (Index = 0) or (Result = '') then Break;
      Dec(Index);
    end;
  end;
end;

und scheint sich zumindest bis Delphi-Version 4 auch nicht zu verändern.

[Popov]

Jetzt mal nur eine dumme Frage, was ist an dem kurzen Pfad falsch, wieso stört es?

[himitsu]

Schade, dann scheint das ein Problem bei GetModuleFileName in dem alten Windows zu sein.
Hätte ja sein können, daß es bei dir noch nicht verbaut wurde.

Der erste Wert (0. Parameter) von GetCommandLine ist nämlich noch schlimmer, da er genau dem Entspricht, wie der Aufruf passierte.
z.B. über die Konsole oder via ShellExecute mit relativem Pfad aufgerufen "meinprogramm" (ohne .exe), dann steht genau das "meinprogramm" darin.

ExpandFileName oder GetFullPathName

[edit]
Wenn du es benutzt, um z.B. auf eine INI zuzugreifen ChangeFileExt(ParamStr(0), '.ini') , dann gibt es ein Problem, wenn es die INI noch nicht gibt und sie erstellt werden soll.
(OK, wobei es eh keine gute Idee ist, die INI nach C:\Windows oder ins Programmeverzeichnis legen zu wollen )

Außerdem ist der Kurzname der gleichnamigen INI nicht unbedingt identisch mit dem Kurznamen der EXE, selbst wenn die langen Namen übereinstimmen.

[Popov]

Zitat von Delphi-Laie:

Leg den beigelegten Bildschirmschoner bitte mal in ein relevantes Verzeichnis und starte ihn über ...

Hab ich, beide lang.

[Luckie]

Zitat von Delphi-Laie:

Leerzeichen nicht, auch nicht im Dateinamen. Allerdings lautet das Verzeichnis C:\Winnt.0, ob das schon zuviel ist? Was Du mit Anführungszeichen meinst, weiß ich nicht, ich arbeite ja mit Paramstr(0) und nicht mit in Anführungszeichen gesetzten Strings, die man an Stringvariablen übergibt.

meine.exe C:\Dies ist ein langer Pfad mit Leerzeichen\meine.ini Das sind für ParamStr 7 Parameter.
meine.exe "C:\Dies ist ein langer Pfad mit Leerzeichen\meine.ini" Das sind für ParamStr ein Parameter.