Sospecho que está hecho en Delphi, ¿cómo saberlo?

[Galbi]

Hola amigos, resulta que he visto aplicaciones que sospecho que están hechas en Delphi, entonces ¿cómo se puede saberlo a ciencia cierta?

Saludos.

Galbi.

[esocrates]

En este sitio podés descargar una aplicación Free que creo te será útil.
http://www.geocities.com/charisoft/saleng.htm
Un saludo

[delphi.com.ar]

Si no me equivoco, aplicaciones tipo en WinDASM te informan qué compiladores fueron utilizados para generar, los PE Files. El programa DeDe (Delphi Decompiler) no recuerdo si hace diferencia entre C++ Builder o Delphi.
Otra opción, que puedes escribir en delphi, supongo sin demasiadas complicaciones, es buscar en los recursos del tipo DATA, algo que puedas leer como DFM, con algunas de las funciones de la VCL como ReadComponentRes. (Te recomiendo ver el ejemplo ResXplor)

Saludos!

[[seoane]]

Se me ocurre que podemos utilizar el echo de que delphi coloca en sus ejecutables donde deberia de ir el timestamp siempre el mismo numero (sus razones tendran). Ignoro si este metodo que propongo es muy de fiar, puede que otros compiladores coloquen el mismo numero en el timestamp pero ya seria mucha casualidad

Bueno aqui te dejo esta funcion, le pasas como parametro la ruta del ejecutable y si esta echo en delphi devuelve TRUE

Código Delphi [-]
function isDelphi(Filename: string): Boolean;
const
  BorlandMagicTimeStamp = $2A425E19;
var
  hFile: THandle;
  BytesRead: DWORD;
  ImageDosHeader: TImageDosHeader;
  ImageNtHeaders: TImageNtHeaders;
begin
  Result := FALSE;
  hFile := CreateFile(PChar(Filename), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_EXISTING, 0, 0);
  if (hFile <> INVALID_HANDLE_VALUE) then
  begin
    if ReadFile(hFile, ImageDosHeader, SizeOf(TImageDosHeader),BytesRead, nil) then
      if BytesRead = SizeOf(TImageDosHeader) then
        if ImageDosHeader.e_magic = IMAGE_DOS_SIGNATURE then
          if SetFilePointer(hFile, ImageDosHeader._lfanew, nil, FILE_BEGIN) <> $FFFFFFFF then
            if ReadFile(hFile, ImageNtHeaders, SizeOf(TImageNtHeaders), BytesRead, nil) then
              if BytesRead = SizeOf(TImageNtHeaders) then
                if ImageNtHeaders.Signature = IMAGE_NT_SIGNATURE then
                  Result:= ImageNtHeaders.FileHeader.TimeDateStamp = BorlandMagicTimeStamp;
    CloseHandle(hFile);
  end;
end;

[JXJ]

Con este programa es más fácil y no necesitas de tener que
instalar nada de ocx,

Hecho con delphi.

http://farrokhi.net/language/

[[seoane]]

Aqui os dejo un juguete para los curiosos, usando la funcion que describo arriba, este programa busca en una carpeta (y subcarpetas) que programas estan echos en delphi y los muestra en una lista.

Lo dicho, es solo un juguete

[Robert01]

usá un descompilador para delphi: form extractor o exe2dpr, la descompilación es sólo para los formularios, de ninguna manera se recupera el código fuente completo

[Galbi]

Me han abrumado tantas respuetas, gracias por su tiempo.

Galbi.