ChatGTP编写Delphi代码

最新推荐文章于 2023-05-25 14:45:00 发布

原创最新推荐文章于 2023-05-25 14:45:00 发布 · 478 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ChatGTP #vba #delphi #生成代码

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

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

用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.