ChatGTP编写Delphi代码

winfredzhang

于 2023-02-09 07:18:14 发布

阅读量364

点赞数

文章标签： ChatGTP vba delphi 生成代码

本文链接：https://blog.csdn.net/winniezhang/article/details/128946255

版权

这段Delphi代码演示了如何利用WindowsAPI(TlHelp32和Windows单元)创建一个TStringList，列出系统中的当前运行进程名。通过CreateToolhelp32Snapshot函数获取进程快照，然后遍历进程直到没有更多进程。

摘要由CSDN通过智能技术生成

以下代码都在相应的环境中运行过，可用：

用delphi代码编写显示当前进程列表的代码：

please use delphi language to list current process name .

delphi代码如下：

uses
  TlHelp32, Windows;

function GetProcessList: TStringList;
var
  SnapshotHandle: THandle;
  ProcessEntry32: TProcessEntry32;
  ProcessList: TStringList;
begin
  ProcessList := TStringList.Create;
  SnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if SnapshotHandle <> INVALID_HANDLE_VALUE then
  begin
    ProcessEntry32.dwSize := SizeOf(ProcessEntry32);
    if Process32First(SnapshotHandle, ProcessEntry32) then
    begin
      repeat
        ProcessList.Add(ProcessEntry32.szExeFile);
      until not Process32Next(SnapshotHandle, ProcessEntry32);
    end;
    CloseHandle(SnapshotHandle);
  end;
  Result := ProcessList;
end;

var
  ProcessList: TStringList;
begin
  ProcessList := GetProcessList;
  try
    Writeln('List of running processes:');
    Writeln(ProcessList.Text);
  finally
    ProcessList.Free;
  end;
end.