راه حل برای درست شدن دابل کلیک
باید همه درایوها را scandisk کنی و دستگاه را ریست کرد
درست می شه:20:
پاک کردن ویروس kazme ghey بدون عوض کردن ویندوز
دوستان فایلهایی رو که ویروس تولید می کنه را معرفی کردن(FSP32,Virus,Service).:31:
برای عوض نکردن ویندوز هم :
1-با ERD commander سیستم رو بوت کنید
بعد فایلها رو پاک کنید.نحوه پاک کردن رجیستری هم که دوستان گفتند.
2-به آدرس
کد:
http://iran-eng.com/showthread.php?t=36914&page=2
همه چیو اونجا نوشتم.آنتیشم که دستساز خودم و سرسشم دارید می بینید براتون گذاشتم.
اینم سورس انتی ویروس
Function EnumWindowsProc2 (wnd: HWND; List: TStrings) : boolean ;stdcall;
var Caption: array[0..256] of Char;
begin
if GetWindowText (wnd, Caption, SizeOf(Caption)-1) <> 0 then
begin
if not IsWindowVisible(wnd) then
List.AddObject( caption, TObject( Wnd ));
end;
Result :=True;
end;
//----
Function GetProcessListTStringList;
begin
Result:=TStringList.Create;
EnumWindows(@EnumWindowsProc2, Integer(result));
end;
//----
Function EndTaskV(TaskName:String;TaskHWND:Hwnd):Boolean;
var hProcess,i : HWND;
pid : DWORD;
begin
Result:=false;
i := TaskHWND;
PostMessage(i,wm_close,0,0);
GetWindowThreadProcessID( i, @pid );
hProcess := OpenProcess(PROCESS_ALL_ACCESS, TRUE, pid);
Result:=TerminateProcess(hProcess, 0);
end;
//ProcessName:='service'; Ver2
// ProcessName:=' kazme_gheyz'; Ver1 Attention kazme_gheyz Not kazme__gheyz !
;ProcessList1:=GetProcessList
if EndTaskV(ProcessList1[j],HWND(ProcessList1.Objects[j])) Then
Memo1.Lines.Add('Kill Process '+ProcessList1[j]+' KGH Ver '+IntToStr(Ver) +' OK
موفق باشید و پیروز.
