как с помощию нажатия кнопки можно открыть мой компьютер?

[wulf17]

Помогите пожалуйста, как с помощию нажатия кнопки можно открыть мой компьютер, панель управления, сетевое окружение? вообще это реально? Спасибо!!!

[dima_sk8er]

В "Мой Компьютер" можно зайти, имитировав нажатия клавиш:
procedure TForm1.Button1Click(Sender: TObject);
begin
//Нажимаем Windows + E
keybd_event(VK_LWIN, 0, 0, 0);
keybd_event(Byte('E'), 0, 0, 0);
keybd_event(Byte('E'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

[JTG]

procedure TForm1.Button1Click(Sender: TObject);
const
    CLSID_MyComputer: TGUID = (D1:$20D04FE0; D2:$3AEA; D3:$1069; D4:($A2,$D8,$08,$00,$2B,$30,$30,$9D)); //{20D04FE0-3AEA-1069-A2D8-08002B3030}
    CLSID_NetworkPlaces: TGUID = (D1:$208D2C60; D2:$3AEA; D3:$1069; D4:($A2,$D7,$08,$00,$2B,$30,$30,$9D)); //{208D2C60-3AEA-1069-A2D7-08002B3030}
    CLSID_Internet: TGUID = (D1:$871C5380; D2:$42A0; D3:$1069; D4:($A2,$EA,$08,$00,$2B,$30,$30,$9D)); //{871C5380-42A0-1069-A2EA-08002B3030}
    CLSID_RecycleBin: TGUID = (D1:$645FF040; D2:$5081; D3:$101B; D4:($9F,$08,$00,$AA,$00,$2F,$95,$4E)); //{645FF040-5081-101B-9F08-00AA002F95}
    CLSID_ControlPanel: TGUID = (D1:$21EC2020; D2:$3AEA; D3:$1069; D4:($A2,$DD,$08,$00,$2B,$30,$30,$9D)); //{21EC2020-3AEA-1069-A2DD-08002B3030}
    CLSID_MyDocuments: TGUID = (D1:$450d8fba; D2:$ad25; D3:$11d0; D4:($98,$a8,$08,$00,$36,$1b,$11,$03)); //{450D8FBA-AD25-11D0-98A8-0800361B11}
    CLSID_Printers: TGUID = (D1:$2227A280; D2:$3AEA; D3:$1069; D4:($A2,$DE,$08,$00,$2B,$30,$30,$9D));
begin
  ShellExecute(handle,
               'open',
               'explorer.exe',
               pchar('::'+GUIDToString(CLSID_MyComputer)), // '/e,::' чтоб открыть с деревом папок слева
               nil,
               SW_SHOWNORMAL);
end;

Весь список констант был где-то в модулях JEDI, можно передавать без GUIDToString, сразу как строку {хххххххх-хххх-хххх-хххх-хххххххххх}
В uses добавить shellapi

[wulf17]

большое спасибо, все работает отлично, только одна константа не может найти пишет путь не существует или не является каталогом. спасибо за код

[Ntlegend]

а чем не устраивает ShellExecute??