Promena datuma kreiranja na fajlu
Kada otvaram glavnu formu,postavio sam da mi menja vreme na odredjenom file na c particiju,pomoću ove funkcije:
function SetDateToFile(const FileName: string; Value: TDateTime): Boolean;
var
hFile: THandle;
begin
Result := False;
try
{open a file handle}
hFile := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
{if opened succesfully}
if (hFile > 0) then
{convert a datetime into DOS format and set a date}
Result := (FileSetDate(hFile, DateTimeToFileDate(Value)) = 0);
finally
{close an opened file handle}
FileClose(hFile);
end;
end;
I to je šljakalo,kada sam ugradjivao i sada neće,pa se pitam,u čemu je problem..
Jedino sto sam menjao od tada do danas,jeste Windows , bio 7 sada 10.
AKo ne može ovako,jel može nekako drugačije?
Hvala unapred.
 |  |
 |
