کنترل پنل - نسخه قابل چاپ

کد:
-Add 'ShellApi and ShlObj' in the uses of your form



 

procedure TForm1.Button1Click(Sender: TObject);

var 

   PIDL:PItemIDList;

   Info:TShellExecuteInfo;

   pInfo:PShellExecuteInfo;

   WaitCode:DWord;

begin 

   {Obtenemos PIDL de la carpeta virtual}

   {get PIDL of the virtual folder}

   SHGetSpecialFolderLocation(Handle,

                              CSIDL_CONTROLS,

                              PIDL);

   {Puntero a Info}

   {Pointer to Info}

   pInfo:=@Info;

   {Rellenamos Info}

   {Fill info}

   with Info do 

   begin 

    cbSize:=SizeOf(Info);

    fMask:=SEE_MASK_NOCLOSEPROCESS+

           SEE_MASK_IDLIST;

    wnd:=Handle;

    lpVerb:=nil;

    lpFile:=nil;

    {Parametros al ejecutable}

    {Executable parameters}

    lpParameters:=nil;

    lpDirectory:=nil;

    nShow:=SW_ShowNormal;

    hInstApp:=0;

    lpIDList:=PIDL;

   end; 

   {Ejecutamos}

   {Execute}

   ShellExecuteEx(pInfo);

 

   {Esperamos que termine}

   {Wait to finish}

   repeat 

    WaitCode := WaitForSingleObject(Info.hProcess,500);

    Application.ProcessMessages;

   until (WaitCode <> WAIT_TIMEOUT);

 

end;