Nicht ExtractShortPathName

[Bjoerk]

Ich verwenden folgende function. Diese liefert unter XP jedoch den ExtractShortPathName zurück.

Delphi-Quellcode:

class function TUtils.GetTempDir: string;
begin
  SetLength(Result, MAX_PATH);
  GetTempPath(Length(Result), PChar(Result));
  SetLength(Result, StrLen(PChar(Result)));
  if (Result <> '') then
    Result := IncludeTrailingPathDelimiter(Result);
end;

Ich suche nach einer Möglichkeit, den "normalen" Pfadnamen zu erhalten?

[Bummi]

Da es bei mit nicht passiert, allgemein ...

Delphi-Quellcode:

var
dest:String;
begin
   SetLength(dest,MAX_PATH);
   GetLongPathName(Pchar(ExtractShortPathName('C:\Users\Bummi\Documents\Integration Services Script Component')),@Dest[1],LEngth(Dest));
   Showmessage(dest);
end;

[himitsu]

Wozu muß es denn unbedingt der Lange sein?
Den Kurzen kann man ja genau so gut verwenden.

Tipp: Du hast die Quellcodes, bzw. du kannst deinen Debugger nutzen, um nachzusehn was sich in ExtractShortPathName versteckt.

Und mit diesem GetShortPathName geht man nun zum MSDN und schaut sich an, was da verlinkt ist, womit sich als Umkehrfunktion GetLongPathName ergibt.



Als Tipp für die Anderen:
TPath.GetTempPath ... dort ist schon GetLongPathName fertig verbaut und dort ist ebenfalls der andere Code für Linux/Mac mit drin.

[Bjoerk]

Zitat von himitsu:

Wozu muß es denn unbedingt der Lange sein?
Den Kurzen kann man ja genau so gut verwenden.

Ok, dann mach ich wie gehabt mit "meinem Kurzen" weiter.

Ich muß jetzt los, bevor die Jungs vom Waldhof die Stadt stürmen (DSchlaaaaaaaaaaaaaand)

Gruß
Tho

[Luckie]

Na ja, man kann Windows sagen, dass es neben den langen Pfaden nicht noch zusätzlich die kurzen speichert. Mit den langen wäre man auf der Sicheren Seite.

[himitsu]

Wenn man den Kurzen bekommt, dann existiert der aber auch, denn irgendwo muß Windows den ja her haben, um ihn dir sagen zu können.

Auch wenn man es "standardmäßig" deaktiviert, ist es immernoch möglich und wird auch genutzt, wenn nötig.
z.B. die alte ANSI-APIs erstellen sowas, wenn der Dateiname nicht ins ANSI passt, sobald man sie benutzt.

[Luckie]

Das ist eben die Frage, was Windows zurückliefert, wenn man die kurzen Dateinamen deaktiviert haben. Und das hat nichts mit den Ansi-APIs zu tun.

[himitsu]

Sicher daß der Kurza nicht im Notfall erstellt wird?
Wäre doch irgendwie ein problematisch, wenn dann Dateien nicht mehr gefunden würden.

[Luckie]

Na ja, aber merken müsste ihn sich Windows ja wieder, damit es nicht versehentlich eine andere Datei den gleichen kurzen Namen gibt. Aber du hast es Windows ja verboten, den klurzen zu speichern.

[himitsu]

Hmm, ich hätte es eher so verstanden, daß es nur "standardmäßig" nicht immer sofort den Kurzen anlegt.
Daß er nicht angelegt und gespeichert würde wird, wenn er nötig ist ... davon steht nichts.
Das sollte doch wie die DateiIDs sein. Man kann ja irgendwie Dateien eine ID verpassen können, über welche man die Datei finden könnte ... optional, aber nicht immer nötig.

Auch bleiben ja alle kurzen Namen erhalten, welche dem Ausschalten dieser Funktion schon vorhanden waren, also wird es dennoch weiterhin unterstützt.
Da man Windows erst installieren muß, um es dann über die Registry zu deaktivieren, sollte der Temppfad da auch schon existieren.


[edit]
Wollte bissl damit Rumspielenpropieren, aber außer den Debugrechten braucht man wohl noch mehr.

Delphi-Quellcode:

