перезапуск процесса через Delphi

[Po$amax@]

Сабж, помогите сделать, пожалуйста

[bayarookie]

TerminateProcess(номер процесса, номер ошибки);

а потом опять запустить или чего?

[Po$amax@]

bayarookie

можно так попробовать, только как вычислить номер процесса EXPLORER.EXE и потом его запустить, надо срочно

[D_Master]

Po$amax@

// Для примера возьмем привилегию отладки приложений 'SeDebugPrivilege'
// необходимую для завершения ЛЮБЫХ процессов в системе (завершение процесов
// созданных текущим пользователем привилегия не нужна.

function ProcessTerminate(dwPID:Cardinal):Boolean;
var
hToken:THandle;
SeDebugNameValue:Int64;
tkp:TOKEN_PRIVILEGES;
ReturnLength:Cardinal;
hProcess:THandle;
begin
Result:=false;
// Добавляем привилегию SeDebugPrivilege
// Для начала получаем токен нашего процесса
if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, hToken ) then
exit;

// Получаем LUID привилегии
if not LookupPrivilegeValue( nil, 'SeDebugPrivilege', SeDebugNameValue )
then begin
CloseHandle(hToken);
exit;
end;

tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Luid := SeDebugNameValue;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

// Добавляем привилегию к нашему процессу
AdjustTokenPrivileges(hToken,false,tkp,SizeOf(tkp),tkp,ReturnLength);
if GetLastError()< > ERROR_SUCCESS then exit;

// Завершаем процесс. Если у нас есть SeDebugPrivilege, то мы можем
// завершить и системный процесс
// Получаем дескриптор процесса для его завершения
hProcess := OpenProcess(PROCESS_TERMINATE, FALSE, dwPID);
if hProcess =0 then exit;
// Завершаем процесс
if not TerminateProcess(hProcess, DWORD(-1))
then exit;
CloseHandle( hProcess );

// Удаляем привилегию
tkp.Privileges[0].Attributes := 0;
AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(tkp), tkp, ReturnLength);
if GetLastError() < > ERROR_SUCCESS
then exit;

Result:=true;
end;

// Название добавление/удаление привилгии немного неправильные. Привилегия или
// есть в токене процесса или ее нет. Если привилегия есть, то она может быть в
// двух состояниях - или включеная или отключеная. И в этом примере мы только
// включаем или выключаем необходимую привилегию, а не добавляем ее.

// Включение, приминение и отключения привилегии.

или

begin
ct:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
Process32First(ct,p);
while Process32Next(ct,p) do begin
if p.szExeFile='winamp.exe' then
begin
th:=OpenProcess(PROCESS_ALL_ACCESS,false,p.th32ProcessID);
TerminateProcess(th,0);
end;
end; {}
end;

var p:PROCESSENTRY32;ct:cardinal;th:Cardinal;

или

...
function KillTask(ExeFileName:string):integer;
const
PROCESS_TERMINATE=$0001;
var
Co:BOOL;
FS:THandle;
FP:TProcessEntry32;
begin
result:=0;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
if ((UpperCase(ExtractFileName(FP.szExeFile))=UpperCase(ExeFileName)) or
(UpperCase(FP.szExeFile)=UpperCase(ExeFileName))) then
Result:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
FP.th32ProcessID),0));
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
end;

uses Tlhelp32;

ЗЫ Я в Делфи ни бум-бум, так что, если это не то, то не пинать

[Po$amax@]

Как можно создать файл в папке, например some.ini ??

или как createfile пользоваться???

ДА. Как можно атрибут файлу через дельфи поставить? (мне надо readonly, hidden и system)

[D_Master]

Po$amax@

имхо легче батник написать

@Echo off
Echo SomeText>SOME.INI
Echo SomeLine>>SOME.INI

Attrib +R +S +H C:\SOME.INI
Exit

R - readonly, S - system, H - hidden.

[Po$amax@]

D_Master

нене, надо на Delphi только.

Кстати, я чет не могу посредством моей проги сменить значек у папки =( Сколько не пытал

[D_Master]

Кстати, я чет не могу посредством моей проги сменить значек у папки

И какое же расширение ты задавал?

Значок папки задается из файла desktop.ini, который лежит в корне папки.

Содержимое:

[.ShellClassInfo]
IconResource=C:\Windows\system32\SHELL32.dll,13

[Po$amax@]

Все, сделал =) уже не надо, но все равно спасибо =)

[NAT]

В Delphi World всё это есть

[Po$amax@]

В Delphi World всё это есть

про Inifile я знаю, что есть, я оттуда и учился давно =)

А вот с рестартом я не нашел ниче

[D_Master]

А вот с рестартом я не нашел ниче

Возьми стороннюю прогу, которая будет перезапускать эксплорер

[NAT]

Po$amax@

TerminateProcess(номер процесса, номер ошибки);

а потом опять запустить или чего?

вот так сделать да и всё

[Po$amax@]

D_Master

не, не поняли вы пхд. Уже сделано все =) примеры d_master'a помогли =)