OpenFile

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Willie1 · begonnen am 5. Okt 2020 · letzter Beitrag vom 6. Okt 2020

Vorheriger Beitrag

Nächster Beitrag

Schwedenbitter

Registriert seit: 22. Mär 2003
Ort: Finsterwalde
622 Beiträge

Turbo Delphi für Win32

AW: OpenFile

5. Okt 2020, 18:26

Mit SysUtils kann man doch folgendes basteln:

markieren

Delphi-Quellcode:

			FileHandle:=FileOpen(aPath + SR.Name, fmOpenReadWrite Or fmShareExclusive);

Try

   If SetFileTime(FileHandle, @FileTime, @FileTime, @FileTime) Then

      Memo1.Lines.Append(SR.Name + ' -> success')

   Else

      Memo1.Lines.Append(SR.Name + ' -> ' + SysErrorMessage(GetLastError));

Finally

   FileClose(FileHandle);

End;

Ließ sich gerade compilieren und funktioniert.