Wie erstelle ich eine nonVCL-Anwendung

[Aike]

Hallöchen,

einfache Frage mit sicherlich einfacher Antwort:
Wie erstelle ich eine nonVCL-Anwendung?

Unter Neu ... finde ich nichts Passendes; im Forum konnte ich nichts finden und in Tuts steigt man auch immer schon gleich später ein o.O

Danke für eure Hilfe!

Aike

[ErazerZ]

Konsolen Anwendung

[Aike]

Hm, da kann man ja mal gar nichts benutzen

Gibt es irgendwo ein anständiges Tutorial, das mir die Grundlagen beibringt? ... Sowas wie "Welche procedure wird bei Programmstart aufgerufen" etc.? Ich will gar nicht viel von meinem Programm (hoffe ich), deshalb will ich mich mal an nonVCL heranwagen.

DSDT.info hat nur zwei schlechte Tutoriale und bei Luckie blicke ich nicht so recht durch. Was ich suche, ist ein Beispielprogramm, das zwei Zahlen addieren kann oder so. Das muss noch nichtmal eine MsgBox haben oder so.

[Matze]

Zitat von Aike:

Gibt es irgendwo ein anständiges Tutorial, das mir die Grundlagen beibringt?

Selbstverständlich. Luckie, Mathias, Olli etc. haben das Win32 API Tutorial geschrieben bzw. zusammengetragen.

[freak4fun]

Hallo ,

sowas?

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Zahl1, Zahl2: Integer;

begin
  Writeln('Bitte geben Sie eine Zahl ein.');
  Readln(Zahl1);
  Writeln('Bitte geben Sie noch eine Zahl ein.');
  Readln(Zahl2);
  Writeln(IntToStr(Zahl1) + '+' + IntToStr(Zahl2) + '=' +  IntToStr(Zahl1 + Zahl2));
  Readln;
end.

MfG
freak

[DGL-luke]

nonVCL <> nonGUI

Was Aike will, ist wohl weg vom VCL-Ballast.

Luckie hat da sicher irgendwo ein template.

Man braucht eben eine Windowproc und muss die entsprechenden API-Funktionen kennen (CreateWindow etc.).

Die Win32-API-Tutorials helfen da doch sicher.

[SirThornberry]

ich mach immer "File->New->Application" dann schließe ich die unit1 ohne zu speichern und entferne den überflüssigen Ballast aus der Projectdatei.

Am Ende sieht meine Projektdatei also so aus (hab mal auskommentiert was sonst rausgeschmissen wird)

Delphi-Quellcode:

program Project1;

uses
  //Forms; nach rausschmeißen dieser Unit kann eigentlich sofort die Unit windows eingebunden werden

{$R *.res}

begin
  {//unnötig da wir nicht mit TApplicaiton arbeiten
  Application.Initialize;
  Application.Run;
  }
end.