Changeset 9 for trunk/Start.pas


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        66Win32
        77*.~dsk
         8C-evo.exe
         9Integrated.compiled
         10Integrated.lps
         11lib

  • trunk/Start.pas

    r6 r9  
    1 {$INCLUDE switches}
     1{$INCLUDE Switches.pas}
    22unit Start;
    33
    … …  
    77  GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area,
    88
    9   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
     9  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
    1010  Menus, Registry;
    1111
    … …  
    105105
    106106uses
    107   Directories, Protocol, Direct, ScreenTools, Inp, Back,
    108 
    109   ShellAPI;
    110 
    111 {$R *.DFM}
     107  Directories, Protocol, Direct, ScreenTools, Inp, Back;
     108
     109{$R *.lfm}
    112110
    113111const
    … …  
    927925
    928926        if (AutoDiff < 0) and (bixView[0] = bixNoTerm) then
    929           FileName := 'Round' + IntToStr(GetCurrentProcessID())
     927          FileName := 'Round' + IntToStr(GetProcessID())
    930928        else
    931929        begin
    … …  
    15941592      maConfig:
    15951593        begin
    1596           ShellExecute(Handle, 'open', pchar(HomeDir + 'Configurator.exe'),
    1597             pchar('-r"' + ParamStr(0) + '"'), '', SW_SHOWNORMAL);
     1594           OpenDocument(pchar(HomeDir + 'Configurator.exe'));{ *Převedeno z ShellExecute* }
    15981595          Close
    15991596        end;
    … …  
    16031600        DirectHelp(cStartCredits);
    16041601      maAIDev:
    1605         ShellExecute(Handle, 'open',
    1606           pchar(HomeDir + 'AI Template\AI development manual.html'), '', '',
    1607           SW_SHOWNORMAL);
     1602         OpenDocument(pchar(HomeDir + 'AI Template\AI development manual.html'));{ *Převedeno z ShellExecute* }
    16081603      maWeb:
    1609         ShellExecute(Handle, 'open', 'http://c-evo.org', '', '', SW_SHOWNORMAL)
     1604        OpenURL('http://c-evo.org'){ *Převedeno z ShellExecute* }
    16101605    end;
    16111606  end
Note: See TracChangeset for help on using the changeset viewer.