function EnableProcessPrivilege(const Privilege: string; Enable: Boolean = True): Boolean;
var
  Token:     THandle;
  ReturnLen: LongWord;
  TokenPriv: TTokenPrivileges;
begin
  Result := False;
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, Token) then
    try
      TokenPriv.PrivilegeCount           := 1;
      TokenPriv.Privileges[0].Attributes := IfThen(Enable, SE_PRIVILEGE_ENABLED, 0);
      Result := LookupPrivilegeValue(nil, PChar(Privilege), TokenPriv.Privileges[0].Luid)
        and AdjustTokenPrivileges(Token, False, TokenPriv, SizeOf(TokenPriv), nil, ReturnLen);
    finally
      CloseHandle(Token);
    end;
end;

function EnableThreadPrivilege(const Privilege: string; Enable: Boolean = True): Boolean;
var
  Token:     THandle;
  ReturnLen: LongWord;
  TokenPriv: TTokenPrivileges;
begin
  Result := False;
  if OpenThreadToken(GetCurrentThread, TOKEN_ADJUST_PRIVILEGES, False, Token) or ((GetLastError = ERROR_NO_TOKEN)
      and OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, Token)) then
    try
      TokenPriv.PrivilegeCount           := 1;
      TokenPriv.Privileges[0].Attributes := IfThen(Enable, SE_PRIVILEGE_ENABLED, 0);
      Result := LookupPrivilegeValue(nil, PChar(Privilege), TokenPriv.Privileges[0].Luid)
        and AdjustTokenPrivileges(Token, False, TokenPriv, SizeOf(TokenPriv), nil, ReturnLen);
    finally
      CloseHandle(Token);
    end;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
  Testfile: String;
  Handle, FindHandle: THandle;
  FindData: TWIN32FindData;
  SetFileShortName: function(hFile: THandle; lpShortName: PChar): LongBool; stdcall;
begin
  SetFileShortName := GetProcAddress(GetModuleHandle('Kernel32.dll'), 'SetFileShortNameW');
  Testfile         := ExtractFilePath(ParamStr(0)) + 'abgfdsarv'#12345'.txt';

  //if not EnableProcessPrivilege('SeDebugPrivilege') then
  //  RaiseLastOSError;
  if not EnableProcessPrivilege('SeRestorePrivilege') then
    RaiseLastOSError;

  Handle := CreateFile(PChar(Testfile), GENERIC_ALL, FILE_SHARE_READ, nil, OPEN_ALWAYS, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if Handle = INVALID_HANDLE_VALUE then
    RaiseLastOSError;
  try
    FindHandle := FindFirstFile(PChar(Testfile), FindData);
    if FindHandle = INVALID_HANDLE_VALUE then
      RaiseLastOSError;
    Winapi.Windows.FindClose(FindHandle);
    OutputDebugString(PChar(String(FindData.cAlternateFileName)));

    if not SetFileShortName(Handle, 'abgfd~13.txt') then
      RaiseLastOSError;

    FindHandle := FindFirstFile(PChar(Testfile), FindData);
    if FindHandle = INVALID_HANDLE_VALUE then
      RaiseLastOSError;
    Winapi.Windows.FindClose(FindHandle);
    OutputDebugString(PChar(String(FindData.cAlternateFileName)));

    if not SetFileShortName(Handle, 'abgfds~1.txt') then
      RaiseLastOSError;

    FindHandle := FindFirstFile(PChar(Testfile), FindData);
    if FindHandle = INVALID_HANDLE_VALUE then
      RaiseLastOSError;
    Winapi.Windows.FindClose(FindHandle);
    OutputDebugString(PChar(String(FindData.cAlternateFileName)));

    if not SetFileShortName(Handle, nil) then
      RaiseLastOSError;

    FindHandle := FindFirstFile(PChar(Testfile), FindData);
    if FindHandle = INVALID_HANDLE_VALUE then
      RaiseLastOSError;
    Winapi.Windows.FindClose(FindHandle);
    OutputDebugString(PChar(String(FindData.cAlternateFileName)));
  finally
    CloseHandle(Handle);
    if not DeleteFile(PChar(Testfile)) then
      RaiseLastOSError;
  end;