VPF::Open Folder from CreateProccess - Форум программистов

NOCaut

Дата 30.9.2011, 12:59 (ссылка)

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

Загрузка ...

Опытный

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

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

Error: EAccessVolation in moduole kernal32.dll

Код


procedure Run;
var
  Si   : _STARTUPINFOW;
  Pi   : PROCESS_INFORMATION;
  s,s2 : string;
begin
  ZeroMemory(@si,SizeOf(si));
  si.cb := SizeOf(si);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_SHOWNORMAL;

  CreateProcess(nil, PChar('EXPLORER.EXE "C:\"'), nil, nil, false, 0, nil, nil, si, pi);
end;

Snowy

Дата 30.9.2011, 14:18 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код

ShellExecute(Handle, 'explore', 'C:\', nil, nil, SW_SHOW);

NOCaut

Дата 30.9.2011, 14:21 (ссылка)

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

Загрузка ...

Опытный

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

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

спасибо но нет ShellExecute() - неподходит. Из-за специфического использование валится еррор http://www.4shared.com/photo/6H1R0VcX/2011-04-28_008.html

Snowy

Дата 30.9.2011, 14:43 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код

procedure Run;
var
  Si   : TStartupInfo;
  Pi   : TProcessInformation;
  s    : string;
begin
  FillChar(si,SizeOf(si), 0);
  si.cb := SizeOf(si);
  si.wShowWindow := SW_SHOWNORMAL;
  SetLength(s, MAX_PATH);
  GetWindowsDirectory(PChar(s), MAX_PATH);
  s := PChar(s) + '\explorer.exe';
  CreateProcess(PChar(s), ' C:\', nil, nil, false, 0, nil, nil, si, pi);
  //CreateProcess(PChar(s), ' /select,C:\Progra~1', nil, nil, false, 0, nil, nil, si, pi);
end;

AndreyIQ

Дата 30.9.2011, 14:45 (ссылка)

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

Загрузка ...

Бывалый

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

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

Я так понимаю вы Delphi 2009 используете.

Код


function CreateProcessSimple: string;
var
  pi: TProcessInformation;
  si: TStartupInfo;
  sExecutableFilePath: string;
begin
  FillMemory(@si, sizeof(si), 0);
  si.cb := sizeof(si);
  sExecutableFilePath:='notepad';
  sExecutableFilePath:=sExecutableFilePath+'.exe';
  CreateProcess(
    nil,
    PChar( sExecutableFilePath ),  // путь к исполняемому файлу:
    nil, nil, False,
    NORMAL_PRIORITY_CLASS, nil, nil,
    si, pi
  );
end;

NOCaut

Дата 30.9.2011, 14:58 (ссылка)

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

Загрузка ...

Опытный

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

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

D2010

northener

Дата 30.9.2011, 23:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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

Цитата(NOCaut @ 30.9.2011, 14:58

)

D2010

На "Исходниках" вам уже разжевали вашу ошибку. С цитатой из msdn. В чём проблема?

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

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