1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function IsUPXPacked(const FileName: TFileName): Boolean;
var
  l: Longint;
  sUPX: string;
  f: file;
begin
  Result := False;
  sUPX := 'UPX';
  AssignFile(f, FileName);
  Reset(f, 1);
  for l := 0 to 600 do
  begin
    Seek(f, l);
    BlockRead(f, sUPX[1], Length(sUPX));
    if sUPX = 'UPX' then
    begin
      Result := True;
      Break;
    end;
  end;
  CloseFile(f);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

function CheckIfFileCompressed(AUPXPath, AFileName: String): Boolean;
var
  SecAttr: TSecurityAttributes;
  dwPipeRead: DWORD;
  dwPipeWrite: DWORD;
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  Buffer: array [0..1024] of Char;
  dwBytesRead: DWORD;
  szStringRead: String;
begin
  Result := True;
  try
    SecAttr.nLength := SizeOf(TSecurityAttributes);
    SecAttr.lpSecurityDescriptor := nil;
    // create anonymous pipe
    SecAttr.bInheritHandle := True;
    // initialize the startup info for the new process
    if CreatePipe(dwPipeRead, dwPipeWrite, @SecAttr, 0) then begin
      FillChar(StartInfo, SizeOf(TStartupInfo), 0);
      StartInfo.cb := SizeOf(TStartupInfo);
      StartInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      StartInfo.hStdOutput := dwPipeWrite;  // route output to pipe
      StartInfo.hStdError := dwPipeWrite;   // route output to pipe
      StartInfo.wShowWindow := SW_HIDE;     // this flag says that the commandprompt will be hidden

      // create the process, Inherited  has to be true, so the pipe handles will
      // be available in new process
      if CreateProcess(nil, PChar('"' + AUPXPath + '\upx.exe" -l "' + AFileName + '"'),
                       nil, nil, True, CREATE_NEW_CONSOLE, nil, nil, StartInfo,
                       ProcInfo)
      then begin
        // close the handles which will be created in the createProcess method
        // we don't need them anyway
        CloseHandle(ProcInfo.hProcess);
        CloseHandle(ProcInfo.hThread);
        // Close the pipe for writing
        // now the anonymous pipe knows in which direction to work
        // anonyme pipes only work in one direction
        CloseHandle(dwPipeWrite);

        // do it again and again to get all output generated by the program
        while True do begin
          Application.ProcessMessages;
          FillChar(Buffer, SizeOf(Buffer), 0);
          if ReadFile(dwPipeRead, Buffer, SizeOf(Buffer) - 1, dwBytesRead, nil) then begin
            szStringRead := szStringRead + String(Buffer);
            // check if file is packed
            if (Pos('NotPackedException', szStringRead) > 0) then
      Result := False;
          end else
            Break;
        end;
      end;
      // release pipehandles
      CloseHandle(dwPipeRead);
    end;
  except
    CloseHandle(dwPipeRead);
  end;
end;