OpenFile

[himitsu]

Man verwendet schon seit jahrzehnten kein OpenFile mehr.
-> CreateFile hat man gefälligst zu nutzen

https://docs.microsoft.com/en-us/win...nbase-openfile



Seit ner ganzen Weile ist im Windows bei vielen "aktuelleren" APIs sogar die 255 Char-Grenze entfallen (MAX_PATH ist nicht mehr die Grenze)

[Willie1]

Zitat von himitsu:

Man verwendet schon seit jahrzehnten kein OpenFile mehr.
-> CreateFile hat man gefälligst zu nutzen

https://docs.microsoft.com/en-us/win...nbase-openfile

Ok, Himitsu, das Ding ist ja auch 15 Jahre alt! W.

[Willie1]

Hallo,
es liegt wohl an den Leerzeichen im Pfad.

Ich habe es so umgebaut:
HFileResult := CreateFile(PChar(Filename), 0, 0, nil, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); Sind das so die richtigen Parameter? Da kenne ich mich nicht aus.
Willie.

[himitsu]

Vermutlich ja.

Kommt drauf an was du willst.
https://stackoverflow.com/questions/...of-windows-api

Wobei ich nicht weiß warum du bei einer nichtexistierenden Datei das Datum ändern willst. (inkl. dem Erstellen dieser Datei)

[Willie1]

Zitat von himitsu:

Vermutlich ja.

Kommt drauf an was du willst.
https://stackoverflow.com/questions/...of-windows-api

Wobei ich nicht weiß warum du bei einer nichtexistierenden Datei das Datum ändern willst. (inkl. dem Erstellen dieser Datei)

Ich habe es in OPEN_EXISTING geändert.
Natürlich will ich nur das Datum einer existierenden Datei ändern. Wie beschrieben, geht es nicht. Ich habe mich versehen, es passiert nichts. W.

[Schwedenbitter]

Mit SysUtils kann man doch folgendes basteln:

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.

[Willie1]

Muss ich mir ansehen, aber morgen!!! Willie.