david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
91 lines
2.3 KiB
C++
91 lines
2.3 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "InfoFrm.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma resource "*.dfm"
|
|
//TfrmInfo *frmInfo;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TfrmInfo::TfrmInfo(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TfrmInfo::FormClose(TObject *Sender, TCloseAction &Action)
|
|
{
|
|
Action = caFree;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
void TfrmInfo::LoadFile(const AnsiString FileName)
|
|
{
|
|
TStringList *S;
|
|
int i;
|
|
|
|
if( !FileExists(FileName) )
|
|
{
|
|
reInfo->Lines->Text = Format("'%s': file not found", OPENARRAY(TVarRec, (FileName) ) );
|
|
return;
|
|
}
|
|
S = new TStringList();
|
|
try
|
|
{
|
|
S->LoadFromFile(FileName);
|
|
for( i = 0;i<S->Count;++i)
|
|
{
|
|
if( S->Strings[i].Pos("EXPORT") == 1 )
|
|
{
|
|
int siPos = S->Strings[i].Pos("\"") + 1;
|
|
S->Strings[i] = S->Strings[i].SubString( siPos , MaxInt);
|
|
S->Strings[i] = S->Strings[i].SubString(1, (S->Strings[i].Length() - 1) );
|
|
S->Strings[i] = S->Strings[i].Trim();
|
|
}
|
|
else
|
|
{
|
|
S->Strings[i] = S->Strings[i].Trim();
|
|
}
|
|
}
|
|
if( S->Count < 2 )
|
|
{
|
|
// tdump.exe errors on some files, such as Shell32.dll
|
|
// When it errors, it outputs less than 2 lines
|
|
S->Add("\r\nAn error occured running tdump.exe on this DLL");
|
|
}
|
|
else
|
|
{
|
|
S->Insert(2, "EXPORTED FUNCTIONS:\r\n\===================");
|
|
}
|
|
reInfo->Lines = S;
|
|
reInfo->SelStart = 0;
|
|
reInfo->Perform(EM_SCROLLCARET, 0, 0);
|
|
}
|
|
__finally
|
|
{
|
|
delete S;
|
|
}
|
|
}
|
|
|
|
void TfrmInfo_View(const String FileName,const String Title)
|
|
{
|
|
TfrmInfo *frmInfo;
|
|
|
|
frmInfo = NULL;
|
|
for(int i = 0;(i < Screen->FormCount) && (frmInfo==NULL);++i)
|
|
{
|
|
frmInfo = dynamic_cast<TfrmInfo *>( Screen->Forms[i]);
|
|
}
|
|
if( frmInfo == NULL )
|
|
{
|
|
frmInfo = new TfrmInfo(Application);
|
|
}
|
|
frmInfo->Caption = Format("Viewing content of %s", OPENARRAY(TVarRec, (Title) ) );
|
|
frmInfo->LoadFile(FileName);
|
|
frmInfo->Show();
|
|
|
|
}
|