Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.11;
Скачать: CL | DM;

Вниз

Серис для WinXP   Найти похожие ветки 

 
TerminalHead ©   (2005-08-20 22:00) [0]

Серис для WinXP
Я пытаюсь сделать сервис для WinXP его задача должна заключатся в том чтобы запускатся вместе с ОС и проверять запущена ли определенная программа, и если она не запущена то запускать ее.
Только проблема в том что он все делает правильно за исключением того что программа в процессах висит, но она не работает, нет ни форм, ни других признаков ее работы. Но в процессах программа есть, и если ее завершить, то сервис как и надо запускает снова.
Притом если этот же код используется в обычном приложении то он работает отлично.
Вот код:
----

function EXE_Running(FileName: string; bFullpath: Boolean): Boolean;
var
 i: Integer;
 MyProcList: TstringList;
begin
 MyProcList := TStringList.Create;
 try
   GetProcessList(MyProcList);
   Result := False;
   if MyProcList = nil then
     Exit;
   for i := 0 to MyProcList.Count - 1 do
   begin
     if not bFullpath then
     begin
       if CompareText(ExtractFileName(MyProcList.Strings[i]), FileName) = 0
         then
         Result := True
     end
     else if CompareText(MyProcList.strings[i], FileName) = 0 then
       Result := True;
     if Result then
       Break;
   end;
 finally
   MyProcList.Free;
 end;
end;

procedure TXService.Timer1Timer(Sender: TObject);
begin
 if not EXE_Running("C:\WINDOWS\system32\Project1.exe", True) then
 begin
   StrPcopy(p1, "");
   if GetModuleHandle(p1) = 0 then
   begin
     StrPcopy(p2, "C:\WINDOWS\system32\Project1.exe");
     w1 := WinExec(p2, SW_Restore);
   end;
 end;
end;

----


 
TerminalHead ©   (2005-08-20 22:08) [1]

исходники : http://vova.ws/service3.rar



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

Текущий архив: 2005.09.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
14-1124074481
Alexander Panov
2005-08-15 06:54
2005.09.11
Просьба потестировать.


4-1121972941
SpyBoy
2005-07-21 23:09
2005.09.11
Количество дней в определённом месяце


4-1122039910
alex-drob
2005-07-22 17:45
2005.09.11
Как поместить свою форму на панель Windows


14-1124103208
root
2005-08-15 14:53
2005.09.11
Проблемма с часам


4-1122024870
DimaBr
2005-07-22 13:34
2005.09.11
Handle окна