Source Examples
Revision as of 18:09, 25 August 2013 by 2001:4dd0:f923:0:956d:ee9f:360c:d593 (talk)
Source Examples
On this page Source example are going to collect (or links to it) which working on AROS freepascal
- Call Library - How to call a library function
- ...
Basic hello world program:
Program HelloWorld; Begin Writeln('Hello World'); End.
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.
One example, 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;