• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 9 رای - 3.44 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: کنترل پنل
حالت موضوعی
#1
برای بازکردن کنترل پنل می توانید از این تابع استفاده کنید:

کد:
-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;
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پرش به انجمن:


Browsing: 2 مهمان