VPF::Открыть папку - Форум программистов

DriveSoftware

Дата 4.10.2003, 16:04 (ссылка)

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

Загрузка ...

Опытный

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

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

Приветик!

Как открыть папку с помощью функции CreateProcess,
т.к. надо знать Handle окна с этой папкой.

--------------------

Замена стандартным Windows часам

<Spawn>

Дата 4.10.2003, 16:19 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

а чем ShellExecute не нравится?

Код

ShellExecute(Handle, 'open',PAnsiChar(ExtractFilePath(Application.ExeName)),nil,nil, SW_SHOWNORMAL)

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

DriveSoftware

Дата 4.10.2003, 16:23 (ссылка)

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

Загрузка ...

Опытный

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

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

Мне нужно знать Handle открытого окна, а ShellExecute этого не дает!

--------------------

Замена стандартным Windows часам

p0s0l

Дата 5.10.2003, 19:31 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Цитата

Как открыть папку с помощью функции CreateProcess,

Код

var
  si : TStartUpInfo;
  pi : TProcessInformation;
begin
  FillChar(si, sizeof(si), 0);
  si.cb := SizeOf(si);
  CreateProcess(nil, PChar('EXPLORER.EXE "C:\"'), nil, nil, false, 0, nil, nil, si, pi);
end;

Только так почему-то у меня не получилось узнать хэндл окна, хотя надо еще подумать.
Вот как я делал:

Код

var
  Handle : HWND; 
  si : TStartUpInfo;
  pi : TProcessInformation;
  s : string;

  function fn1 (h : HWND; param : LPARAM) : boolean; stdcall;
  begin
    Handle := h;
    Result := false;
  end;

begin
  FillChar(si, sizeof(si), 0);
  si.cb := SizeOf(si);
  CreateProcess(nil, PChar('EXPLORER.EXE "C:\"'), nil, nil, false, 0, nil, nil, si, pi);
  repeat
    Handle := HWND(-1);
    EnumThreadWindows(pi.dwThreadId, @fn1, 0);
  until Handle <> HWND(-1);
  SetLength (s, GetWindowTextLength(Handle));
  GetWindowText(Handle, @s[1], Length(s));
  Caption := s;
end;

--------------------

С уважением, г-н Посол.

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