EXE File name from ProcessID

How can I get a process exe file name from it's ProcessID in win9x?
I do it in winNT with the following func but how can I in Win9x?

function GetWndFileNameNT(const ProcessID: DWORD): string;
var
  Handle: THandle;
  StrBuffer: array[0..MAX_PATH] of Char;
begin
  Result := '';
  Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,False,
   ProcessID);
if GetModuleBaseNameA(Handle,0,StrBuffer,SizeOf(StrBuffer)) > 0
then
Result := StrPas(StrBuffer);
CloseHandle(Handle);
end;


Thanks