Reopen issue 0035742
Original Reporter info from Mantis: SergeAnvarov @SergeAnvarov
-
Reporter name: Serge Anvarov
Original Reporter info from Mantis: SergeAnvarov @SergeAnvarov
- Reporter name: Serge Anvarov
Description:
FindExInfoBasic does not solve the issue 0035742. In this case Windows still searches for short names.
See related issue.
Steps to reproduce:
{$APPTYPE CONSOLE}
{$MODE OBJFPC}
{$LONGSTRINGS ON}
uses SysUtils;
procedure PrintFilesByMask(const InPath, Mask: string);
var
SR: TSearchRec;
begin
if FindFirst(IncludeTrailingPathDelimiter(InPath) + Mask, faAnyFile, SR) = 0 then
try
repeat
if (SR.Attr and faDirectory) = 0 then
Writeln(SR.Name, ' [', string(SR.FindData.cAlternateFileName), ']');
until FindNext(SR) <> 0;
finally
SysUtils.FindClose(SR);
end;
end;
begin
PrintFilesByMask('c:\Temp', '*.odt');
Readln;
end.
Result:
.-lock.c.odt# [-LOCKC~1.ODT]
a.odt []
b.odt []
c.odt []
Mantis conversion info:
- Mantis ID: 35773
- OS: Windows
- Version: 3.3.1
- Fixed in revision: 42326 (#2bebfeca)