Problem mit ShellExecute

[trashcandesign]

Hi,

ich hab das ein kleines Problem mit ShellExecute:

Über die Funktion
ShellExecute(Handle, 'open', PAnsiChar(sProgramm), PAnsiChar(sDatei), PAnsiChar(sPfad), SW_SHOWNORMAL) möchte ich die Datei mit Acrobat, Word, Excel oder sonst was öffnen.
Das funktioniert auch ganz schön, aber sobal in der variablen sDatei, oder sPfad ein Leerzeichen vorkommt kann zb. Word die Datei nicht öffnen.

Wie kann ich die Strings maskieren, dass das funktioniert?

[Bernhard Geyer]

Anführungszeichen (") am Anfang und Ende ergänzen.

[trashcandesign]

Mit

ShellExecute(Handle, 'open', PAnsiChar(sProgramm), PAnsiChar(''''+sDatei+''''), PAnsiChar(''''+sPfad+''''), SW_SHOWNORMAL) hab ich das ganze auch schon versucht -> klappt nicht.

Excel zeigt mir wenigstens an, was er bekommt und auch mit den Anführungsstrichen will er mehrere Dateien öffnen. Sprich wenn ich eigentlich die Datei "A B.xls" öffnen will versucht Excel A.xls und B.xls zu öffnen.

[RavenIV]

Versuch es mal mit
...(QuotedString(sDatei))...

[bitsetter]

Hallo,

hast du es mal mit GetShortPathName versucht?

Delphi-Quellcode:

var
  ShortFileName: array [0..MAX_PATH + 1] of Char;
begin
  GetShortPathName(PChar('...'), ShortFileName, MAX_PATH + 1);

[trashcandesign]

Hi,

Mit QuotedStr hat es auch nicht funktioniert, Excel scheint immer zwei Dateien öffnen zu wollen.

Sorry, ich steh da aufm Schlauch, aber was soll mir GetShortPathName bringen?

[RavenIV]

Zitat von trashcandesign:

Sorry, ich steh da aufm Schlauch, aber was soll mir GetShortPathName bringen?

Damit bekommst Du den Dateinamen, wie er in "8+3"-Notation aussieht.

z.B. "Ein langer Dateiname.txt" => "EINLAN~1.TXT"
Dieser Name ist eindeutig und kann bestimmt auch von dem bescheuerten Excel geöffnet werden.

Mach einfach mal eine DOS-Konsole auf.
Gehe in das Verzeichnis mit der jeweiligen Datei. (cd <PFAD>)
Dann gibst Du ein "DIR /X".

[trashcandesign]

Ich hab das jetzt mal mit

GetShortPathName(PChar(Datei), ShortFileName, MAX_PATH + 1); versucht, aber ShortFileName gibt mir dann nichts zurück?!


Mit "dir /x" bekomm ich auch nur 'a b.xls' angezeigt.

[RavenIV]

Also bei mir sieht das so aus wie auf den Bildern.

[trashcandesign]

Autsch, hab in der falschen Spalte geschaut.
Sorry.


Werd ich auch gleich nochmal ausprobieren.

was ich jetzt noch versucht habe ist

ShellExecute(Handle, 'open', PAnisChar(Datei), Pchar(''), PAnsiChar(Datei), SW_SHOWNORMAL) das funktioniert soweit, aber ich möchte ja die Datei mit einem bestimmten Programm öffnen und nicht nur mit dem Windows-Standard-Programm für den Dateitypen.