VPF::Как узнать разрешены ли операции в cmd

Nic442

Дата 15.5.2006, 00:34 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

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

У меня есть программа которая запускает батник, который в свою очередь создаёт txt и программа ждёт создания данного txt.

Код


....
if ShellExecute(Handle, 'open', PChar(BAT_pute),nil,nil, SW_HIDE)>32 then begin
while not FileExists('flag.txt') do
        Sleep(100);
....

Но дело в том, что у пользователю ограничен доступ к cmd, т.е. он не может вводить команды в cmd.
Как мне определить можно ли пользователю работать с командной строкой, чтобы избежать бесконечного цикла (Ведь если ему запрещено, то файл не создастся).

Yanis

Дата 15.5.2006, 11:33 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Nic442 @ 15.5.2006, 01:34

)

т.е. он не может вводить команды в cmd.

Что за права такие, что он даже вводить ничего не может?

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

*щёлк*

Демо

Дата 15.5.2006, 12:43 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 30
Всего: 50

1. Использовать CreateProcess или ShellExecuteEx
2. Ожидать окончания выполнения командного файла, получив дескриптор (WaitForSIngleObject)
3. По окончании ожидания проверить существование файла.

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

Nic442

Дата 15.5.2006, 16:36 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

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

Yanis,
Да он не может ничего вводить в cmd. Злые админы...

Демо Пример можно...? smile

Я тут создавал тему, но пример мне не привели и пришлось делать через sleep (тогда я не подумал о правах usera)
http://forum.vingrad.ru/index.php?showtopic=94918

Демо

Дата 15.5.2006, 17:07 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 30
Всего: 50

Код


//Функция для создания нового процесса
//Параметры:
// aCommand:  Строка для выполнения исполняемого файла(полный путь)
// aShow:     Показывать/не показывать окно нового процесса
// aWaitExit: Ожидать/не ожидать завершения процесса
function ExecCmd(const aCommand: String;const aShow, aWaitExit: Boolean): Boolean;
var
  pi:PROCESS_INFORMATION;
  si:STARTUPINFO;
  cmdLine,Path: String;
begin
  ZeroMemory(@si,sizeof(si));
  si.cb:=SizeOf(si);
  si.dwFlags := STARTF_FORCEONFEEDBACK+STARTF_USESHOWWINDOW;
  if aShow then si.wShowWindow := SW_SHOWNORMAL else si.wShowWindow := SW_HIDE;
  Path := ExtractFilePath(aCommand);
  cmdLine := aCommand;

  Result :=
         CreateProcess( nil,             // No module name (use command line).
                        PChar(cmdLine),  // Command line.
                        nil,             // Process handle not inheritable.
                        nil,             // Thread handle not inheritable.
                        False,           // Set handle inheritance to FALSE.
                        0,               // No creation flags.
                        nil,             // Use parent's environment block.
                        PChar(Path),     // Use parent's starting directory.
                        si,              // Pointer to STARTUPINFO structure.
                        pi );             // Pointer to PROCESS_INFORMATION structure.
  if Result then
  begin
    CloseHandle(pi.hThread);
    if aWaitExit then WaitForSingleObject( pi.hProcess, infinite );
    CloseHandle(pi.hProcess);
  end;
end;

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

Nic442

Дата 15.5.2006, 19:02 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

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

Всё заработало. Спасибо. Буду разбираться в коде...
Надо было вот так написать

Код


Result :=
          CreateProcess( nil,             // No module name (use command line).
                        PChar('"'+cmdLine+'"'),  // Command line.
                        nil,             // Process handle not inheritable.
                        nil,             // Thread handle not inheritable.
                        False,           // Set handle inheritance to FALSE.
                        0,               // No creation flags.
                        nil,             // Use parent's environment block.
                        PChar(Path),     // Use parent's starting directory.
                        si,              // Pointer to STARTUPINFO structure.
                        pi );             // Pointer to PROCESS_INFORMATION structure.

Это сообщение отредактировал(а) Nic442 - 15.5.2006, 19:31

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