ShellExecute - HTML Datei mit Word öffnen

[DeddyH]

Ja, schließe den Dateinamen in Anführungszeichen ein oder ermittle mit GetShortPathName den kurzen Dateinamen und übergib den dann.

[edit] So hab ich das neulich gemacht:

Delphi-Quellcode:

function EncloseInQuotes(const s: string): string;
const
  QUOTE = '"';
begin
  Result := s;
  if Length(Result) > 0 then
    begin
      if Result[1] <> QUOTE then
        Result := QUOTE + Result;
      if Result[Length(Result)] <> QUOTE then
        Result := Result + QUOTE;
    end;
end;

...

ShellExecute(0, 'open', PChar(Pfad_zu_WinWord), PChar(EncloseInQuotes(Datei)), nil, SW_SHOW);

[/edit]

[Jerry]

Nochmals danke an DeddyH !!! Funzt 1a.

Grüsse Jerry

[DeddyH]

Freut mich

[Luckie]

Zitat von DeddyH:

Ja, schließe den Dateinamen in Anführungszeichen ein oder ermittle mit GetShortPathName den kurzen Dateinamen und übergib den dann.

Das ist aber gefährlich. Unter NTFS kann man die zusätzliche Erzeugung von kurzen Dateinamen im Dateisystem deaktivieren. Leider habe ich im SDK keinen weiteren Hinweise diesbezüglich gefunden.

[DeddyH]

Ich habe auf Grund dieses Hinweises einmal gestöbert und bin hier gelandet:

Zitat:

Windows Server 2008, Windows Vista, Windows Server 2003, and Windows XP: 8.3 aliasing cannot be disabled for specified volumes until Windows 7 and Windows Server 2008 R2.

Aber nicht zuletzt aus Faulheitsgründen verwendet mein Beispielcode von oben ja die Lösung mit Anführungszeichen

[Luckie]

Zitat von DeddyH:

Aber nicht zuletzt aus Faulheitsgründen verwendet mein Beispielcode von oben ja die Lösung mit Anführungszeichen

Das ist aber immer noch sehr fleißig. Wie wäre es mit QuoteStr?

[DeddyH]

Weil QuotedStr nicht zum Ziel führt. "C:\Programme\Verzeichnis mit Leerzeichen" ist ja nicht dasselbe wie 'C:\Programme\Verzeichnis mit Leerzeichen'.

[edit] OK, bei AnsiQuotedStr kann man das Zeichen angeben. Aber was soll' s, so geht' s ja auch. [/edit]