unit PGet;

interface

uses
  Forms, Dialogs, Tlhelp32, Controls,  Classes, StdCtrls, SysUtils;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var handler: THandle;
    data: TProcessEntry32;
    str: string;
    dialog: TSaveDialog;

  function GetName: string;
  var i:byte;
  begin
     Result := '';
     i := 0;
     while data.szExeFile[i] <> '' do
     begin
        Result := Result + data.szExeFile[i];
        Inc(i);
     end;
   end;

begin
  handler := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if Process32First(handler, data) then
  begin
    while Process32Next(handler, data) do
       str := str + GetName() + #13#10;

    dialog := TSaveDialog.Create(Self);
    dialog.Title := 'Save log';
    dialog.InitialDir := GetCurrentDir;
    dialog.Filter := 'Log file|*.log';
    dialog.DefaultExt := 'log';
    if dialog.Execute
    then with TFileStream.Create(dialog.FileName, fmCreate) do
    try
      Write(Pointer(str)^, Length(str));
    finally
      Free;
    end;;
    dialog.Free;
   end
end;

end.