如何使用DELPHI编程实现如下功能？？
如何使用DELPHI编程实现如下功能？？
我想使用DELPHI编写一个程序
程序功能： 获取新运行程序的 文件名及路径
并显示出来
比方说：这个程序是ABC.EXE，运行后
我再运行 NOTEPAD.EXE
就马上显示出这个程序的文件： notepad.ext及路径C:\WINDOWS\system32
[解决办法]
function GetModuleFileNameExW(hProcess: THandle; hModule: HMODULE;
lpFilename: PWideChar; dwSize: DWORD): DWORD stdcall;
external 'PSAPI.DLL' name 'GetModuleFileNameExW';
//获取目标进程文件名含路径
//hProcess具有 PROCESS_QUERY_INFORMATION 和 PROCESS_VM_READ权限
function GetProcessFileName(hProcess: THandle) : String;
var
cb : DWORD;
sBuf : WideString;
begin
SetLength(sBuf , MAX_PATH);
cb := GetModuleFileNameExW(hProcess , 0 , Pointer(sBuf) , MAX_PATH);
Result := Copy(sBuf , 1 , cb);
end;
