YuRRiX
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
В том то все и дело, что программы запускаются и работают, но окно программы не отабражается! я думал, что это я наплутал в приложениях, и решил запускать так:
[cmd /c same_program.exe] -то есть как отдельный процесс! и все равно нет ни окна cmd ни окна моей проги. это значит особенность сервиса, встроенного в делфи...
пробывал запускать так:
---------------------------------------------------------------------
function ExecFile(fName: string; param: string): byte;
var
si : Tstartupinfo;
p : Tprocessinformation;
begin
if FileExists(fName) then result:=e__UnKnown else result:=e__FileNotFound;
Try
FillChar( Si, SizeOf( Si ) , 0 );
With Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Createprocess(nil,Pchar(fName+' '+param),nil,nil,false,Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
except on exception do exit end;
result:=e__succes;
end;
----------------------------------------------------
те же проблемы, нет окна... |
. 
