From: "Peter Below (TeamB)" <100113.1101@compuXXserve.com>
Subject: Re: File properties
Date: 26 Mar 1999 00:00:00 GMT
Message-ID: <VA.00002a2a.00f0ff09@petersnewbox>
Content-Transfer-Encoding: 8bit
References: <36FA7FC9.6A11617E@szamado.hu>
Content-Type: text/plain; charset=iso-8859-1
Organization: TeamB
Mime-Version: 1.0
Reply-To: 100113.1101@compuXXserve.com
Newsgroups: borland.public.delphi.winapi

In article <36FA7FC9.6A11617E@szamado.hu>, Gábor Husonyica wrote:
> How can i display the window of Windows Explorer's File properties?
> (Name, DOS-Name, times, attributes)
>
Procedure ShowFileProperties(Const filename: String);
Var
  sei: TShellExecuteinfo;
Begin
  FillChar(sei,sizeof(sei),0);
  sei.cbSize := sizeof(sei);
  sei.lpFile := Pchar(filename);
  sei.lpVerb := 'properties';
  sei.fMask  := SEE_MASK_INVOKEIDLIST;
  ShellExecuteEx(@sei);
End;

Also works for folders and drives, by the way.

Peter Below (TeamB)  100113.1101@compuserve.com)
No replies in private e-mail, please, unless explicitely requested!