Update SFmpqapi.bas from the SFmpqapi source tree.

[WinMPQ.git] / MpqStuff.bas

diff --git a/MpqStuff.bas b/MpqStuff.bas
index 439ceee..93586f3 100644 (file)
--- a/MpqStuff.bas
+++ b/MpqStuff.bas
@@ -63,14 +63,7 @@ Public Const WM_SETREDRAW As Long = &HB
 Public Const WM_PAINT  As Long = &HF\r
 Const gintMAX_SIZE% = 255\r
 Public Const SEE_MASK_CLASSNAME As Long = &H1\r
-Sub AboutSFMpq()\r
-Dim AboutPage As String, Path As String\r
-Path = App.Path\r
-If Right(Path, 1) <> "\" Then Path = Path + "\"\r
-AboutPage = Path + "sfmpq.dll"\r
-If Not FileExists(AboutPage) Then AboutPage = "sfmpq.dll"\r
-ShellExecute 0, vbNullString, "res://" + AboutPage + "/about", vbNullString, vbNullString, 1\r
-End Sub\r
+\r
 Sub GetCompressFlags(File As String, ByRef cType As Integer, ByRef dwFlags As Long)\r
 Dim bNum As Long, fExt As String\r
 dwFlags = MAFA_REPLACE_EXISTING\r