VPF::Открыть папку содержащую этот файл и выделить его

IDontBelieveInSilence

Дата 20.11.2007, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 3.11.2006

Репутация: нет
Всего: нет

Здравствуйте. Есть файл, например bla.txt, расположен он в C:\BlaBla\, как можно открыть папку blabla и выделить bla.txt, как будто по нему левой кнопкой мыши щёлкнули?

Snowy

Дата 20.11.2007, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

explorer.exe /e, /select, C:\BlaBla\bla.txt

IDontBelieveInSilence

Дата 20.11.2007, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 3.11.2006

Репутация: нет
Всего: нет

А как эти строки вставить в ShellExecute? Я попытался так:
ShellExecute(0, '', 'explorer', '/e,/select', 'C:\blabla\bla.txt', SW_SHOW);
но меня выкинуло в корень C:\ и всё.

Snowy

Дата 20.11.2007, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Код

procedure ProgExec(CmdStr: string; WinState: word = SW_SHOWNORMAL);
var
  si:  TStartupInfo;
  pi:  TProcessInformation;
begin
  FillChar(si, SizeOf(si), 0);
  FillChar(pi, SizeOf(si), 0);
  with si do begin
    cb:=SizeOf(si); dwFlags:=1; wShowWindow:=WinState;
  end;
  CreateProcess(nil,PChar(CmdStr),nil,nil,false, 0,nil,nil, si, pi);
  CloseHandle(pi.hProcess); CloseHandle(pi.hThread);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ProgExec('explorer.exe /e, /select, "C:\Program Files\Movie Maker\moviemk.exe"');
  // или так
  // ProgExec('explorer.exe /e, /select, "' + ParamStr(0) + '"');
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »