Cita:
Empezado por cHackAll
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var hFile: Cardinal; SystemTime: TSystemTime; CreationTime: TFileTime;
begin if not OpenDialog1.Execute then Exit;
hFile := _lopen(PChar(OpenDialog1.FileName), OF_WRITE);
DateTimeToSystemTime(StrToDateTime('10/05/1983 0:0:0'), SystemTime);
SystemTimeToFileTime(SystemTime, CreationTime);
SetFileTime(hFile, @CreationTime, nil, nil);
CloseHandle(hFile);
end;
|
Gracias men, me sirvio de mucha ayuda tu codigo, solo le cambie un poco porque no me andaba del todo....saludos y muchas gracias....aqui dejo el codigo como me lo quede...
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
A: Cardinal;
CreationTime: TFileTime;
SystemTime: TSystemTime;
begin
if not opendialog1.Execute then exit
else
begin
A := FileOpen(OpenDialog1.FileName, fmOpenReadWrite or fmShareDenyWrite);
DateTimeToSystemTime(StrToDateTime('10/05/1983 0:0:0'),SystemTime);
SystemTimeToFileTime(SystemTime, CreationTime);
SetFileTime(A, @CreationTime, nil, nil);
FileClose(A);
end;
end;
end.