Forum: Win32/Win64 API (native code)
by Willie1,
6. Okt 2020
Hallo, ihr habt recht, ich bin altmodisch. TFile.SetCreationTime kannte ich in der Tat nicht. Da muss ich noch viel lernen. Ich denke zu oft an mein altes Delphi 6.
Aber immerhin habe ich mein Problem gelöst:HFileResult := CreateFile(PChar(Filename), FILE_WRITE_ATTRIBUTES , 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);Es steht alles in der Windows-Doku, muss man sich aber zusammen suchen....
Forum: Win32/Win64 API (native code)
by Willie1,
5. Okt 2020
Muss ich mir ansehen, aber morgen!!! Willie.
Forum: Win32/Win64 API (native code)
by Willie1,
5. Okt 2020
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.
Forum: Win32/Win64 API (native code)
by Willie1,
5. Okt 2020
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.
Forum: Win32/Win64 API (native code)
by Willie1,
5. Okt 2020
Ok, Himitsu, das Ding ist ja auch 15 Jahre alt! W.
Forum: Win32/Win64 API (native code)
by Willie1,
5. Okt 2020
Der Pfad ist nicht zu lang, hat aber Leerzeichen keine deutschen Umlaute. Ich habe das neue Delphi seit 4 Jahren, bisher ging's.
.
Willie.
Forum: Win32/Win64 API (native code)
by Willie1,
5. Okt 2020
Hallo Leute,
ich habe mir vor 15 Jahren eine Routine gebastelt, mit der ich die drei Zeit-Stempel einer Datei verändern kann. 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...