سوال : بدست آوردن ليست پروسه هاي در حال اجرا ؟

[BORHAN TEC]

مدتي است كه به دنبال كدي مي گردم كه بتواند ليستي از پروسه هاي در حال اجرا تهيه كند. بايد بگويم كه اين كار را با استفاده از كد زير انجام داده ام ولي مشكل اين جا است كه نميتوانم مسير اين فايلها را بدست آورم.(به عنوان مثال c:\new Folder\1.exe)

var

  hSnapshot : LongInt;

  info : PROCESSENTRY32W;

  s : longbool;

  exeName : string;

  retval : LongInt;

begin

ListBox1.Items.Clear;

  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);



  info.dwSize := SizeOf(info);



  s := Process32FirstW(hSnapshot,info);

  while s<>false do begin

    ListBox1.Items.Add(info.szExeFile);

    info.dwSize := sizeof(info);

    s :=Process32NextW(hSnapshot, info);

  end;



  CloseHandle(hSnapshot);

end;

در ضمن براي اين كه اين كد كار كند بايد tlhelp32 را نيز به قسمت uses اضافه كنيد.