Genkendelse af DLL filer

Du kunne jo evt. smide din LoadLibrary ind i en Try / Except. Så undgår du at brugerne får vist en "grim" fejl :)

Try
  LoadLibrary();
  //Kommer vi hertil er det en DLL fil
Except
  //Kommer vi hertil er det IKKE en DLL fil eller der er sket en anden fejl
End;

Fejlmeddelsen kommer a ligevel :(
Da det IKKE er en fejlmeddelse der bliver "raised" af Delphi, men af Windows!

http://www.delphi3000.com/articles/article_3696.asp

Nedenstående er link fra artiklen

http://www.delphidabbler.com/download.php?file=exetypedemo.zip

Stoney

LoadLibrary Retunerer 0 hvis det enten ikke er en DLL fil eller ikke er mulig at loade den .. Se etv MSDN

Ellers kig lidt på det her, det burde kunne indspirere dig til noget :

Type
  TExetype = ( etUnknown, etDOS, etWinNE, etWinPE );
  TExeStrings = Array [TExetype] of String[30];

const
  ExeStrings : TExeStrings =
    ('Unknown file type',
    'Dos executable',
    'Windows 16 bit executable',
    'Windows 32 bit executable'
    );


Function GetExetype( Const fname: String ): TExetype;
Var
  Signature: Word;
  WinHdrOffset: Word;
  Fexe:  TFileStream;
Begin
  result := etUnknown;
  Fexe := TFileStream.Create( fname, fmOpenRead or fmShareDenyNone);
  Fexe.ReadBuffer( signature, Sizeof(signature));

  If signature = $5A4D { 'MZ' } Then
  begin
    result := etDOS;
    Fexe.Seek( $18, soFromBeginning );
    Fexe.ReadBuffer( WinHdrOffset, Sizeof(WinHdrOffset));

    If WinHdrOffset >= $40 Then
    begin
      Fexe.Seek( $3C, soFromBeginning );
      Fexe.ReadBuffer( WinHdrOffset, Sizeof(WinHdrOffset));
      Fexe.Seek( WinHdrOffset, soFrombeginning );
      Fexe.ReadBuffer( signature, Sizeof(signature));
      If Signature = $454E { 'NE' } Then
        Result := etWinNE
      else
        If signature = $4550 { 'PE' } Then
          Result := etWinPE;
    end; { If }
  end; { If }
  Fexe.Free;
End;


Jens B

Stney>> Perfekt! :D Smid et svar!

:-)

Stoney