delphi7修改指定进程名称

要修改指定进程的名称，需要使用Windows API函数来实现。具体步骤如下：

1. 使用FindWindow函数查找进程的窗口句柄。
2. 使用GetWindowThreadProcessId函数获取进程的ID。
3. 使用OpenProcess函数打开进程的句柄。
4. 使用WriteProcessMemory函数将进程名称写入进程内存中。
5. 使用SetWindowText函数设置窗口标题。

以下是示例代码：

uses
  Windows;

procedure ModifyProcessName(ProcessName, NewName: string);
var
  HWindow: HWND;
  Pid: DWORD;
  HProcess: THandle;
  ProcessNameAddr: Pointer;
begin
  HWindow := FindWindow(nil, PChar(ProcessName));
  if HWindow <> 0 then
  begin
    GetWindowThreadProcessId(HWindow, @Pid);
    HProcess := OpenProcess(PROCESS_ALL_ACCESS, False, Pid);
    if HProcess <> 0 then
    begin
      ProcessNameAddr := VirtualAllocEx(HProcess, nil, Length(NewName) + 1, MEM_COMMIT, PAGE_READWRITE);
      if ProcessNameAddr <> nil then
      begin
        WriteProcessMemory(HProcess, ProcessNameAddr, PChar(NewName), Length(NewName) + 1, nil);
        SetWindowText(HWindow, PChar(NewName));
        VirtualFreeEx(HProcess, ProcessNameAddr, 0, MEM_RELEASE);
      end;
      CloseHandle(HProcess);
    end;
  end;
end;

调用示例：

ModifyProcessName('notepad.exe', 'MyNotePad');

以上代码可以将进程名称为“notepad.exe”的记事本进程名称修改为“MyNotePad”。