Subj : [VP] Long filenames -> 8.3
To   : All
From : Oleg V. Kuzmin
Date : Sun Apr 08 2001 12:45 pm

�p¨¢¥âáâ¢yî ⥡ï, All!

I found the way to get short file name from SearchRec, generated by 
FindFirst/FindNext in VP. I'm proud of myself... ;)
Let's see the format of SearchRec (Win32):

SearcRec=record
 Handle  : Longint;
 Filler1 : Longint;
 Attr    : Byte;
 Time    : Longint;
 Size    : Longint;
 Name    : ShortString;
 Filler2 : Array[0..3] of Char;
 Filler3 : Array[0..321] of Char; {Win32 only!}
end;

Nothing interesting, except of Filler3. Why such a big array? I don't know, but 
the data between 308 and 319 elements or this array is short file name, if file 
has long name. Here is the working function to get shot file name:

function FindShort(Sr:SearchRec):String;
var
 i:Word;
 Tmp:String;
begin
 if Length(Sr.Name)>12 then
  begin
   Tmp:='';
   i:=308;
   While Sr.Filler3[i]<>#0 do
    begin
     Tmp:=Tmp+Sr.Filler3[i];
     Inc(i);
    end;
   FindShort:=Tmp;
  end
 else FindShort:=Sr.Name;
end;

C y¢ ¦¥­¨¥¬, Oleg V. Kuzmin.

ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[CoolNet]Ä
.... �yá᪨© � §¬¥p - �®ç¥¬y â ª â¨å®? Ÿ ¢ á ­¥ á«ëèy!!! (club line)
--- ‘â pë© ¨§¢p é¥­¥æ GoldED+/386 1.1.4.7
 * Origin: �®áá¨ï - áâp ­  ­¥¤®ªy¬¥­â¨p®¢ ­­ëå ¢®§¬®¦­®á⥩... (2:5030/2333.3)

.