System-Wide Injection Portable-Executable (SwiPE)

// Current version at the time of this writing is v3.0.0.0
// Date: July 5, 2016

var
  dwVersion: DWORD;
begin
  dwVersion := GetVersionInfo();
  ShowMessage(Format('SwiPE version: %u.%u.%u.%u', [
                                     LOBYTE(LOWORD(dwVersion)),
                                     HIBYTE(LOWORD(dwVersion)), 
                                     LOBYTE(HIWORD(dwVersion)), 
                                     HIBYTE(HIWORD(dwVersion))
                                     ]
                     ));
end;