eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WIN32 to WINDOWS changes

This commit is contained in:
mysticbbs 2012-02-22 05:51:16 -05:00
parent 511c840d61
commit 9d223637a9
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/bbs_common.pas
View File

@ -356,7 +356,7 @@ Begin
Screen.SetRawMode(True); Screen.SetRawMode(True);
{$ENDIF} {$ENDIF}
{$IFDEF WIN32} {$IFDEF WINDOWS}
Screen.SetWindowTitle (WinConsoleTitle + strI2S(Session.NodeNum)); Screen.SetWindowTitle (WinConsoleTitle + strI2S(Session.NodeNum));
{$ENDIF} {$ENDIF}

6
mystic/bbs_doors.pas
View File

@ -9,7 +9,7 @@ Procedure ExecuteDoor (Format: Byte; Cmd: String);
Implementation Implementation
Uses Uses
{$IFDEF WIN32} {$IFDEF WINDOWS}
Windows, Windows,
{$ENDIF} {$ENDIF}
m_Types, m_Types,
@ -206,7 +206,7 @@ Begin
Close (tFile); Close (tFile);
End; End;
{$IFDEF WIN32} {$IFDEF WINDOWS}
Procedure Shell_DOOR32 (Cmd : String); Procedure Shell_DOOR32 (Cmd : String);
Var Var
PI : TProcessInformation; PI : TProcessInformation;
@ -326,7 +326,7 @@ Begin
{$ENDIF} {$ENDIF}
End; End;
{$IFDEF WIN32} {$IFDEF WINDOWS}
If Format = 4 Then If Format = 4 Then
Shell_DOOR32(Temp) Shell_DOOR32(Temp)
Else Else

2
mystic/bbs_nodeinfo.pas
View File

@ -70,7 +70,7 @@ Begin
Write (ChatFile, Chat); Write (ChatFile, Chat);
Close (ChatFile); Close (ChatFile);
{$IFDEF WIN32} {$IFDEF WINDOWS}
Screen.SetWindowTitle (WinConsoleTitle + strI2S(Session.NodeNum) + ' - ' + Session.User.ThisUser.Handle + ' - ' + Action); Screen.SetWindowTitle (WinConsoleTitle + strI2S(Session.NodeNum) + ' - ' + Session.User.ThisUser.Handle + ' - ' + Action);
{$ENDIF} {$ENDIF}
End; End;

2
mystic/mpl_execute.pas
View File

@ -997,7 +997,7 @@ End;
Procedure TInterpEngine.FileWriteLine (Var F: File; Str: String); Procedure TInterpEngine.FileWriteLine (Var F: File; Str: String);
Begin Begin
{$IFDEF WIN32} {$IFDEF WINDOWS}
Str := Str + #13#10; Str := Str + #13#10;
{$ENDIF} {$ENDIF}
{$IFDEF UNIX} {$IFDEF UNIX}