OpenFile

[Willie1]

Hallo Leute,
ich habe mir vor 15 Jahren eine Routine gebastelt, mit der ich die drei Zeit-Stempel einer Datei verändern kann.

Delphi-Quellcode:

      if FileExists(Filename) then beep;
      HFileResult := OpenFile(pAnsiChar(filename), ofstr, OF_WRITE);
      Result:=0;
      if HFileResult <> HFILE_ERROR then begin
        if dtCreated > 0 then SetFileTime(HFileResult, @FT1, nil, nil);
        if dtModified > 0 then SetFileTime(HFileResult, nil, nil, @FT2);
        if dtLastAccess > 0 then SetFileTime(HFileResult, nil, @FT3, nil)
      end
      else begin
        Result:=GetLastError;
        if ShowErrorMsg then ShowMessage('"'+Filename+'"'#13+SysErrorMessage(Result));
      end;

Das hat immer funktioniert, jetzt geht es nicht mehr. "Das System kann die Datei nicht finden". Das ist Unsinn, die Datei ist vorhanden! Sie wird nicht von einem anderem Prozess benutzt und ist auch nicht schreibgeschützt. Dann gäbe es doch eine andere Fehlermeldung.
Der Fehler tritt seit dem Update auf Windows 10 2003 auf. Kann Zufall sein. Was ist da los?
Gruß Willie.

[Der schöne Günther]

Vielleicht ist der Pfad zu lang (mehr als 260 Zeichen) oder der Pfad enthält Zeichen die Delphi nicht in einen AnsiString packen kann?

PS: Vor 15 Jahren war die Welt noch eine andere. Die Doku hat vielleicht auch einen Grund wenn sie von 16-Bit-Windows spricht und sagt

Zitat:

This function has limited capabilities and is not recommended. For new application development, use the CreateFile function.

[Dalai]

Welche Datei versuchst du denn zu bearbeiten? Ein zu langer Pfad zu lang könnte gut sein, denn MS sagt zu OpenFile:

Zitat:

The OFSTRUCT structure contains a path string member with a length that is limited to OFS_MAXPATHNAME characters, which is 128 characters. Because of this, you cannot use the OpenFile function to open a file with a path length that exceeds 128 characters. The CreateFile function does not have this path length limitation.

Grüße
Dalai

[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:

Zitat von Der schöne Günther (Beitrag 1474896)

Vielleicht ist der Pfad zu lang (mehr als 260 Zeichen) oder der Pfad enthält Zeichen die Delphi nicht in einen AnsiString packen kann?

Der Pfad ist nicht zu lang, hat aber Leerzeichen keine deutschen Umlaute. Ich habe das neue Delphi seit 4 Jahren, bisher ging's.
.
Willie.

[Willie1]

Zitat:

Zitat von himitsu (Beitrag 1474904)

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:

Delphi-Quellcode:

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:

Zitat von himitsu (Beitrag 1474912)

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

Delphi-Quellcode:

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.