我的学习生涯（Delphi篇） - 11

    我们很多时候要和WIN32 API函数打交道。

    比如下例中的FileSetAttr、DeleteFile、DateTimeToFileDate

    -------------------------------------------------------------------------------------------------美丽分割线---------------------------

    年代：2006

    文件：MY0601.7z

    图1：获取文件版本信息

   

   图2：获得文件属性信息

   

    单元文件：

    Unit1.pas

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    btnsetTimeFormat: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    Edit1: TEdit;    Edit2: TEdit;    Edit3: TEdit;    Button5: TButton;    Memo1: TMemo;    Button1: TButton;    Edit4: TEdit;    procedure Button2Click(Sender: TObject);    procedure btnsetTimeFormatClick(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure Button4Click(Sender: TObject);    procedure Button5Click(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  function GetExeFileVersion(FileName:String):String;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);begin  DeleteFile(Edit1.Text);end;procedure TForm1.btnsetTimeFormatClick(Sender: TObject);var  Err : DWord;  P : PChar;begin  P := pchar(Edit2.Text);  if SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,P) then  begin    Showmessage('OK');  end  else  begin    Err := GetLastError;    case Err of      ERROR_INVALID_ACCESS : ShowMessage('INVALID_ACCESS');      ERROR_INVALID_FLAGS  : showMessage('INVALID_FLAGS');      ERROR_INVALID_PARAMETER : ShowMessage('INVALID_PARAMETER');    end;  end;end;procedure TForm1.Button3Click(Sender: TObject);begin  FileSetAttr(Edit1.Text,StrToInt(Edit3.Text));end;procedure TForm1.Button4Click(Sender: TObject);var  i22:integer;begin  i22:=GetFileAttributes(pchar(Edit1.Text));  ShowMessage(IntToStr(i22));end;procedure TForm1.Button5Click(Sender: TObject);var  i23:integer;begin  i23:=DateTimeToFileDate(Now);  Memo1.Lines.Add(IntToStr(i23));end;function GetExeFileVersion(FileName:String):String;var  InfoSize,Wnd:DWORD;  VerBuf:Pointer;  VerInfo:^VS_FIXEDFILEINFO;begin    Result:='';    InfoSize:=GetFileVersionInfoSize(PChar(FileName),Wnd);    if InfoSize<>0 then    begin      GetMem(VerBuf,InfoSize);      try        if GetFileVersionInfo(PChar(FileName),Wnd,InfoSize,VerBuf) then        begin          VerInfo:=nil;          VerQueryValue(VerBuf,'\',Pointer(VerInfo),Wnd);          if VerInfo<>nil then Result:=Format('%d.%d.%d.%d',[VerInfo^.dwFileVersionMS shr 16,                                                             VerInfo^.dwFileVersionMS and $0000ffff,                                                             VerInfo^.dwFileVersionLS shr 16,                                                             VerInfo^.dwFileVersionLS and $0000ffff]);        end;      finally        FreeMem(VerBuf,InfoSize);      end;    end;  end;procedure TForm1.Button1Click(Sender: TObject);var  verInfo:string;begin  verInfo:= GetExeFileVersion(Edit4.Text);  ShowMessage(verInfo);end;end.