Kurze Dateinamen anlegen

[Delphi-Laie]

Also, Deine Geduld ehrt Dich, tausend Dank!

Und ohne ein solches Forum ist man natürlich chancenlos. Woher sollte ein Normalsterblicher überhaupt von der CreateFile-Funktion erfahren, die vom Namen her zum Editieren eines Namens einer schon existenten Datei offensichtlich nicht selbsterklärend genug ist?! Egal.

Jedoch bin ich nach wie vor erfolglos. Die m.E. wichtigsten Zeilen meiner Schreibprozedur (liest den editierbaren, zu ändernden kurzen Dateinamen aus Edit2 aus):

Delphi-Quellcode:

var Lokalhandle:THandle;

begin
Lokalhandle:=createFile(
PChar(Objektname),
GENERIC_All,
File_share_Write,
nil,
Open_Existing,
File_Attribute_Normal and File_Flag_BackUp_Semantics,
0);

SetFileShortNameA(Lokalhandle,PChar(Edit2.Text))

showmessage(inttostr(Getlasterror));

Natürlich habe ich schon einiges an Aufrufvarianten probiert.... Wie schon angedeutet, ich beiße mich nicht daran fest.