Como salvar aquivos com data e Hora definidas ???
Como salvar aquivos com data e Hora definidas..
Ex: BackuP_15/06/2003_10:30
Então seria fetio num edit
Edt+Nome do backup + data+Hora
----------------------------------------
Esta função altera a data e hora de um arquivo. Se obter sucesso retorna true, caso contrário retorna false. }
function DefineDataHoraArq(NomeArq: string; DataHora: TDateTime): boolean;
var
F: integer;
begin
Result := false;
F := FileOpen(NomeArq, fmOpenWrite or fmShareDenyNone);
try
if F > 0 then
Result := FileSetDate(F, DateTimeToFileDate(DataHora)) = 0;
finally
FileClose(F);
end;
end;
{ Exemplo de uso 1: Usa a data atual do sistema (Now) }
if DefineDataHoraArq(´c:\teste\logo.bmp´, Now) then
ShowMessage(´Data/Hora do arquivo definida com sucesso.´)
else
ShowMessage(´Não foi possível definir data/hora do arquivo.´);
Como eu faço para passar isso Pra um EditFile ????
Ex: BackuP_15/06/2003_10:30
Então seria fetio num edit
Edt+Nome do backup + data+Hora
----------------------------------------
Esta função altera a data e hora de um arquivo. Se obter sucesso retorna true, caso contrário retorna false. }
function DefineDataHoraArq(NomeArq: string; DataHora: TDateTime): boolean;
var
F: integer;
begin
Result := false;
F := FileOpen(NomeArq, fmOpenWrite or fmShareDenyNone);
try
if F > 0 then
Result := FileSetDate(F, DateTimeToFileDate(DataHora)) = 0;
finally
FileClose(F);
end;
end;
{ Exemplo de uso 1: Usa a data atual do sistema (Now) }
if DefineDataHoraArq(´c:\teste\logo.bmp´, Now) then
ShowMessage(´Data/Hora do arquivo definida com sucesso.´)
else
ShowMessage(´Não foi possível definir data/hora do arquivo.´);
Como eu faço para passar isso Pra um EditFile ????
Anonymous
Curtidas 0
Respostas
Anonymous
14/02/2003
miguem sabe ´??/
GOSTEI 0
Oriundo
14/02/2003
Cara, vc quer salvar o ´nome ´ do arquivo com a data e a hora que vc grava? Porque parece que o seu texto esta dificil de decifrar....
Como salvar aquivos com data e Hora definidas..
Ex: BackuP_15/06/2003_10:30
Então seria fetio num edit
Edt+Nome do backup + data+Hora
----------------------------------------
Esta função altera a data e hora de um arquivo. Se obter sucesso retorna true, caso contrário retorna false. }
function DefineDataHoraArq(NomeArq: string; DataHora: TDateTime): boolean;
var
F: integer;
begin
Result := false;
F := FileOpen(NomeArq, fmOpenWrite or fmShareDenyNone);
try
if F > 0 then
Result := FileSetDate(F, DateTimeToFileDate(DataHora)) = 0;
finally
FileClose(F);
end;
end;
{ Exemplo de uso 1: Usa a data atual do sistema (Now) }
if DefineDataHoraArq(´c:\teste\logo.bmp´, Now) then
ShowMessage(´Data/Hora do arquivo definida com sucesso.´)
else
ShowMessage(´Não foi possível definir data/hora do arquivo.´);
Como eu faço para passar isso Pra um EditFile ????
GOSTEI 0
Anonymous
14/02/2003
Quero salvar meu arquivo com o nome data,Hora tem como ???
Alguem sabe como que faz isso ?
Alguem sabe como que faz isso ?
GOSTEI 0