paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:30:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r30432 into '.':

Browse Source 
U    packages/rtl-console/src/win/crt.pp
--- Recording mergeinfo for merge of r30432 into '.':
 U   .

# revisions: 30432

git-svn-id: branches/fixes_3_0@31105 -
This commit is contained in:
marco 2015-06-17 19:39:58 +00:00
parent 5b66aee3f5
commit 99dfc46a27
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/rtl-console/src/win/crt.pp
View File

@ -954,12 +954,6 @@ Initialization
FillChar(ConsoleInfo, SizeOf(ConsoleInfo), 0);
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), ConsoleInfo);
finalization
if beeperDevice <> INVALID_HANDLE_VALUE then begin
nosound;
CloseHandle(beeperDevice);
DefineDosDevice(DDD_REMOVE_DEFINITION,'DosBeep','\Device\Beep');
end;
TextAttr := ConsoleInfo.wAttributes;
{ Not required, the dos crt does also not touch the mouse }
@ -982,4 +976,10 @@ finalization
AssignCrt(Input);
Reset(Input);
TextRec(Input).Handle:= GetStdHandle(STD_INPUT_HANDLE);
finalization
if beeperDevice <> INVALID_HANDLE_VALUE then begin
nosound;
CloseHandle(beeperDevice);
DefineDosDevice(DDD_REMOVE_DEFINITION,'DosBeep','\Device\Beep');
end;
end. { unit Crt }