| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

не работает ShellExecute [D7, WinXP]

RAndrey ©   (2007-07-04 20:23:00) 

Добрый день!

Подскажите, почему не работает следующая команда:

ShellExecute(Handle, Pchar('Open'),Pchar('erase /Q /F /S e:\new\*.*'), nil, nil, SW_HIDE);

функция возвращает значение 2. Если судить по хелпу - это ERROR_PATH_NOT_FOUND.

---

RAndrey   (2007-07-05 08:13:00) [1]

> {RASkov}


Спасибо, весьма Вам признателен.

---

{RASkov}   (2007-07-04 22:15:00) [2]

ShellExecute(Handle, nil, PChar(GetEnvironmentVariable('ComSpec')), '/c erase /Q /F /S e:\new\*.*', nil, SW_HIDE);

---

{RASkov}   (2007-07-04 22:12:00) [3]

> Такой программы erase нет

Я что-то и не обратил внимание) Точно...

> [0] RAndrey   (04.07.07 20:23)

cmd /?
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=45488

---

Anatoly Podgoretsky   (2007-07-04 21:32:00) [4]

> RAndrey  (04.07.2007 20:23:00)  [0]

Такой программы erase нет - это директива командного интерпритатора.

---

{RASkov}   (2007-07-04 20:54:00) [5]

> [0] RAndrey   (04.07.07 20:23)

function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,
 Directory: PChar; ShowCmd: Integer): HINST; stdcall;
[1]+1
Так не обязательно Pchar('Open'), достаточно просто константу - 'Open' - но это, в данном случае, не важно...

---

Dib@zol   (2007-07-04 20:26:00) [6]

> 'erase /Q /F /S e:\new\*.*'


А откуда берётся прога "erase"? Пропиши к ней полный путь и будет тебе шшастье.

---

Наверх