AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Kurze Dateinamen anlegen

Ein Thema von xaromz · begonnen am 18. Apr 2007 · letzter Beitrag vom 24. Jan 2009
 
Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#16

Re: Kurze Dateinamen anlegen

  Alt 15. Jan 2009, 17:09
OK, weil Du mir bisher so nett geholfen hast, die XP-Maschine noch einmal angeworfen....

Nun, daß Umlaute in kurzen Dateinamen nichts zu suchen haben, hatte ich mit meiner nunmehr fast 20jährigen Computererfahrung auch längst bemerkt. Deshalb nehme ich zur Sicherheit die Ansi-Variante dieser Funktionen.

Also, Getlasterror liefert die leider kryptischen 1447 zurück. Werde ich wohl mal suchen, was das bedeuten könnte.

Inzwischen bin ich ein wenig schlauer geworden: Die Datei muß vorher geöffnet werden (ja, in solche Fallen tappt ein Laie, der nur gelegentlich programmiert), und zwar schreibt MS: "The file must be opened with either the GENERIC_ALL access right or GENERIC_WRITE|DELETE, and with the FILE_FLAG_BACKUP_SEMANTICS file attribute."

Mit dem letzten Dateiattribut kann ich allerdings nichts anfangen. Ich kenne es nicht (im Verlaufe der Programmierung hatte ich wohl alle "gängigen" Attribute kennengelernt). So sieht es zur Zeit aus:

Delphi-Quellcode:
var lokalhandle:THandle;

begin

lokalhandle:=FileOpen(Objektname,GENERIC_ALL {and File_Flag_Backup_Semantic});

SetFileShortNameA(Lokalhandle,cAlternateFileName)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz