Changeset 2 for Main.~pas

Timestamp:

Sep 20, 2008, 2:46:53 PM (16 years ago)

Author:

maron

Message:

Verze 3.2 oprava chyb vyhledávání, importování serverů

File:

• Main.~pas (modified) (3 diffs)

Main.~pas

@@ -218 +218 @@
 
 const
-  ApplicationVersion = '3.1';
-  ApplicationRevision = 4;
+  ApplicationVersion = '3.2';
+  ApplicationRevision = 5;
   R = '\Software\maronsoft\Heroes of Fantasy client pack\';
   UpdateInfoFile = 'http://wow.zdechov.net/client/aktualizace.txt';
@@ -1111 +1111 @@
 begin
 //  ShowWeb;
-  ShellExecute(Handle, 'open', PChar(ExtractFileDir(Application.ExeName)+'\NÁPOVĚDA.HLP'), nil, nil, SW_SHOWNORMAL);
+  if FileExists(ExtractFileDir(Application.ExeName)+'\NÁPOVĚDA.HLP') then begin
+    ShellExecute(Handle, 'open', PChar(ExtractFileDir(Application.ExeName)+'\NÁPOVĚDA.HLP'), nil, nil, SW_SHOWNORMAL);
+  end else begin
+    ShowMessage('Nápověda nalezena!');
+    StatusBar1.SimpleText := 'Nápověda nalezena!';
+  end;
 end;
 
@@ -1370 +1375 @@
 begin
   //http://wow.zdechov.net/db/index.php?id=questy&find=Hledat&q=test
-  OpenSearchURL('http://wow.zdechov.net/db/index.php?id=questy&find=Hledat&q=');
+  OpenSearchURL('http://wow.zdechov.net/databaze/?search=');
 end;