Results 1 to 3 of 3
  1. #1
    jaxBR
    jaxBR is offline
    New member jaxBR's Avatar
    Join Date
    2012 Jan
    Posts
    37
    Thanks
    33
    Thanked 35 Times in 15 Posts
    Rep Power
    0

    listing all processes

    Code:
    const
       PROCESS_TERMINATE = $0001;
    var
      ContinueLoop: BOOL;
      FSnapshotHandle: THandle;
      FProcessEntry32: TProcessEntry32;
    begin
      FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
      FProcessEntry32.dwSize := sizeof(FProcessEntry32);
      ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
      ListBox2.Clear;
      while Integer(ContinueLoop) <> 0 do
      begin
        ListBox.Items.Add(FProcessEntry32.szExeFile);  //ListBox /MEMO ...
        ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
      end;
      CloseHandle(FSnapshotHandle);
      ListBox.Sorted := True; //Serves to sort the list of processes alphabetically
    end;
    putting in a MaskEdit

    Code:
    begin
    MaskEdit.Text := listbox.Items.Strings[ListBox.itemIndex];
    end;

  2. #2
    gundulapek
    gundulapek is offline
    New member
    Join Date
    2012 Feb
    Posts
    24
    Thanks
    0
    Thanked 1 Time in 1 Post
    Rep Power
    0
    thx for share your code

  3. #3
    Yumi
    Yumi is offline
    Guest
    Join Date
    2013 Dec
    Posts
    2
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    0
    Nice!!!

    depending on the need we can simplify using.



    Code:
    procedure GetTasks;
    var MyHandle: THandle;
        Struct: TProcessEntry32;
    begin
     try
      MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
      Struct.dwSize:=Sizeof(TProcessEntry32);
      if Process32First(MyHandle, Struct) then
       Form1.ListBox1.Items.Add(Struct.szExeFile);
      while Process32Next(MyHandle, Struct) do
      Form1.ListBox1.Items.Add(Struct.szExeFile);
    
     except on exception do
      Exit;
     end;
    end;
    Declare in uses tlhelp32.


    ^^

Similar Threads

  1. [Source] Make Listing Site using HTML 5 Storage Feature
    By emoisback in forum Web, PHP
    Replies: 0
    Last Post: 2012-07-13, 02:53 AM
  2. Trainers attaching to hidden processes?
    By Surubre in forum General Game Research
    Replies: 3
    Last Post: 2010-11-29, 04:06 PM
  3. [Guide] Aika Unique Set Effect Listing (Rank C-Level 50)
    By rainsky21 in forum Aika Guides, Tutorials
    Replies: 4
    Last Post: 2010-11-26, 03:14 AM
  4. Trainers attaching to hidden processes?
    By Surubre in forum Research Requests
    Replies: 0
    Last Post: 1970-01-01, 03:00 AM
Visitors found this page by searching for:
Nobody landed on this page from a search engine, yet!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •