[ popmilan76 @ 11.04.2020. 20:46 ] @
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. |