checksum-toolsalarmingautosfxaysaliacalllibcolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/Windows/LongFilenameOperations.pas @ 1

  → /trunk/Windows/LongFilenameOperations.pas @ 2

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 1 → Rev 2

/trunk/Windows/LongFilenameOperations.pas
0,0 → 1,84
unit LongFilenameOperations;
interface
// These procedures should replace the Delphi internal AssignFile(), Reset(), etc.
// functions. These functions should be able to support long file names
// by using the WinAPI (the "long filename" mode is switched when the file
// name format \\?\ is used).
procedure MyAssignFile(var hFile: THandle; filename: string);
procedure MyReset(hFile: THandle);
procedure MyReadLn(hFile: THandle; var s: string);
procedure MyCloseFile(hFile: THandle);
function MyEOF(hFile: THandle): boolean;
procedure MyBlockRead(var hFile: THandle; var Buffer; RecordCount: integer; var RecordsRead: integer);
implementation
uses
Windows, SysUtils;
procedure MyAssignFile(var hFile: THandle; filename: string);
begin
hFile := CreateFile(PChar(filename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, 0);
if hFile = INVALID_HANDLE_VALUE then RaiseLastOSError;
end;
procedure MyReset(hFile: THandle);
begin
SetFilePointer(hFile, 0, nil, FILE_BEGIN);
end;
procedure MyReadLn(hFile: THandle; var s: string);
var
buf: array [0..0] of ansichar;
dwread: LongWord;
begin
s := '';
ReadFile(hFile, buf, 1, dwread, nil);
while (dwread > 0) do
begin
if buf[0] <> #10 then
begin
if buf[0] = #13 then exit;
s := s + string(buf[0]);
end;
Readfile(hFile, buf, 1, dwread, nil);
end;
end;
procedure MyCloseFile(hFile: THandle);
begin
CloseHandle(hFile);
end;
function MyEOF(hFile: THandle): boolean;
var
buf: array [0..0] of ansichar;
dwread: LongWord;
begin
Readfile(hFile, buf, 1, dwread, nil);
if dwread > 0 then
begin
SetFilePointer(hFile, -dwread, nil, FILE_CURRENT);
result := false;
end
else
begin
result := true;
end;
end;
procedure MyBlockRead(var hFile: THandle; var Buffer; RecordCount: integer; var RecordsRead: integer);
var
RecordCount2, RecordsRead2: Cardinal;
begin
RecordCount2 := RecordCount;
RecordsRead2 := RecordsRead;
ReadFile(hFile, Buffer, RecordCount2, RecordsRead2, nil);
//RecordCount := RecordCount2;
RecordsRead := RecordsRead2;
end;
end.