Delphi-> открыть папку

[d3drm]

Как открыть папку в Дельфях, в которой находится приложение?

[Шурик]

взял отсюда: http://forums.realcoding.net/index.php? ... &f=5&t=538

Код: Выделить всё

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;


помоему это
пример по идее должен открыть папку и установит курсор на определнный файл.

ЗЫ не проверял...

[d3drm]

Не работает (((