moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-28 12:02:15 -05:00
Code Issues Releases Wiki Activity

Simba: Catch exceptions in GetClipBoard and SetClipBoard

Browse Source
This commit is contained in:
John P (Dgby714) 2010-10-10 17:18:23 -04:00
parent 7f23ae10b5
commit 067f6363fe
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Units/MMLAddon/PSInc/Wrappers/other.inc
View File

@ -267,10 +267,20 @@ end;
procedure ps_SetClipBoard(const Data: string); extdecl; procedure ps_SetClipBoard(const Data: string); extdecl;
begin begin
try
Clipboard.AsText := Data; Clipboard.AsText := Data;
except
on e: exception do
mDebugLn('Exception in SetClipBoard: ' + e.message);
end;
end; end;
function ps_GetClipBoard: string; extdecl; function ps_GetClipBoard: string; extdecl;
begin begin
try
Result := Clipboard.AsText; Result := Clipboard.AsText;
except
on e: exception do
mDebugLn('Exception in GetClipBoard: ' + e.message);
end;
end; end;