Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Вниз

CreateProcess в WinXP   Найти похожие ветки 

 
-= Demon =-   (2003-09-15 13:13) [0]

Добрый день! Столкнулся с проблемой создания процесса в WinXP. Во всех остальных операционках ее нет (просто сообщение об ошибке и невозможности дальнейшей работы). Вот рабочая функция:

function Exec(cmd, dir: string; ToShow: Boolean): boolean;
var
pi: TProcessInformation;
si: TStartupInfo;
begin
ZeroMemory(@si, sizeof(si));
si.cb:=SizeOf(si);
si.lpReserved:=nil;
si.lpDesktop:=nil;
si.lpReserved2:=nil;
si.cbReserved2:=0;
if ToShow then
si.wShowWindow:=SW_SHOWNORMAL
else
si.wShowWindow:=SW_HIDE;
si.dwFlags:=STARTF_FORCEONFEEDBACK + STARTF_USESHOWWINDOW;
si.lpTitle:=PChar(sTitle);

Result:=CreateProcess(
nil, // pointer to name of executable module
PChar(cmd), // pointer to command line string
nil, // pointer to process security attributes
nil, // pointer to thread security attributes
False, // handle inheritance flag
REALTIME_PRIORITY_CLASS, // creation flags
nil, // pointer to new environment block
nil, // pointer to current directory name
si, // pointer to STARTUPINFO
pi // pointer to PROCESS_INFORMATION
);

WaitforSingleObject(pi.hProcess, INFINITE);
TerminateProcess(pi.hProcess, 0);
end;
//---------------------------------------------------------

Кто-нибудь сталкивался с подобным? Как смогли решить проблему? Главная задача - запустить другое приложение и дождаться его завершения. Напоминаю, работает ВЕЗДЕ, КРОМЕ WIN"XP!


 
Nikolay M.   (2003-09-15 13:27) [1]

У меня этот код работает.
Может, не стоят сервис-паки на ХР/дельфи или нет прав на запуск процессов с приоритетом REALTIME_PRIORITY_CLASS?



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

Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.01 c
14-82496
gn
2003-09-05 06:11
2003.09.25
а ктонибудь своих подруг учит языкам


3-82037
Хлам
2003-09-03 10:31
2003.09.25
Вопрос по SQL...Скорей всего простейший


1-82263
Zhouck
2003-09-15 12:40
2003.09.25
OpenOffice


6-82356
FGTB_8
2003-07-27 13:40
2003.09.25
Как сделать чтобы прога висела в нете, имела свой адрес (к пример


3-82047
BillyJeans
2003-09-02 17:32
2003.09.25
Фильтрация по дате в TDbf...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский