View Full Version : سوال: مشکل در Service Application
Mask
یک شنبه 12 تیر 1390, 16:13 عصر
با سلام
سرویسی طراحی کردم. همه قسمتها به درستی کار میکنه. فقط مشکل اینه که در onstart سرویس از دستور
ShellExecute(0, 'open', pchar('c:\1\t.exe'), nil, nil, SW_SHOWNORMAL);
استفاده کردم.
برنامه t.exe باز میشه اما فرمش نمایش داده نمیشه.
چطوری این مشکل رو برطرف کنم.
ممنون.
Felony
یک شنبه 12 تیر 1390, 16:39 عصر
با استفاده از CreateProcess (http://msdn.microsoft.com/en-us/library/ms682425(VS.85).aspx) فایل رو اجرا کنید .
در مورد اون سوال اجرا از طریق User دیگه هم میتونید از CreateProcessAsUser (http://msdn.microsoft.com/en-us/library/ms682429(v=VS.85).aspx) استفاده کنید .
Mask
یک شنبه 12 تیر 1390, 17:13 عصر
ممنون
اما با CreateProcess (http://msdn.microsoft.com/en-us/library/ms682425%28VS.85%29.aspx) هم حل نشد. برنامه اجرا میشه . اما فرم نداره.
از روال زیر استفاده کردم.
procedure ExecNewProcess(ProgramName : String; Wait: Boolean);
var
StartInfo : TStartupInfo;
ProcInfo : TProcessInformation;
CreateOK : Boolean;
begin
{ fill with known state }
FillChar(StartInfo,SizeOf(TStartupInfo),#0);
FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
StartInfo.cb := SizeOf(TStartupInfo);
CreateOK := CreateProcess(nil, PChar(ProgramName), nil, nil,False,
CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,
nil, nil, StartInfo, ProcInfo);
{ check to see if successful }
if CreateOK then
begin
//may or may not be needed. Usually wait for child processes
if Wait then
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end
else
begin
ShowMessage('Unable to run '+ProgramName);
end;
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
mossaferin
دوشنبه 13 تیر 1390, 12:40 عصر
سلام
یا روی فرم سرویس interactive رو true کن
یا گزینه allow service to interact with desktop از تب log on پروپرتیس سرویس توی سرویس منیجر تیک بزن
موفق باشی
Mask
سه شنبه 14 تیر 1390, 16:20 عصر
ممنون از راهنماییتون.
اما این روش مخصوصه ویندوز xp و پایینتره.
من در ویندوز xp مشکل ندارم.
مشکل در ویندوز سون هست. گویا در پستهای زیر ، دوستان درگیر همچین مشکلی بودند.
اگه محبت کنند و نتیجه کارشون رو قرار بدهند . خیلی خوبه.
با تشکر.
http://barnamenevis.org/showthread.php?282119-%D8%A7%D8%AC%D8%B1%D8%A7-%D9%86%D8%B4%D8%AF%D9%86-%D9%87%DB%8C%DA%86-%D8%AF%DB%8C%D8%A7%D9%84%D9%88%DA%AF-%D9%88-%D9%81%D8%A7%DB%8C%D9%84%DB%8C-%D8%AF%D8%B1-Application-Service
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.