delphi7 获取当前进程的句柄和名称

可以使用以下代码来获取当前进程的句柄和名称：

var
  hProcess: THandle;
  ProcessName: array[0..MAX_PATH] of Char;
begin
  // 获取当前进程句柄
  hProcess := GetCurrentProcess();

  // 获取当前进程名称
  GetModuleFileName(hProcess, ProcessName, SizeOf(ProcessName));
end;

其中，`GetCurrentProcess()` 函数可以获取当前进程的句柄，`GetModuleFileName()` 函数可以获取指定进程的模块文件名，如果传入的参数是当前进程句柄，则可以获取当前进程的名称。获取到的进程名称可以通过 `ProcessName` 变量来保存。需要注意的是，`ProcessName` 变量要预先定义为字符数组类型，长度为 `MAX_PATH`。