startunit.pas

来自「delphi 环境下邮件管理程序。」· PAS 代码 · 共 57 行

unit StartUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TSplash = class(TForm)
    Panel: TPanel;
    Image: TImage;
    Showtime: TLabel;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  WIN32_FILE_ATTRIBUTE_DATA=class
     dwFileAttributes:DWORD;
     ftCreationTime:FILETIME;
     ftLastAccessTime:FILETIME;
     ftLastWriteTime:FILETIME;
     nFileSizeHigh:DWORD;
     nFileSizeLow:DWORD;
  end;
var
  Splash: TSplash;

implementation

{$R *.dfm}

procedure TSplash.FormActivate(Sender: TObject);
var
    pFileName:Array[0..1024] of Char;
    hTempModule:HMODULE;
    strShow:String;
    TempFileInfo:WIN32_FILE_ATTRIBUTE_DATA;
    TempSysTime:SYSTEMTIME;
    LocalTime,ConvertTime:TFileTime;
begin
    TempFileInfo:=WIN32_FILE_ATTRIBUTE_DATA.Create;
    hTempModule:=GetModuleHandle(Nil);
    GetModuleFileName(hTempModule,pFileName,1024);
    GetFileAttributesEx(pFileName,GetFileExInfoStandard,TempFileInfo);
    ConvertTime.dwLowDateTime:=TempFileInfo.ftLastWriteTime.dwHighDateTime;
    ConvertTime.dwHighDateTime:=TempFileInfo.ftLastWriteTime.dwLowDateTime;
    FileTimeToLocalFileTime(ConvertTime,LocalTime);
    FileTimeToSystemTime(LocalTime,TempSysTime);
    strShow:=Format('最后编译时间：%d 年 %d 月 %d 日 %d 时 %d 分 %d 秒',[TempSysTime.wYear,TempSysTime.wMonth,TempSysTime.wDay,TempSysTime.wHour,TempSysTime.wMinute,TempSysTime.wSecond]);
    Showtime.Caption:=strShow;
end;

end.