http://www.freepascal.org/docs-html/rtl ... plink.html
Ich gehe davon aus, dass ich fplink unter Windows verwenden kann.
Ich habe eine Konsolenanwendung erstellt und folgenden Code eingegeben:
Code: Alles auswählen
program project1;
{$mode objfpc}{$H+}
uses
Classes,BaseUnix ;
Var F : Text;
S : String;
begin
Assign (F,'test.txt');
Rewrite (F);
Writeln (F,'This is written to test.txt');
Close(f);
{ new.txt and test.txt are now the same file }
if fpLink ('test.txt','new.txt')<>0 then
writeln ('Error when linking !')
else
WriteLn('hardlink erstellt');
ReadLn;
end.
Projekteinstellungen 'Andere Units'(-Fu) den Pfad zu \unix hinzugefügt, dann steht die BaseUnix
zur Verfügung, aber es gibt viele Meldungen, das diverse *.inc Dateien fehlen:
ctypes.inc, ptypes.inc, ....
Muss ich jetzt all diese Dateien von Hand zum Projekt hinzufügen, bzw wie macht man das richtig?
Danke