核心提示:uses PsAPI;procedure TForm1.Button1Click(Sender: TObject);var vOwner: THandle; vProcessId: THandle;...
uses PsAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
vOwner: THandle;
vProcessId: THandle;
vProcess: THandle;
vBuffer: array[0..255] of Char;
begin
vOwner := GetClipboardOwner();
if vOwner = 0 then Exit;
GetWindowThreadProcessId(vOwner, vProcessId);
vProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
False, vProcessId);
GetModuleFileNameEx(vProcess, 0, vBuffer, SizeOf(vBuffer));
CloseHandle(vProcess);
Caption := vBuffer;
end;