не работает 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

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

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

> {RASkov}

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

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