Krótkie nazwy DOS'owe

CZy ktos sie spotkał z algorytmem do zmiany długich nazwa na 8-literowe(takie jak w DOS) np&gt:zamienic \program files\ na progra~1

No zastanuwcie sie dobrze

zaspany

var
name : string;
begin
delete(name,7,length(name));
name := name+'~1';
showmessage(name);
end;

[cisza]
lolek

ZIOMBER napisał:
delete(name,7,length(name));
name := name+'~1';

To nie będzie zawsze działać.--Vogel [Delphi 6 PE]

Life is just a dream, you know...
[Cowboy Bebop]

Dephi Help!!!!!!!!!!!!!!!!

function ExtractShortPathName(const FileName: string): string;

Description

ExtractShortPathName converts the file name, FileName, to the short 8.3 form. ExtractShortPathName returns an empty string if the file or directory does not exist.

The first parameter, FileName, can be a full path name. For example, ExtractShortPathName would convert the full path name:

C:\Program Files\Borland\Delphi\Bin\Delphi32.exe

to the short form:

C:\Progra~1\Borland\Delphi\Bin\Delphi32.exe--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1