Difference between revisions of "Source Examples"
From Freepascal Amiga wiki
m (typing error)
|Line 28:||Line 28:|
==== Put a
==== Put a to a named port ====
Revision as of 21:41, 20 November 2013
On this page Source example are going to collect (or links to it) which working on AROS freepascal
Examples with own pages
- Call Library - How to call a library function
Program HelloWorld; Begin Writeln('Hello World'); End.
Started from Workbench/Wanderer
How to check if the program started from Wanderer/Workbench
program WBStart; begin if assigned(AOS_WbMsg) then writeln('Started from WB') else writeln('Started from CLI'); end.
Put a message to a named port
function SafePutToPort(Msg: PMessage; Portname: string): Integer; var Port: PMsgPort; PName: PChar; begin Result := -1; PName := PChar(Portname + #0); Forbid(); Port := FindPort(PName); if Assigned(Port) then begin PutMsg(Port, Msg); Result := 0; end; Permit(); end;