VPF::Проблема с Create process - Форум программистов

Sponger

Дата 23.6.2006, 12:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

Как задать процессу запускаемому через Create process права такие как у основной программы.

Проблема в том что запускаемый процесс не имеет прав на запись в сетевую папку, хотя если этот же процесс запускать через командную строку с теми же параметрами то все проходит нормально.

_hunter

Дата 23.6.2006, 12:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

права в окнах задаются не на уровне программ а на уровне пользователей.
поэтому программа, запущенная программой (если не имеет место CreateProcessAsUser), имеет те же права что и запустившая ее программа

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

Tempora mutantur, et nos mutamur in illis...

Sponger

Дата 23.6.2006, 13:57 (ссылка)

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

Загрузка ...

Бывалый

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

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

Я это понимаю, но у меня как раз такой случай.

Snowy

Дата 23.6.2006, 14:11 (ссылка)

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

Загрузка ...

Эксперт

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

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

А ты секьюрить аттрибуты указываешь, или просто nil вместо них даёшь?

Sponger

Дата 23.6.2006, 15:58 (ссылка)

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

Загрузка ...

Бывалый

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

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

nil

Я не знаю что туда писать.

_hunter

Дата 23.6.2006, 16:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

покажи код.
+ посмотри выполняются ли какие-то действия с хендлом процесса (если код в наследство остался)

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

Tempora mutantur, et nos mutamur in illis...

Snowy

Дата 23.6.2006, 16:17 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Sponger @ 23.6.2006, 15:58

)

Я не знаю что туда писать.

Пиши туда размер структуры, nil и false;

Sunvas

Дата 23.6.2006, 19:03 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Попробуй Shellexecute и winexec вместо createprocess использовать.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Sponger

Дата 24.6.2006, 05:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


function imageReSize(sourceName, targetName, sPathName : string; DOTPicture : integer; GrayColor : boolean) : boolean; // GrayColor = TRUE - grayscale
var fileNameExecute, sParameters : string;
    pi : TProcessInformation;
    si : TStartupInfo;
begin
  fileNameExecute := fmain.sPathName[0] + '\nconvert.exe';

  if GrayColor then sParameters := '-out jpeg -grey 256 -q 80 -ratio -resize 1024 0 -o "' + sPathName + '\' + targetName + '" "' + sourceName + '"'
    else sParameters := '-out jpeg -q 70 -ratio -resize 1024 0 -o "' + sPathName + '\' + targetName + '" "' + sourceName + '"';

  ZeroMemory(@si, sizeof(si));
  si.cb := SizeOf(si);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_HIDE;
  if CreateProcess(nil, PChar(fileNameExecute + ' ' + sParameters), nil, nil, false, 0, nil, nil, si, pi) then begin
    WaitForSingleObject(pi.hProcess, INFINITE);
    CloseHandle(pi.hProcess);
    CloseHandle(pi.hThread);
    result := TRUE;
  end  else result := FALSE; 
end;

ShellExecute тоже не работает.

Т.е. все это работает, но только у определенных пользователей.
У остальных пользователей, права на доступ идентичные, но не работает. Мистика.

В принципе нашел причину, но не пойму почему не работает.

sourceName - этот параметр это существующий файл.
В процедуре которая вызывает эту функцию берутся все файлы соответствующие маске *.jpg и по одному передаются в sourceName.
т.к. вот. Список файлов которые мне нужны находятся в TJvFileListBox. Вот этот компонент и блокирует файл. Причем блокирует работу и по сети и локально тоже.
Если использую FindFirst, FindNext все работает нормально.

Я вот и не понимаю почему у пользователей у которых абсолютно идентичные права, так получается.

А я, блин, с нашим сисадмином весь сервак перелопатил, думали где-то права доступа не правильно указаны.

Это сообщение отредактировал(а) Sponger - 24.6.2006, 05:04

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