Скачать: CL | DM;

не работает ShellExecute   Найти похожие ветки 

← →
RAndrey   (2007-07-04 20:23) [0]

Добрый день!

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

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

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

---

← →
Dib@zol ©   (2007-07-04 20:26) [1]

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


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

---

← →
{RASkov} ©   (2007-07-04 20:54) [2]

> [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" - но это, в данном случае, не важно...

---

← →
Anatoly Podgoretsky ©   (2007-07-04 21:32) [3]

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

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

---

← →
{RASkov} ©   (2007-07-04 22:12) [4]

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

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

> [0] RAndrey   (04.07.07 20:23)

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

---

← →
{RASkov} ©   (2007-07-04 22:15) [5]

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

---

← →
RAndrey   (2007-07-05 08:13) [6]

> {RASkov}


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c