Programm bei Systemstart ausführen wie chkdsk?

[JamesTKirk]

Zitat von jus:

Funktioniert bei mir die rtl build leider auch nicht. Wenn ich den folgenden Befehl im rtl-Verzeichnis ausführe

Code:

make clean all install OS_TARGET=nativent CPU_TARGET=i386 FPC=%DEIN_INSTALL_DIR%\bin\i386-win32\fpc.exe INSTALL_PREFIX=%DEIN_INSTALL_DIR%

so kommt folgende Fehlermeldung:

Code:

make[1]: Leaving directory `C:/FPC/source/rtl/nativent'
C:/FPC/2.6.0/bin/i386-Win32/fpcmake.exe -p -Ti386-nativent Makefile.fpc
Processing Makefile.fpc
 Writing Package.fpc
C:/FPC/2.6.0/bin/i386-Win32/ginstall.exe -m 755 -d c:\fpc\build/units/i386-nativ
ent/rtl
C:/FPC/2.6.0/bin/i386-Win32/cp.exe -fp Package.fpc c:\fpc\build/units/i386-nativ
ent/rtl
make -C nativent install
make[1]: Entering directory `C:/FPC/source/rtl/nativent'
C:/FPC/2.6.0/bin/i386-Win32/ginstall.exe -m 755 -d c:\fpc\build/units/i386-nativ
ent/rtl
C:/FPC/2.6.0/bin/i386-Win32/cp.exe -fp ../../rtl/units/i386-nativent/system.ppu
../../rtl/units/i386-nativent/uuchar.ppu ../../rtl/units/i386-nativent/objpas.pp
u ../../rtl/units/i386-nativent/iso7185.ppu ../../rtl/units/i386-nativent/buildr
tl.ppu ../../rtl/units/i386-nativent/ndk.ppu ../../rtl/units/i386-nativent/ndkut
ils.ppu ../../rtl/units/i386-nativent/ddk.ppu ../../rtl/units/i386-nativent/ctyp
es.ppu ../../rtl/units/i386-nativent/strings.ppu ../../rtl/units/i386-nativent/m
atrix.ppu ../../rtl/units/i386-nativent/rtlconsts.ppu ../../rtl/units/i386-nativ
ent/sysconst.ppu ../../rtl/units/i386-nativent/sysutils.ppu ../../rtl/units/i386
-nativent/math.ppu ../../rtl/units/i386-nativent/types.ppu ../../rtl/units/i386-
nativent/strutils.ppu ../../rtl/units/i386-nativent/dateutils.ppu ../../rtl/unit
s/i386-nativent/varutils.ppu ../../rtl/units/i386-nativent/variants.ppu ../../rt
l/units/i386-nativent/typinfo.ppu ../../rtl/units/i386-nativent/fgl.ppu ../../rt
l/units/i386-nativent/classes.ppu ../../rtl/units/i386-nativent/convutils.ppu ..
/../rtl/units/i386-nativent/stdconvs.ppu ../../rtl/units/i386-nativent/x86.ppu .
./../rtl/units/i386-nativent/cpu.ppu ../../rtl/units/i386-nativent/mmx.ppu ../..
/rtl/units/i386-nativent/charset.ppu ../../rtl/units/i386-nativent/ucomplex.ppu
../../rtl/units/i386-nativent/getopts.ppu ../../rtl/units/i386-nativent/fmtbcd.p
pu c:\fpc\build/units/i386-nativent/rtl
cp.exe: ../../rtl/units/i386-nativent/x86.ppu: No such file or directory
make[1]: *** [fpc_install] Error 1
make[1]: Leaving directory `C:/FPC/source/rtl/nativent'
make: *** [nativent_install] Error 2

C:\FPC\source\rtl>

Wenn ich nur wüsste, warum er die x86 Unit (Unix only) mitkopieren möchte... Dann lass das "install" weg und kopier die RTL Units manuell wie oben beschrieben... (die "packages" sollten aber funktionieren ).

Gruß,
Sven

[jus]

Zitat von JamesTKirk:

Wenn ich nur wüsste, warum er die x86 Unit (Unix only) mitkopieren möchte... Dann lass das "install" weg und kopier die RTL Units manuell wie oben beschrieben... (die "packages" sollten aber funktionieren ).

Gruß,
Sven

Ich habe nun im rtl Verzeichnis den "install"-Parameter weggelassen spricht mit folgenden Befehl den build erzeugt:

Code:

make clean all OS_TARGET=nativent CPU_TARGET=i386 FPC=%DEIN_INSTALL_DIR%\i386-win32\fpc.exe INSTALL_PREFIX=%DEIN_INSTALL_DIR%

Und die units Dateien manuell nach "%DEIN_INSTALL_DIR%\units\i386-nativent\rtl" kopiert.
Danach habe ich folgenden Befehl im Verzeichnis "packages" erfolgreich ausgeführt:

Code:

make clean install all OS_TARGET=nativent CPU_TARGET=i386 FPC=%DEIN_INSTALL_DIR%\i386-win32\fpc.exe INSTALL_PREFIX=%DEIN_INSTALL_DIR%

Ähm.... und was wäre der nächste Schritt? Ich gebe zu, ich habe keinen Durchblick beim Build-Prozeß.

Lg,
jus

[JamesTKirk]

Jetzt solltest du im Endeffekt in der Lage sein mit dem FPC in deinem 2.7.1 Installations Verzeichnis Native NT Anwendungen zu erzeugen (wobei du dich für's erste am besten auf primitive Units ala SysUtils und Classes beschränken solltest).

Du musst FPC dabei folgendermaßen aufrufen:

Code:

%DEIN_INSTALL_DIR%\bin\i386-win32\fpc.exe -Tnativent {sonstige optionen} deinsource.pas

Zu den {sonstige optionen} kannst du einfach fpc mit "-h" aufrufen und dir die Ausgabe mal anschauen. Vor allem so Optionen wie "Unit output directory" und "Unit search dir" (falls du mal eine schnuckelige Verzeichnisstruktur anlegst) sind sehr hilfreich.

Als kleiner Tipp noch: Ich empfehle dir (für's erste) eine VM einzurichten (zum Beispiel mit ReactOS), mit der du die Programme dann ohne Gefahr für dein Produktionssystem testen kannst. Für's genaue Einrichten verweise ich dich auf die Native NT Wiki Seite, wobei du natürlich gerne hier Rückfragen stellen kannst (in naher Zukunft möchte ich dann noch mein oben genanntes Tool bei FPC mit integrieren, damit man NT Anwendungen einfach von Win32 aus laufen lassen kann; das brauch ich für die Testsuite von FPC )
Außerdem solltest du die Unit "ndkutils" einbinden und dann direkt nach dem Haupt-"begin" einmal "AssignDisplayString(Output, False);" aufrufen, damit du mittels Writeln auf's Display schreiben kannst (normalerweise geht das auf StdOut, aber beim ersten Programm, dass gestartet wird, ist dieses noch nicht gesetzt)

Gruß,
Sven

[jus]

Also wenn ich folgenden Befehl starte:

Code:

c:\fpc\build\bin\i386-win32\fpc.exe -Tnativent helloworld.pas

wobei das helloworld.pas genau das demo von der freepascal-wiki mit folgenden Code:

Delphi-Quellcode:

program helloworld;
 
uses
  // as WriteLn is not supported, yet, we need to
  // use the functions provided by the kernel directly
  NDK, NDKUtils;
 
var
  ntstr: TNtUnicodeString;
  interval: TLargeInteger;
begin
  ShortStrToNtStr('Hello World!'#13#10, ntstr);
  NtDisplayString(@ntstr);
  FreeMem(ntstr.buffer);
 
  // wait 3 seconds
  interval.QuadPart := - 3000 * 10000;
  NtDelayExecution(@interval);
end.

So kommt folgende Fehlermeldung :

Code:

C:\FPC>c:\fpc\build\bin\i386-win32\fpc.exe -Tnativent helloworld.pas
helloworld.pas(10,26) Error: Identifier not found "TLargeInteger"
helloworld.pas(10,26) Error: Error in type definition
helloworld.pas(17,12) Error: Illegal qualifier
helloworld.pas(18,3) Error: Wrong number of parameters specified for call to "Nt
DelayExecution"
helloworld.pas(19,4) Fatal: There were 4 errors compiling module, stopping
Fatal: Compilation aborted
Error: c:\fpc\build\bin\i386-win32\ppc386.exe returned an error exitcode

C:\FPC>

sprich irgendwas funktioniert da nicht...

lg,
jus

[jus]

Zitat von Luckie:

Hm, frag mal bei Assarbad nach. Hier Olli oder so. Mit dem habe ich mal so was gemacht oder versucht zu machen. Link: http://assarbad.net/

Vielen Dank Luckie, aber ich habs hingekriegt. Yeahh...
Vielen vielen Dank an Sven!
Ich bin wohl von falschen Erwartungen ausgegangen. Ich dachte, dass das helloworld Beispiel auf Anhieb funktionieren sollte. Damit es sich kompilieren ließ, habe ich den Source folgendermaßen verändert:

Delphi-Quellcode:

program helloworld;
 
uses
  // as WriteLn is not supported, yet, we need to
  // use the functions provided by the kernel directly
  NDK, NDKUtils;

type
 TNtUnicodeString = UNICODE_STRING;
  
   // using Int64 is an alternative (QWord might have unintended side effects)
  TLargeInteger = packed record
    case Boolean of
      True:(LowPart: LongWord;
            HighPart: LongInt);
      False:(QuadPart: Int64);
  end;
  PLargeInteger = ^TLargeInteger;

  
var
  ntstr: TNtUnicodeString;
  interval: TLargeInteger;
begin
  ShortStrToNtStr('Hello World!'#13#10, ntstr);
  NtDisplayString(@ntstr);
  FreeMem(ntstr.buffer);
 
  // wait 3 seconds
  interval.QuadPart := - 3000 * 10000;
  NtDelayExecution(FALSE,@interval);
end.

Lg,
jus

[JamesTKirk]

Zitat von jus:

Ich bin wohl von falschen Erwartungen ausgegangen. Ich dachte, dass das helloworld Beispiel auf Anhieb funktionieren sollte. Damit es sich kompilieren ließ, habe ich den Source folgendermaßen verändert:

Mea culpa! Ich muss echt mal den Wikieintrag aktualisieren... -.-

Der Typ TLargeInteger heißt nun wie der entsprechende C-Typ LARGE_INTEGER und TNtUnicodeString wurde ebenfalls in UNICODE_STRING umbenannt. Beide befinden sich in der Unit ndk , welche ja bereits eingebunden ist.

Das Programm sollte übrigens äquivalent zu folgendem sein:

Delphi-Quellcode:

program helloworld;

uses
  // für Sleep
  sysutils, 
  // für AssignDisplayString
  ndkutils;

begin
  // damit wir einfach Writeln benutzen können
  AssignDisplayString(Output, False);
  
  // kleine Ausgabe
  Writeln('Hello World!');

  // verwendet intern NtDelayExecution
  Sleep(3000);
end.

Gruß,
Sven

[jus]

Hallo Sven,

ich habe mir soeben auf einen neuen PC eine neue FPC 2.6.4 runtergeladen und es scheint, dass die nativent rtl nicht mit folgenden Befehl erstellen läßt.

Code:

make clean all OS_TARGET=nativent CPU_TARGET=i386 FPC=%DEIN_INSTALL_DIR%\i386-win32\fpc.exe INSTALL_PREFIX=%DEIN_INSTALL_DIR%

Wie ist der aktuelle Stand der Entwicklung?

Lg,
jus

[Luckie]

Hm, frag mal bei Assarbad nach. Hier Olli oder so. Mit dem habe ich mal so was gemacht oder versucht zu machen. Link: http://assarbad.net/