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);
{$ENDIF}
{$IFDEF WIN32}
{$IFDEF WINDOWS}
Screen.SetWindowTitle (WinConsoleTitle + strI2S(Session.NodeNum));
{$ENDIF}

6
mystic/bbs_doors.pas
View File

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

2
mystic/bbs_nodeinfo.pas
View File

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

2
mystic/mpl_execute.pas
View File

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