Changeset 9 for trunk/Direct.pas

Timestamp:

Jan 7, 2017, 1:28:56 PM (7 years ago)

Author:

chronos

Message:

• Modified: Converted to Lazarus project. Application can be run with errors.

Location:

trunk

Files:

• . (modified) (1 prop)
• Direct.pas (modified) (5 diffs)

trunk

@@ -6 +6 @@
 Win32
 *.~dsk
+C-evo.exe
+Integrated.compiled
+Integrated.lps
+lib

@@ -6 +6 @@
 Win32
 *.~dsk
+C-evo.exe
+Integrated.compiled
+Integrated.lps
+lib

trunk/Direct.pas

@@ -1 @@
-{$INCLUDE switches}
+{$INCLUDE Switches.pas}
 unit Direct;
 
@@ -7 +7 @@
   Messg,
 
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms;
+  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms;
 
 const
@@ -41 +41 @@
 
 uses
-  ScreenTools, Protocol, GameServer, Start, LocalPlayer, NoTerm, Back, ShellAPI;
-
-{$R *.DFM}
+  ScreenTools, Protocol, GameServer, Start, LocalPlayer, NoTerm, Back;
+
+{$R *.lfm}
 
 procedure Notify(ID: integer);
@@ -110 +110 @@
     ntLoadError:
       begin
-        if OpenClipboard(Handle) then
+(* TODO        if OpenClipboard(Handle) then
         begin // copy file path to clipboard
           NotifyMessage := NotifyMessage + #0;
@@ -128 +128 @@
           ShowModal;
           if ModalResult = mrOK then
-            ShellExecute(Handle, 'open',
-              'http://c-evo.org/_sg/contact/cevobug.html', '', '',
-              SW_SHOWNORMAL);
+            OpenURL('http://c-evo.org/_sg/contact/cevobug.html');{ *Převedeno z ShellExecute* }
         end
+    *)
       end;
     ntStartDone:

@@ -6 +6 @@
 Win32
 *.~dsk
+C-evo.exe
+Integrated.compiled
+Integrated.lps
+lib