Difference between revisions of "Source Examples"
Jump to navigation
Jump to search
(activated syntax highlighting) |
|||
Line 3: | Line 3: | ||
On this page Source example are going to collect (or links to it) which working on AROS freepascal | 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 | * [[Call Library]] - How to call a library function | ||
* ... | * ... | ||
---- | ---- | ||
− | + | ==== Hello World ==== | |
<source lang="pascal"> | <source lang="pascal"> | ||
Program HelloWorld; | Program HelloWorld; | ||
Line 15: | Line 16: | ||
</source> | </source> | ||
+ | ==== Started from Workbench/Wanderer ==== | ||
How to check if the program started from Wanderer/Workbench | How to check if the program started from Wanderer/Workbench | ||
<source lang="pascal"> | <source lang="pascal"> | ||
Line 26: | Line 28: | ||
</source> | </source> | ||
− | + | ==== Put a messagt to a named port ==== | |
+ | |||
<source lang="pascal"> | <source lang="pascal"> | ||
function SafePutToPort(Msg: PMessage; Portname: string): Integer; | function SafePutToPort(Msg: PMessage; Portname: string): Integer; |
Revision as of 14:56, 27 August 2013
Source Examples
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
- ...
Hello World
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 messagt 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;