Search results for 'SEE_MASK_INVOKEIDLIST'. 1 post(s) found.

  1. 2007/09/19 Display Standard Windows Properties dialog
2007/09/19 08:31

Display Standard Windows Properties dialog


Here's the code that will display the standard Windows Properties dialog for a specified file (object) name.

Usage:
ShowProperties(Application.Handle, 'c:\autoexec.bat')


Here's the function source.
function ShowProperties(hWndOwner: HWND; const FileName: string): boolean;
var
   Info: TSHELLEXECUTEINFO;
   Handle : THandle;
begin
   { Fill in the SHELLEXECUTEINFO structure }
   with Info do
   begin
     cbSize := SizeOf(Info) ;
     fMask := SEE_MASK_NOCLOSEPROCESS or
              SEE_MASK_INVOKEIDLIST or
              SEE_MASK_FLAG_NO_UI;
     wnd := hWndOwner;
     lpVerb := 'properties';
     lpFile := pChar(FileName) ;
     lpParameters := nil;
     lpDirectory := nil;
     nShow := 0;
     hInstApp := 0;
     lpIDList := nil;
   end;

   { Call Windows to display the properties dialog. }
   Result := ShellExecuteEx(@Info) ;
end;

Trackback 3 Comment 0

Trackback : Cannot send a trackbact to this post.

  1. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 00:26 delete

    moneyideas

  2. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 08:52 delete

    moneyideas

  3. Subject different money making ideas

    Tracked from moneyideas 2010/01/31 16:40 delete

    moneyideas