99 |
function GetCurrentPrinterHandle() : THandle; |
function GetCurrentPrinterHandle() : THandle; |
100 |
function SavePChar(p: PChar): PChar; |
function SavePChar(p: PChar): PChar; |
101 |
|
|
|
function FileTime2DateTime(FileTime: TFileTime): TDateTime; |
|
|
|
|
102 |
procedure PlaySound(filename : PWideChar); |
procedure PlaySound(filename : PWideChar); |
103 |
procedure StartScreen(); |
procedure StartScreen(); |
104 |
procedure InitScreen(); |
procedure InitScreen(); |
3076 |
|
|
3077 |
end; |
end; |
3078 |
|
|
|
function TMainForm.FileTime2DateTime(FileTime: TFileTime): TDateTime; |
|
|
var |
|
|
LocalFileTime: TFileTime; |
|
|
SystemTime: TSystemTime; |
|
|
begin |
|
|
FileTimeToLocalFileTime(FileTime, LocalFileTime) ; |
|
|
FileTimeToSystemTime(LocalFileTime, SystemTime) ; |
|
|
Result := SystemTimeToDateTime(SystemTime) ; |
|
|
end; |
|
|
|
|
3079 |
procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings); |
procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings); |
3080 |
var |
var |
3081 |
SR: TSearchRec; |
SR: TSearchRec; |
3095 |
|
|
3096 |
dt := fileDateToDateTime(SR.Time); // finder filens timestamp for seneste ændring |
dt := fileDateToDateTime(SR.Time); // finder filens timestamp for seneste ændring |
3097 |
CreationTime := SR.FindData.ftCreationTime; // finder filens timestamp for oprettelse |
CreationTime := SR.FindData.ftCreationTime; // finder filens timestamp for oprettelse |
3098 |
dtCreation := FileTime2DateTime(CreationTime); // finder filens timestamp for oprettelse |
dtCreation := TUtils.FileTime2DateTime(CreationTime); // finder filens timestamp for oprettelse |
3099 |
// Selvom creation date godt kan være forskellig fra modified date, |
// Selvom creation date godt kan være forskellig fra modified date, |
3100 |
// skal vi alligevel altid tjekke filens alder ud fra modified date |
// skal vi alligevel altid tjekke filens alder ud fra modified date |
3101 |
// (ændring den kan ligge både før og efter oprettelse, hvis filerne er flyttet eller ændret manuelt) |
// (ændring den kan ligge både før og efter oprettelse, hvis filerne er flyttet eller ændret manuelt) |