no wiec tak potrzebuje schowac pewien program :P chodzi o emule gdyz moja siora gdy wlazi na kompa i cos robi bierze i mi wylacza mulka :-8 wiec zrobilem to tak:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
PHandle, FHandle: THandle;
Process:TProcessEntry32;
Done, Next: Boolean;
EXE : String;
begin
EXE := 'emule.exe';
FHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
Process.dwSize := Sizeof(Process);
Next := Process32First(FHandle,Process);
while Next do
begin
if AnsiLowerCase(Process.szExeFile) = AnsiLowerCase(EXE) then
begin
PHandle:=OpenProcess(PROCESS_ALL_ACCESS, false,
Process.th32ProcessID);
ShowWindow(pHandle, SW_HIDE);
form1.log.items.Add('-eMule ukryte...');
end;
Next := Process32Next(FHandle,Process);
end;
CloseHandle(FHandle);
end;
ale nie dziala :/ moze ktos pomoze :>>>>> plzzz