안녕하세여? 구창민입니다.

파일의 생성일자가 곧 파일을 컴파일한 날짜가 아닐까여?

컴파일을 하면 Make 를 하는데 그때 일자가 변경될텐디?

??? 멀 잘못생각하고 있나 내가? ㅋㅋ

파일날짜을 얻어오려면,

파일의 열어서 FileOpen

FileGetDate, FileDateToDateTime <-- 요 함수들로

얻어내심 됩니다

즐거운프로그래밍 하세여~

제가 너무 어렵게 생각했나 보네요...

사용자가 파일생성일을 변경하거나 하면 바뀌어지니까... 별의미가 없으리라고 생각했는데...

  맞아요!!!

  생성일이 바뀌니 바로 문제가 되네요..

  FTP로 다운받으니까 바로 바뀌어 버리내요......

  님께서 좀더 자세하게 설명을 해주실수는 없는지...????

  예제도... ^.^

  부탁 드릴께요.

  도움주셨어 감사합니다.
  덕분에 문제는 해결이 된것 같읍니다.

  그런데 실행중인 프로그램을 다시 Open한다는것이 좀...
  뭔가 낭비가 있는것 같아서.....

  그냥 프로그램을 실행할때 Handle을 구할수는 없는지???
  그러니까 실행시킨 본인의 Handle값.......

  다시한번 부탁 드리겠읍니다.

  좋은 하루 되십시요.

아래 코드들을 참고하시면 되겠네여~

항상 즐거운 프로그래밍 하시길~

procedure TFileInfoForm.GetFileInfo(FileName: String);
function FileSize(hi,lo: integer) :longint;
begin
   Result := (hi * MAXDWORD) + lo;
end;

// This function retrieves the last time, the given file was written to disk
function GetLocalTime(a:tfiletime):string;
var
   mtm:   TSystemTime;
   at:    TFileTime;
   ds,ts: ShortString;
begin
   filetimetolocalfiletime(a,at);
   filetimetosystemtime(at,mtm);
   SetLength(ds, GetDateFormat(LOCALE_USER_DEFAULT, 0, @mtm, NIL, @ds[1], 255) - 1);
   SetLength(ts, GetTimeFormat(LOCALE_USER_DEFAULT, time_noseconds, @mtm, NIL,
                                                @ts[1], 255)  - 1);
   Result:=ds+'  '+ts;
end;

var
SHFinfo: TSHFileInfo;
FindData: TWin32FindData;
FindHandle :THandle;
begin
L_FileName.Caption := ExtractFileName(FileName); // 파일명(Name)

ShGetFileInfo(PChar(FileName), 0, SHFinfo, SizeOf(SHFinfo), // 파일종류만 알아낸다
               SHGFI_TYPENAME);
L_Filetype.Caption := SHFinfo.szTypeName; // 파일종류(Type)

FindHandle := Windows.FindFirstFile(PChar(FileName), FindData);
try
   L_Filesize.Caption := FloatToStr(Trunc(FileSize(FindData.nFileSizeHigh, FindData.nFileSizeLow) / 1024))+' KB ('+
                         IntToStr(FileSize(FindData.nFileSizeHigh, FindData.nFileSizeLow))+' Bytes)';

   OldAttributes := FileGetAttr(FileName);  // 파일의 속성(attribute)
   CB_ReadOnly.Checked := (OldAttributes and faReadOnly) = faReadOnly;
   CB_Archive.Checked  := (OldAttributes and faArchive) = faArchive;
   CB_System.Checked   := (OldAttributes and faSysFile) = faSysFile;
   CB_Hidden.Checked   := (OldAttributes and faHidden) = faHidden;

   L_Created.Caption    := GetLocalTime(FindData.ftCreationTime);   // 파일생성일(Created)
   L_Modified.Caption   := GetLocalTime(FindData.ftLastWriteTime);  // 파일변경일(Modified)
   L_LastAccess.Caption := GetLocalTime(FindData.ftLastAccessTime); // 파일접근일(LastAccess)
finally
   Windows.FindClose(FindHandle);
end;
end;

정말 감사합니다. - 내용무

안녕하세요. 최용일입니다.

제가 생각하기에는 프로그램에서 직접 컴파일한 날짜를 가져오는 방법은 없을거 같네요...

RTTI를 이용해서 Wizard/Expert를 만드신다면 컴파일하기전에 넣어줄 수도 있겠지만... 이것두 만들기가...

^^ 항상 즐코하세요...

보통 일반 컴파일러의 대부분에서 내장 매크로 부분에
__DATE__ 와 __TIME__ 가 있습니다....

즉 MFC에서는 CString 변수 하나를 할당하시고
그냥 __DATE__ 와 __TIME__ 을 CString변수에 넣기만 하면 됩니다.

이는 컴파일시 이미 날짜정보와 시간이 설정이 됩니다....
아마 델파이도 될것 같은데요....