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

GoToFile (В окне explorer'a)

- Есть такая тема в Explorer'e|В свойствах ярлыка есть кнопочка "Найти объект" неподскажители какой функцией или процедурой она пользуется

- Может я конечно не правильно понял вопрос, но открыть папку с нужными тебе файлами можно такКод var  S: String // имя файла  Path: String;begin  Path:=ExtractFileDir(S); // отбрасываем название программы. Остается путь.  if Path[Length(Path)]<>'\' then Path:=Path+'\';  ShellExecute (Handle, 'open', PChar('C:\Путь к папке'), nil, nil, SW_SHOW );  end;highlightSyntax('delphiwZDFkY','delphi');в uses не забудь прописать ShellApi

- Я думаю так по проще будет:Код uses  ShellApi;var  S: String // имя файла  Path: String;begin  Path:=ExtractFilePath(S); // отбрасываем название программы. Остается путь со "\".  ShellExecute (Handle, 'open', PChar(Path), nil, nil, SW_SHOW );  end;highlightSyntax('delphiwNTZhM','delphi'); Это сообщение отредактировал alex-co - 10.1.2004, 09:27

- Долго искал, но наконец нашел эту функцию:Код uses ShellAPI, ShlObj;type  PPItemIDList = ^PItemIDList;function SHOpenFolderAndSelectItems(pidlFolder: PItemIDList; cidl: UINT; apidl: PPItemIDList; dwFlags: DWORD): HRESULT; stdcall; external shell32;procedure OpenFolderAndSelectItem(Path: WideString);var  desk: IShellFolder;  iidl: PItemIDList;  attrs, che: Cardinal;begin  SHGetDesktopFolder(desk);  desk.ParseDisplayName(0, nil, PWideChar(Path), che, iidl, attrs);  SHOpenFolderAndSelectItems(iidl, 0, nil, 0);end;// использовать так:procedure TForm1.Button1Click(Sender: TObject);begin  OpenFolderAndSelectItem('C:\Program Files\Internet Explorer\IEXPLORE.EXE');end;highlightSyntax('delphizMThjY','delphi');Выделяет только один файл, но если постараться, то можно переделать так, что бы выделялось сразу несколько файлов.з.ы. 2 Vit вроде в ФАКе такого нет... ;)з.з.ы. Перед использованием требует вызова CoInitialize или CoInitializeEx, обычно дельфя это делает за нас, но все таки может потребоваться. Так же не надо забывать про вызов CoUninitialize.

- Cully , Спасибо только ты понял вопрос.

- Кстати прочитал про этот способ MSDN там написанно что только под XP

- 0FF, будем думать

- Я уже и правда стал верить в то, что это нельзя сделать, но интуиция меня не подвела, держитеКод ShellExecute(Handle, nil, 'explorer.exe', '/e, Пупь к папке, /select, Имя файла', Путь к папке ОБЯЗАТЕЛЬНО, SW_RESTORE)highlightSyntax('delphiQyZTY4','delphi');EXPLORER.EXE [/n] [/e] [,/ROOT,OBJECT] [[,/SELECT],SUBOBJECT]Если EXPLORER.EXE вызывается без последующих параметров или с ключом /e, утилита Windows Explorer запускается точно так, как при ее вызове из Меню запуска. Если в строке имеются другие параметры, а ключ /e не используется, то на вашем "рабочем столе" открывается указанная папка. Когда нужная вам папка уже открыта, EXPLORER.EXE не станет открывать второй экземпляр - если только не установлен ключ /n. Ключ /ROOT задает верхний уровень отображения папок на дереве утилиты Explorer. По умолчанию ROOT соответствует папке Desktop (т. е. всему "рабочему столу"), куда включены все файлы вашей машины (папка My Computer - "Мой компьютер") и вашей сети (папка Network Neighborhood - "Соседи по сети"). Чтобы изменить установку по умолчанию, необходимо к подстроке /ROOT добавить параметр OBJECT, который является именем конкретной папки (становящейся корнем). Включение параметра SUBOBJECT заставит Explorer открыться на соответствующей вложенной папке, расположенной ниже уровня ROOT; если SUBOBJECT не задан, то начальной (верхней) папкой останется ROOT. Ключ /SELECT позволяет в качестве SUBOBJECT вместо папки использовать файл, но без возможности применять символы-заменители (* и ?).Имена файлов в командной строке утилиты Explorer могут быть полными UNC-именами (Universal Naming Convention - универсальное соглашение по именованию файлов), т. е. содержащими полный путь, что обеспечивает доступ к сетевым ресурсам, расположенным вне локальных дисков.

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