How can i pull date from process to delphi

Hi, I can pull the process image names from taskmanger into delphi but I want to also pull in the description of each file.

                                           images name      username     cpu   memory     description
for example i can pull in:     sonicT.exe      
but i want to pull in:             sonicT.exe                                                         1.1.0

If you check your own process window you will see descripton at the far raght, well I need to pull that into delphi.
This is my code to pull in image names:


procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
Struct: TProcessEntry32;
begin
try
MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
Struct.dwSize:=Sizeof(TProcessEntry32);
if Process32First(MyHandle, Struct) then
ListBox1.Items.Add(Struct.szExeFile);
while Process32Next(MyHandle, Struct) do
ListBox1.Items.Add(Struct.szExeFile);
except on exception do
ShowMessage('Error showing process list');
end
end;

Open in new window

SonicM3Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

SonicM3Author Commented:
i am stuck on this people, sorry i am not patient but i am so far behind i am trying to catch up tonight, all night.  
0
Geert GOracle dbaCommented:
what is this for ?

that's not the description, that's the file version !



function GetFileVersion(const FileName: TFileName): string;
var
  Major, Minor, Release, Build: word;
  size, len: longword;
  handle: THandle;
  buffer: pchar;
  pinfo: ^VS_FIXEDFILEINFO;
begin
    Major := 0;
    Minor := 0;
    Release := 0;
    Build := 0;
    size := GetFileVersionInfoSize(Pointer(FileName), handle);
    if size > 0 then
    begin
      GetMem(buffer, size);
      if GetFileVersionInfo(Pointer(FileName), 0, size, buffer)
      then
        if VerQueryValue(buffer, '\', pointer(pinfo), len) then
        begin
          Major   := HiWord(pinfo.dwFileVersionMS);
          Minor   := LoWord(pinfo.dwFileVersionMS);
          Release := HiWord(pinfo.dwFileVersionLS);
          Build   := LoWord(pinfo.dwFileVersionLS);
        end;
      FreeMem(buffer);
    end;
    result := Format('%d.%d.%d.%d',[Major, Minor, Release, Build]);
end;

Open in new window

0
SonicM3Author Commented:
yer i know i said i want the file description.
ignore the 1.1.0 my program shows the version inside description that was just example.
0
Newly released Acronis True Image 2019

In announcing the release of the 15th Anniversary Edition of Acronis True Image 2019, the company revealed that its artificial intelligence-based anti-ransomware technology – stopped more than 200,000 ransomware attacks on 150,000 customers last year.

SonicM3Author Commented:
just going to check the code now buddy
0
SonicM3Author Commented:
when i paste this code in its just a blank screen    any ideas?
0
SonicM3Author Commented:
i need to know how to oupput results pls into a listbox via a button.
0
Geert GOracle dbaCommented:
do you have anything else working in your "project"
besides this listing of running programs ?
0
SonicM3Author Commented:
my project is massive..but i want to get this working in a blank project first so it outputs into a listbox when button1 is pressed.
0
SonicM3Author Commented:
uses TLHelp32

procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
Struct: TProcessEntry32;
begin
try
MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
Struct.dwSize:=Sizeof(TProcessEntry32);
if Process32First(MyHandle, Struct) then
ListBox1.Items.Add(Struct.szExeFile);
while Process32Next(MyHandle, Struct) do
ListBox1.Items.Add(Struct.szExeFile);
except on exception do
ShowMessage('Error showing process list');
end
end;



this is the code im using VB, it works tho. Can that code be fitted into this code to see fileversion. ?
0
SonicM3Author Commented:
im not using vb, i mean its VB code but works perfect in delphi too.
0
dougaugCommented:
Hi SonicM3,

I've made the following code. See if it's what you are looking for.

Regards,
function GetFileDescription(FileName: string): string;
var
  FileVersionInfo: Pointer;
  FileVersionInfoSize: Cardinal;
  handle, FileInformationSize: Cardinal;
  TranslationTable: Pointer;
  FileDescription: PChar;
begin
  try
    FileVersionInfoSize := GetFileVersionInfoSize(PChar(FileName), handle);
 
    if FileVersionInfoSize = 0 then
      RaiseLastOSError;
 
    GetMem(FileVersionInfo, FileVersionInfoSize);
 
    if GetFileVersionInfo(Pchar(FileName), 0, FileVersionInfoSize, FileVersionInfo) then
    begin
       if not VerQueryValue(FileVersionInfo, '\VarFileInfo\Translation', TranslationTable, FileInformationSize) then
         RaiseLastOSError;
 
       if not VerQueryValue(FileVersionInfo,
                            PChar('StringFileInfo\' +
                            Format ('%0.4x%0.4x', [LoWord(PInt(TranslationTable)^),
                                                   HiWord(PInt(TranslationTable)^)]) +
                            '\FileDescription'),
                            Pointer(FileDescription), FileInformationSize) then
         RaiseLastOSError;
 
       Setstring(Result, FileDescription, StrLen(FileDescription));
    end;
  except
    Result := '';
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ProcessSnapshotHandle, ProcessModuleSnapshotHandle: THandle;
  Struct: TProcessEntry32;
  Module: TModuleEntry32;
  FilePath: String;
begin
  ListBox1.Clear;
  try
    ProcessSnapshotHandle := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
    Struct.dwSize := Sizeof(TProcessEntry32);
 
    if Process32First(ProcessSnapshotHandle, Struct) then
    begin
      if Struct.th32ProcessID <> 0 then
      begin
        ProcessModuleSnapshotHandle := CreateToolHelp32SnapShot(TH32CS_SNAPMODULE, Struct.th32ProcessID);
        FilePath := Struct.szExeFile;
 
        if ProcessModuleSnapshotHandle <> Cardinal(-1) then
        begin
          Module.dwSize := Sizeof(TModuleEntry32);
 
          if Module32First(ProcessModuleSnapshotHandle, Module) then
            FilePath := Module.szExePath;
        end;
 
        ListBox1.Items.Add(String(Struct.szExeFile) + '   ' + GetFileDescription(FilePath));
      end
      else
        ListBox1.Items.Add(Struct.szExeFile);
    end;
 
    while Process32Next(ProcessSnapshotHandle, Struct) do
    begin
      if Struct.th32ProcessID <> 0 then
      begin
        ProcessModuleSnapshotHandle := CreateToolHelp32SnapShot(TH32CS_SNAPMODULE, Struct.th32ProcessID);
        FilePath := Struct.szExeFile;
 
        if ProcessModuleSnapshotHandle <> Cardinal(-1) then
        begin
          Module.dwSize := Sizeof(TModuleEntry32);
 
          if Module32First(ProcessModuleSnapshotHandle, Module) then
            FilePath := Module.szExePath;
        end;
 
        ListBox1.Items.Add(String(Struct.szExeFile) + '   ' + GetFileDescription(FilePath));
      end
      else
        ListBox1.Items.Add(Struct.szExeFile);
    end;
 
  except
    ShowMessage('Error showing process list');
  end;
end;

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
SonicM3Author Commented:
great
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.