Платные хостинги     Раскрутка сайта     Книги по программированию

Компонент ShellListView, Как управлять этим компонентом???

- Народ, у меня возник очень важный для меня вопрос:Как сделать так, чтобы компонент, ShellListView отображал только те элементы рабочего стола, которые я захочу.Заранее спасибо всем за любую, помощь!!! Это сообщение отредактировал Zero - 13.11.2004, 19:48

- Написать свой.

- Я бы непротив, но тогда как получить список отдельных ярлыков, и пирикинуть их на форму или на то, на чём они должны отображатся???

- Возьми ListView и создай в нем столько элементов, сколько тебе нужно, а картинку возьми из ярлыка (пример извлечения иконки из ярлыка есть в DRKB)

- 1... Код uses ...ShlObj;...function GetFolderPath(nFolder:Integer):String;var pidlItself:PItemIDList;    s:string;    hr:HResult;    i:integer;begin Result:=''; hr:=SHGetSpecialFolderLocation(0,nFolder,pidlItself); if Succeeded(hr) then  begin   SetLength(s,MAX_PATH*10);   if SHGetPathFromIDList(pidlItself,PChar(s)) then    begin     i:=Pos(#0,s);     if i=0 then i:=Length(s);     Result:=trim(copy(s,1,i));    end;  end;end;highlightSyntax('delphiRkNzNl','delphi');2. Неуверен что правильно тебя понял... но тем неменее... .Прицепи к OnAddFolder вот енту процедуру...Код procedure TForm1.ShellListView1AddFolder(Sender: TObject;  AFolder: TShellFolder; var CanAdd: Boolean);var s:string;begin if DeskTop='' then DeskTop:=ExtractFileName(GetFolderPath(CSIDL_DESKTOP)); try  s:=AFolder.Parent.DisplayName; except  s:=''; end; if (AnsiCompareText(s,DeskTop)=0) then  begin   s:=AFolder.DisplayName;   if (AnsiCompareText(s,'Корзина')=0)or(AnsiCompareText(s,'Сетевое окружение')=0) then    CanAdd:=false else    begin     s:=ExtractFileName(AFolder.PathName);     if AnsiCompareText('MPIRun.lnk',s)=0 then      CanAdd:=false;    end;  end;end;highlightSyntax('delphiWRkNzA','delphi');PS: Не показываем 'Корзину', 'Сетевое окружение' и файл 'MPIRun.lnk'Удачи. Это сообщение отредактировал Girder - 13.11.2004, 23:34

- Упс, я извеняюсь, я не заметил, что Гирдер, мне уже выслал код...Это сообщение не к месту...Спасибо Гирдер, буду пробывать... Это сообщение отредактировал Zero - 13.11.2004, 23:28

- На самом деле мне нужно сделать, чтобы при запуске приложения Delphi все ярлыки которые уже созданы, не отображались на ShellListView, а которые далее я создаю программным путём отображались.Всё уже сделано кроме правильного отображения информации в ShellListView...Пожалуйста, если знаешь как это исправить, то напиши мне ещё кусок кода, а то мне через неделю уже сдавать курсач, а у меня не сделана всего-лишь одна мелоч, но которая может существенно повлиять на оценку.

- Ладно народ, раз уж у меня не получилось сделать тем способом, то я придумал новый, если сделать двойной щелчок мышью по компоненту ShellListView, то появится окно где путь можно поменять на не стандартный (на свой), но проблема теперь в том что на разных компьютерах он может быть разным, и мне нужно чтобы его можно было устанавливать программно, но вот это почему-то не как не получается сделать... Может из вас кто-нибудь знает как это можно сделать, заранее благодарен.Замечание: Путь содержит сво-во Root, и его-то надо програмно изменить... Это сообщение отредактировал Zero - 14.11.2004, 11:30

- Код const  p = 'Root:\';begin  ShellListView1.Root:= AnsiReplaceText(p, 'Root', 'c');highlightSyntax('delphiMTI0ZD','delphi');

- Alex, что то при компиляции выдаётся ошибка:[Error] Work_Table.pas(151): Undeclared identifier: 'AnsiReplaceText' Может здесь несоответствие типов???И ещё здесь получается, что если путь ставить программно, то всё равно тот который стоит в константах, и получается что его нельзя будет изменять, т.е.У меня есть строка которая определяет путь, который должен отображатся компонентом ShellListView, но никак не получается её занести в свойство Root.

- У тебя Delphi какой версии?Цитата (Zero @ 14.11.2004, 12:30)И ещё здесь получается, что если путь ставить программно, то всё равно тот который стоит в константах, и получается что его нельзя будет изменять, т.е.Ничего не понялЦитата (Zero @ 14.11.2004, 12:30)У меня есть строка которая определяет путь, который должен отображатся компонентом ShellListView, но никак не получается её занести в свойство Root. Покажи код

- Delphi7Цитата Ничего не понялКороче, если говорить по руски, то это можно представить так:Код Var   s:string;  //Допустим у меня какая-то строка...highlightSyntax('delphiYWU0NT','delphi');Например при появлении формы, она присвоит какой-нибудь путь:Код procedure TForm1.FormShow(Sender: TObject);begin  s:='C:\...\MyDesktop'end;highlightSyntax('delphiYTgzOW','delphi');И потом неплохо было-бы если при написании такого кода компилятор мне не выдал бы сообщение об ошибке: Код ShellListView1.Root:=s;  //Но к сожалению так делать нельзя :( highlightSyntax('delphijFkYjc','delphi');

- 100% работает:Код procedure TForm1.Button3Click(Sender: TObject);var  s: String;begin  s:= 'C:\';  ShellListView1.Root:= s;end;highlightSyntax('delphiTYyNTQ','delphi');

- И у меня это работает!

- А сейчас уже (когда заработало) я вспомнил, про то что надо навести курсор на слово и нажать <F1>, но доэтого когда в голове ещё то что срок через неделю, и такая мелкая ошибка с которой пол дня сижу, всё сразу вылетело.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD