quarta-feira, 25 de novembro de 2009

Mostrar a janela de diálogo de propriedades do windows

// Precisa declarar a shellapi no projeto

{ Aqui está um código que mostra a janela de diálogo de propriedades do Windows.
Usage:
ShowProperties(Application.Handle, 'c:autoexec.bat') }

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;

Nenhum comentário:

Postar um comentário