[ Outline ] · Standard · Linear+ MG Riddle Se Obnavlja, Nov dizajn i struktura

[pyost]

Kao sto ste mozda primetili, na forumu vise ne postoji MG Riddle (*kolektivni awww*). To je zato sto cemo sledece tri nedelje raditi na novoj verziji koja nece biti vezana za forum. Nazalost, na ovaj nacin svi ponovo krecu od prvog nivoa, ali to ne bi trebalo da vas brine, jer ce veliki broj zadataka biti isti kao i sada.

Najvaznije promene ce se ticati korisnickog interfejsa, odnosno izgleda samog MGRa. Takodje ce biti uvedene neke bezbednosne mere da bi se otezalo varanje, kao i veliki broj novih zadataka.

[NeverMore21]

Heh, taj zadatak sam ja smislio Ako hoces hint, moraces da mi posaljes ono za brisanje index.dat fajlova sto sam ti trazio pre par nedelja

Pa sto ne trazis ! Fora je u tome da iskljucis explorer.exe pre brisanja fajla! Proceduru za brisanje imas, a sad cu da ti postujem funkciju za ubijanje procesa:

CODE

{Za Windows 9x/ME/2000/XP }

uses
 Tlhelp32;

function KillTask(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
 KillTask('notepad.exe');
end;

{ Za Windows NT/2000/XP }

procedure KillProcess(hWindowHandle: HWND);
var
 hprocessID: INTEGER;
 processHandle: THandle;
 DWResult: DWORD;
begin
 SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0,
   SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);

 if isWindow(hWindowHandle) then
 begin
   // PostMessage(hWindowHandle, WM_QUIT, 0, 0);

   // dobijanje identifikatora procesa u Windowsu
   GetWindowThreadProcessID(hWindowHandle, @hprocessID);
   if hprocessID <> 0 then
   begin
     // Otkrivanje hendla procesa
     processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,
       False, hprocessID);
     if processHandle <> 0 then
     begin
       // Ubijanje procesa
       TerminateProcess(processHandle, 0);
       CloseHandle(ProcessHandle);
     end;
   end;
 end;
end;

// primer korišćenja…
procedure TForm1.Button2Click(Sender: TObject);
begin
 KillProcess(FindWindow('notepad',nil));
end;

Kad izbrises index.dat samo ponovo startuj explorer.exe preko WinExec funkcije i to ti je to ! Ajde sad hint !!!