transtypage

Question

bonjour &#224; tous(toutes !)


il faut que j'&#233;crive un programme d'archivage. Je parcours les dossiers, s'ils sont vides, je les vire (je r&#233;sume hein). Probl&#232;me, si &#231;a ne se passe pas bien, la date du dossier change et se met &#224; aujourd'hui. Donc ce que je fais, je r&#233;cup&#232;re avant traitement la date du dossier avec 


hf:=CreateFile(PChar(dossier), GENERIC_READ,0,Nil,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0);
GetFileTime(hf,@pf1,@pf2,@pf3);

o&#249; hf est un cardinal, pf1 &#224; pf3 des filetime
ensuite je fais mon traitement et je remets la bonne date au dossier avec 
hf:=CreateFile(PChar(dossier), GENERIC_WRITE,0,Nil,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0);
SetFileTime(hf, Nil, Nil, @pf3);
mais la date ne se remet pas bien. Ma question c'est :
comment mettre un messagebox avec la valeur de pf3 ? je sais que c'est un probl&#232;me de transtypage mais je patauge...
merci d'avance pour votre aide

walid2876 · Answer

utuliser la fonction
FileTimeToSystemTime(
  const lpFileTime:FILETIME
  lpSystemTime:PSYSTEMTIME 
);
Uses ...,...,dateUnils;
Var DateFichier:_SYSTEMTIME;
  SetFileTime(hf, Nil, Nil,@pf3);
 with DateFichier Do
  if FileTimeToSystemTime(pf3,DateFichier) then 
        showmessage(datetimetostr(encodedatetime(
              wYear,wMonth,wDay,wHour,
              wMinute,wSecond,wMilliSeconds               
               )));
  
la declaration du PSYSTEMTIME dans l'unit&#233; windows
PSystemTime = ^TSystemTime;
  _SYSTEMTIME = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;

Transtypage

1 réponse

Votre réponse

Discussions similaires