Änderungsdatum ändern

[Larsi]

Hi,
ich möchte wissen wie ich das Erstellungsdatum und das Änderungsdatum ändere?

[toms]

Zitat:

Zitat von Larsi

Erstellungsdatum und das Änderungsdatum

Von was / welchem Objekt möchtest du dies ändern?
Falls von Dateien, dann findest du genug Beispiele in der DP / Google etc.

[Valle]

delphi file change time

Du preist doch selbst die Suchmaschine immer so an. :gruebel:

Mit freundlichen Grüßen,

Valle

[Larsi]

Zitat:

Zitat von Valle

Du preist doch selbst die Suchmaschine immer so an. :gruebel:

Das sagen alle aber wann habe ich denn das mal gesagt? :gruebel:

[Valle]

Zitat:

Zitat von Larsi

Zitat:

Zitat von Valle

Du preist doch selbst die Suchmaschine immer so an. :gruebel:

Das sagen alle aber wann habe ich denn das mal gesagt? :gruebel:

Such doch einfach mal danach!
DP -> Suche -> Autor: "Larsi" -> Suchwort "Suche"

Ergibt zum Beispiel das. :mrgreen:

Mit freundlichen Grüßen,

Valle

[hamburcher]

@Valle: Na und was nun?

[Larsi]

Aber dort findet man nicht Änderungsdatum und Erstellungsdatum von Dateien.

[new32]

Mit SetFileTime kannst du das Erstellungsdatum und das Datum des letzten Zugriffes und der letzten Änderung ändern.

[Larsi]

Also das Änderungsdatum kann ich jetzt bereits erfolgreich verändern aber für das Erstellungsdatum finde ich keinen Code, hat da jemand einen parat. Wenn man sucht findet man immer nur das Änderungsdatum.

[Fussball-Robby]

Zitat:

Zitat von new32

Mit SetFileTime kannst du das Erstellungsdatum und das Datum des letzten Zugriffes und der letzten Änderung ändern.

[Larsi]

Zitat:

Zitat von Fussball-Robby

Zitat:

Zitat von new32

Mit SetFileTime kannst du das Erstellungsdatum und das Datum des letzten Zugriffes und der letzten Änderung ändern.

Das Problem ist ja dass alle dies eine Frage dazu haben sodass ich ein Code Beispiel habe für das Änderungsdatum sind.

[DeddyH]

Zitat:

Zitat von Larsi

Das Problem ist ja dass alle dies eine Frage dazu haben sodass ich ein Code Beispiel habe für das Änderungsdatum sind.

Du müssen Beispiele in Code den anderem auch mit Datum probieren anderes aus. ^^SCNR

[Die Muhkuh]

http://msdn.microsoft.com/en-us/library/ms724933.aspx

[Valle]

Zitat:

Zitat von Valle

delphi file change time

Du preist doch selbst die Suchmaschine immer so an. :gruebel:

Ergibt: http://www.scalabium.com/faq/dct0122.htm

Wo ist das Problem?

Mit freundlichen Grüßen,

Valle

[Larsi]

Das ändert aber auch nur den das Änderungsdatum obwohl da steht Erstellungsdatum! Kennt Ihr noch ne andere möglichkeit?

[Die Muhkuh]

Zitat:

Zitat von Die Muhkuh

http://msdn.microsoft.com/en-us/library/ms724933.aspx

[DeddyH]

Das war jetzt der 4. Verweis auf SetFileTime. Müsste nun hoffentlich angekommen sein.

[Die Muhkuh]

Ich poste es auch noch mal, wenn es sein muss :zwinker:

[Larsi]

Ich habe mir das zwar angeguckt aber mein Problem ist jetzt dass ich nicht weiß wie ich DateTime zu FFileTime machen kann. Hat da jemand nen Vorschlag?

[DeddyH]

Jo, SetFileTime und nachsehen, wie andere das machen (DateTimeToSystemTime, SystemTimeToFileTime, ...).

[Meflin]

Zitat:

Zitat von Larsi

Ich habe mir das zwar angeguckt aber mein Problem ist jetzt dass ich nicht weiß wie ich DateTime zu FFileTime machen kann. Hat da jemand nen Vorschlag?

SystemTimeToFileTime
DateTimeToSystemTime
und umgekehrt.

[Larsi]

Geht immernoch nicht. Mein Code bis jetzt ist:

Delphi-Quellcode:

var
Time1: SystemTime;
Time2: FileTime;
begin
DateTimeToSystemTime(DateTimePicker1.DateTime, Time1);
SystemTimeToFileTime(Time1, Time2);
SetFileTime(StrToInt(Edit1.Text), Time2, Time2, Time2);
end;

Aber da kommt immer folgender Fehler wo ich schonmal nicht weiß was ich ändern muss.

Zitat:

[Pascal Fehler] Unit3.pas(396): E2010 Inkompatible Typen: 'PFileTime' und '_FILETIME'

Und wie löse ich das Problem? Und wenn das dann behoben ist ist dann der Code an sich richtig oder immernoch faslch?

[Meflin]

Verwende TFileTime. Abgesehen davon muss es im SetFileTime @TimeX heißen...

[Larsi]

Super jetzt funktionierts!!! :thumb: :-D

Aber ich will ja erstmal nur das Erstellungsdatum verändern die anderen nicht wie muss ich die aus folgendem Code rausnehmen? einfach nil hinschreiben?

Delphi-Quellcode:

var
Time1: SystemTime;
Time2: TFileTime;
hFile: THandle;
begin
  hFile := FileOpen(Edit1.Text, fmOpenWrite or fmShareDenyNone);


DateTimeToSystemTime(DateTimePicker1.DateTime, Time1);
SystemTimeToFileTime(Time1, Time2);
SetFileTime(hfile, @Time2, @Time2, @Time2);
end;

[Meflin]

Zitat:

Zitat von Larsi

Aber ich will ja erstmal nur das Erstellungsdatum verändern die anderen nicht wie muss ich die aus folgendem Code rausnehmen? einfach nil hinschreiben?

Ja. Aber wieso probierst dus nicht einfach aus :wall: :?:

[Luckie]

In dem du die Werte der Parameter durch nil ersetzt.

Zitat:

Zitat von Meflin

Ja. Aber wieso probierst dus nicht einfach aus :wall: :?:

Könnte ja was kaputt gehen am Compiler, wenn er es nicht kompilieren kann. ;)

[Larsi]

Nee nicht am Compiler aber ich hatte Angst das die Datei vielleucht zerstört wird wenn was falches reingeschrieben wird.

[Meflin]

Zitat:

Zitat von Larsi

Nee nicht am Compiler aber ich hatte Angst das die Datei vielleucht zerstört wird wenn was falches reingeschrieben wird.

Menschmeyer. Dann nimmt man zum Testen eben eine leere Textdatei, bei ders piepe ist :roll: