Путь к папке кнопки ПускDelphi , Рабочий стол , ПУСКПуть к папке кнопки Пуск
Оформил: DeeCo uses ShlObj, ActiveX; procedure FreePidl(pidl: PItemIDList); var allocator: IMalloc; begin if Succeeded(SHGetMalloc(allocator)) then begin allocator.Free(pidl); {$IFDEF VER100} allocator.Release; {$ENDIF} end; end; function GetStartMenu: string; var pidl: PItemIDList; buf: array[0..MAX_PATH] of Char; begin if Succeeded(SHGetSpecialFolderLocation(Form1.Handle, CSIDL_STARTMENU, pidl)) then SHGetPathFromIDList(pidl, buf); Result := StrPas(buf); // The calling application is responsible for freeing the PItemIDList-pointer // with the Shell's IMalloc interface FreePIDL(pidl); end; procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := GetStartMenu; end; Код на языке Delphi, который получает путь к папке кнопки Пуск и отображает его в лейбле при нажатии на кнопку. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |