【如何显示一个文件的属性窗口】

Question

如何显示一个文件的属性和版本信息窗口也就是显示那个在文件上点右键，然后点属性后出现的窗口如何再切换到版本那页上（如果有版本信息）

Answer 1

使用文件结构类型struct _FILEDESCRIPTOR

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, shellapi,SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  filename : string;
  sei : TShellExecuteInfo;
begin
  if opendialog1.Execute then
    begin
        filename:=opendialog1.FileName;
        FillChar(sei,SizeOf(sei),#0);
        sei.cbSize:=SizeOf(sei);
        sei.lpFile:=PChar(filename);
        sei.lpVerb:='properties';
        sei.fMask:=SEE_MASK_INVOKEIDLIST;
        ShellExecuteEx(@sei);
    end;end;end.

Answer 3

uses shellapi
我已调试通过！

Answer 4

WWWWA(aaaa) 选择EXE文件时会出一个：External exception C0000008

Answer 5

//选择EXE文件时会出一个：External exception C0000008我试了一下，不会出现上面的问题。学习！

Answer 6

在delphi环境中运行时出现
编译后执行可执行文件没有问题还有：
如何切换到版本那一页上？
如何隐藏除版本外的tab页？
如果没有版本这个tab页就不执行怎么做？

Answer 7

为什么在delphi环境中有问题？

Answer 8

我在WIN2000SP3+DELPHI6下无问题。

Answer 9

我这边试了　WWWWA(aaaa) 的方法，在window .net standard server+DELPHI6下无问题.

Answer 10

难道是我的系统问题
win2000 pro