Finalizar processo

[João Paulo Taraciuk 0]

Boa tarde a todos, estou realizando um backup físico, e estou encontrando dificuldades na hora de jogar o banco novamente na pasta data do Mysql, não estou conseguindo finalizar o mysqld-nt, já tentei várias dicas, mas nenhuma deu certo, tentei esta

function Finalizaprocesso(ExeFileName: string): integer;

const

PROCESS_TERMINATE=$0001;

var

ContinueLoop: BOOL;

FSnapshotHandle: THandle;

FProcessEntry32: TProcessEntry32;

begin

result := 0;

 

FSnapshotHandle := CreateToolhelp32Snapshot

(TH32CS_SNAPPROCESS, 0);

FProcessEntry32.dwSize := Sizeof(FProcessEntry32);

ContinueLoop := Process32First(FSnapshotHandle,

FProcessEntry32);

 

while integer(ContinueLoop) <> 0 do

begin

if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =

UpperCase(ExeFileName))

or (UpperCase(FProcessEntry32.szExeFile) =

UpperCase(ExeFileName))) then

Result := Integer(TerminateProcess(OpenProcess(

PROCESS_TERMINATE, BOOL(0),

FProcessEntry32.th32ProcessID), 0));

ContinueLoop := Process32Next(FSnapshotHandle,

FProcessEntry32);

end;

 

CloseHandle(FSnapshotHandle);

end;

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

FinalizaProcesso('mysqld-nt.exe');

end;

se alguém puder me dar uma dica eu agradeço.

Abraços.

[marcio.theis 3]

Esse processo é do windows, ou você esta querendo é fechar o processo somente ?

[João Paulo Taraciuk 0]

Então, o que pretendo fazer é o seguinte, seria como pressionar CTRL+ALT+DEL e escolher o processo mysqld-nt.exe, pois tenho que finalizar ele para trocar o banco dentro da pasta data, e depois inicializá-lo novamente para utilizar o banco, mas queria fazer isto automaticamente.

[Bortolini 0]

Bhá galera também estou com este problema.

No meu casso o processo tem como "dono" o SYSTEM, conforme verificado no CTRL + ALT + DEL, uso uma função igual esta acima que finaliza apenas os processos de usuários (ex "Administrador") mas o do SYSTEM não tem jeito.

 

Alguém tem alguma idéia ?

 

Há alguma forma de modificar a prioridade de acesso do processo via programação (Delphi 7), antes de executar a função que finaliza ?

 

Desde já agradeço pela paciência...

 

att

 

Marcelo Bortolini

Acadêmico Sistemas de Informação

ULBRA - Carazinho - RS