Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Änderungsdatum ändern (https://www.delphipraxis.net/120286-aenderungsdatum-aendern.html)

Meflin 9. Sep 2008 14:21

Re: Änderungsdatum ändern
 
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?

MSDN-Library durchsuchenSystemTimeToFileTime
Delphi-Referenz durchsuchenDateTimeToSystemTime
und umgekehrt.

Larsi 9. Sep 2008 14:39

Re: Änderungsdatum ändern
 
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 9. Sep 2008 14:49

Re: Änderungsdatum ändern
 
Verwende TFileTime. Abgesehen davon muss es im SetFileTime @TimeX heißen...

Larsi 9. Sep 2008 14:54

Re: Änderungsdatum ändern
 
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 9. Sep 2008 14:57

Re: Änderungsdatum ändern
 
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 9. Sep 2008 14:57

Re: Änderungsdatum ändern
 
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 9. Sep 2008 15:01

Re: Änderungsdatum ändern
 
Nee nicht am Compiler aber ich hatte Angst das die Datei vielleucht zerstört wird wenn was falches reingeschrieben wird.

Meflin 9. Sep 2008 15:02

Re: Änderungsdatum ändern
 
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:


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:16 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz