Pierde un poquito de tiempo, implementa estas funciones en tu equipo y por ejemplo con SearchRec vete recorriendo los ejecutables y dll de tu disco duro y llamando a la funcion IsDelphiMudule para ver los ejecutables o dll que estan compiladas con Delphi: ¡¡Veras que sorpresas te llevas!!.
//************************************************************************
//IsDelphiModule
//Autor de estas funciones :Jose Manuel Rodriguez "JMR"
//
[email protected] publicadas en www.LatiumSoftware.com
//Por cierto, JMR si leyeras esto recibe un saludo grande de Luis,
//*************************************************************************
function EnumNames(hModule: THandle; szType: PChar;
szName: PChar; lParam: LongInt): Bool; stdcall;
begin
if szName = 'DVCLAL' then
begin
Boolean(Pointer(lParam)^) := True;
Result := False;
exit;
end (*if*);
Result := True;
end (*EnumNames*);
function EnumTypes(hModule: THandle; szType: PChar;
lParam: LongInt): Bool; stdcall;
begin
if szType = RT_RCDATA then
Result := EnumResourceNames(hModule, szType, @EnumNames, lParam)
else
Result := True;
end (*EnumTypes*);
function IsDelphiModule(const cModuleName: String): Boolean;
var
hModule: THandle;
begin
Result := False;
// hModule := LoadLibrary(PChar(cModuleName));
hModule := LoadLibraryEx(PChar(cModuleName), 0, LOAD_LIBRARY_AS_DATAFILE);
if hModule <> 0 then
EnumResourceTypes(hModule, @EnumTypes, LongInt(@Result))
//else
// RaiseLastWin32Error;
end (*IsDelphiModule*);
//*****************************************************************
Suerte
