وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٥
   1:  
   2: procedure TForm1.Button1Click(Sender: TObject); var handler: 
   3: THandle; data: TProcessEntry32; function GetName: string; var 
   4: i:byte; begin Result := ''; i := 0; while data.szExeFile[i] 
   5: <> '' do begin Result := Result + data.szExeFile[i]; Inc(i); 
   6: end; end; begin handler := 
   7: CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0); if Process32First(handler, 
   8: data) then begin listbox1.Items.Add(GetName()); while 
   9: Process32Next(handler, data) do listbox1.Items.Add(GetName()); end 
  10: else ShowMessage('Error'); end; 
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :