Aus Delphi neues Programm öffnen

[DelphiE46]

Hallo,
ich möchte gerne eine funktion schreiben, die eine andere datei auf meinem computer z.B. .exe oder .bat aufruft.
Ich habe es für eine .exe nun folgendermaßen gemacht, jedoch kommt auch die gleich angegeben Fehlermeldung

Delphi-Quellcode:

var Exe: string;
begin
Exe := 'd:\windows\system32\notepad.exe';
ShellExecute(Application.Handle, 'open', PChar(Exe), '', Pchar(ExtractFileDir(Exe)), SW_SHOW);
end;

Dazu kommt folgende Fehlermeldung:

Line 1/5: Need ":=" here

Selbst wenn ich schreiben

var Exe:= string; bleibt es.

[Luckie]

Die Zeilen sind OK. Der Fehler muss davor liegen. Lösch mal die dcus und mach ein neues Bild, dann sind Fehlermeldung und Code auch wieder synchron, was die Zeilenangaben angeht.

[DelphiE46]

Verstehe auch nicht warum es so nicht geht.
Kann das jmd mal in sein Delphi reinhaun und gesamten Quellcode vielleicht dann posten. Weil bei mir geht es einfach nicht -.-

[Der.Kaktus]

Hallo,
habs probiert..geht prima...hast Du evtl. vergessen

Delphi-Quellcode:

uses ShellApi;

einzubinden? :cyclops:

[Daniel]

Es ist, wie Michael gesagt hat. Dein Code ist korrekt und kompiliert unter Delphi 2007 ganz wunderbar. Dein Fehler muss woanders liegen.

@Kaktus: Das würde aber nicht die im ersten Beitrag genannte Fehlermeldung erklären.

[DelphiE46]

Bekomme es unter Delphi nicht hin, weder in dem Programm wo es rein soll. OpenSource Programm welches in Pascal geschrieben ist.
Wie sieht euer komplette Quellcode aus Delphi denn aus?

[DeddyH]

Gegenfrage: wie sieht denn Dein Code aus?

[Der.Kaktus]

Zitat:

Zitat von DelphiE46

Bekomme es unter Delphi nicht hin, weder in dem Programm wo es rein soll. OpenSource Programm welches in Pascal geschrieben ist.
Wie sieht euer komplette Quellcode aus Delphi denn aus?

Pascal ist auch nicht Delphi...deshalb sicher auch der Fehler !!

Liste mal den kompletten Code dann gehts leichter zu ueberschauen.

[Edit] ups..Deddy war schneller :cheers:[/Edit]

[littleDave]

Zitat:

Zitat von DelphiE46

Dazu kommt folgende Fehlermeldung:
Line 1/5: Need ":=" here

Diese Fehlermeldung ist mir total unbekannt. Normalerweise kommt doch sowas wie Declaration expected but found ':=' instead (oder so). Aber das
Line 1/5: Need ":=" here kenn ich aus Delphi nicht. Bist du sicher, dass du Delphi benutzt und nicht FreePascal/Lazarus/...?

[DelphiE46]

Mehr Code habe ich nicht ;)
Muss in dem Programm halt eine Procedure einbinden, die dann ein Programm aufruft und das bekomme ich halt nicht hin, wie die Procedure auszusehen hat.

[Der.Kaktus]

Zitat:

Zitat von DelphiE46

Mehr Code habe ich nicht ;)
Muss in dem Programm halt eine Procedure einbinden, die dann ein Programm aufruft und das bekomme ich halt nicht hin, wie die Procedure auszusehen hat.

Was benutzt Du denn fuer einen Compiler..Delphi(wenn,welche Version)..Turbo Pascal...Lazarus ???..ohne diese Info's koennen wir Dir nicht helfen!!

[DelphiE46]

Muss die Procedure in dem OpenSource System: AvERP schreiben.
Habe leider bis jetzt nichts über den Compiler gefunden.
Der Quellcode ist nur mit IBExpert einsehbar!

[littleDave]

Zitat:

Zitat von DelphiE46

Mehr Code habe ich nicht ;)
Muss in dem Programm halt eine Procedure einbinden, die dann ein Programm aufruft und das bekomme ich halt nicht hin, wie die Procedure auszusehen hat.

Ich würd dir unbedingt emfehlen, dass du dich erstmal mit der Programmiersprache Delphi auseinandersetzt.
Hier gibt es ein paar gute Tutorials, die du erstmal durcharbeiten solltest. Da du ja schon programmiert hast, sollte dir das nicht so schwer fallen.

[DelphiE46]

Ich kann in dem Fenster dort ja nicht unbedingt viel mehr Eingeben.
Ich gehe dort auf Erzeuge allgemeine Procedure und dann wird mir folgendes vorgegeben:

Delphi-Quellcode:

Begin

End;

Warum geht mein Quellcode dann nicht?

[Der.Kaktus]

Zitat:

Zitat von DelphiE46

Ich kann in dem Fenster dort ja nicht unbedingt viel mehr Eingeben.
Ich gehe dort auf Erzeuge allgemeine Procedure und dann wird mir folgendes vorgegeben:

Delphi-Quellcode:

Begin

End;

Warum geht mein Quellcode dann nicht?

Das ist Programmspezifisch...vielleicht weiss ein "AvERP" Spezi hier ja was darueber. Habe gerade mal bissl gegoogelt..da bekam ich einen Link aufs Entwicklerforum. ;-)

[Daniel]

Zitat:

Zitat von DelphiE46

Muss die Procedure in dem OpenSource System: AvERP schreiben.

Ganz wichtig für die Zukunft: Sowas muss in den ersten Beitrag.

[DelphiE46]

In das Forum kann man jedoch nichts reinschreiben, weil die deine Daten erst prüfen und dies Jahre dauert.
Müsste die Procedure so nicht funktionieren? Und wieso meckert er an der Zeile rum, die ich angegeben hatte?

[DP-Maintenance]

Dieses Thema wurde von "Daniel" von "Object-Pascal / Delphi-Language" nach "Programmieren allgemein" verschoben.
Ist kein Delphi ...

[Der.Kaktus]

Zitat:

Zitat von DelphiE46

In das Forum kann man jedoch nichts reinschreiben, weil die deine Daten erst prüfen und dies Jahre dauert.
Müsste die Procedure so nicht funktionieren? Und wieso meckert er an der Zeile rum, die ich angegeben hatte?

Irgendwie ist der Syntax sicher anders..da ich das System aber nicht kenne, kann Dir dies nur ein Spezi dieses Systems sagen.
Ich habe in dem Forum einen Nick gelesen..er ist hier auch sehr aktiv..warte einfach mal etwas.

[DelphiE46]

Kann mir dann jmd helfen wie der Quellcode nun komplett in Delphi aussieht damit es da funktioniert? Dann kann ich wenigstens versuchen den Rest in dem Programm dort hinzubekommen.

[mkinzler]

Holger Klemt (IBExpert) kennst sich darin wohl aus.

[Luckie]

Zitat:

Zitat von DelphiE46

Kann mir dann jmd helfen wie der Quellcode nun komplett in Delphi aussieht damit es da funktioniert? Dann kann ich wenigstens versuchen den Rest in dem Programm dort hinzubekommen.

Wie dir schon mehrfach gesagt wurde, kompiliert dein ursprünglicher Code mit Delphi. Voraussetzung ist natürlcih, dass du auch Delphi benutzt. Also entweder Delphi, Borland Developer Studio oder Turbo Delphi. Aber da du ja anscheined einen anderen Kompiler benutzt, wird es recht wenig bringen, wenn wir dir hier Code posten, der unter Delphi kompiliert.

[DelphiE46]

Und wo finde ich den den Holger? Ist er hier im Forum und kann ich diesen hier irgendwie suchen?


Doch der Quellcode bringt mich weiter, da er bei mir unter Delphi 5 nicht läuft.

[mkinzler]

Zitat:

Zitat von DelphiE46

Und wo finde ich den den Holger? Ist er hier im Forum und kann ich diesen hier irgendwie suchen?


Doch der Quellcode bringt mich weiter, da er bei mir unter Delphi 5 nicht läuft.

Benutzer IBExpert hier oder http://ibexpert.biz/ibe/index.php?n=Main.AvERP

[Luckie]

Zitat:

Zitat von DelphiE46

Doch der Quellcode bringt mich weiter, da er bei mir unter Delphi 5 nicht läuft.

Also was denn jetzt? Entweder Delphi oder dieser andere Kompiler. Aber auch unter Delphi 5 sollte er fehlerlos kompilieren.

[DelphiE46]

Alles klar werde da mal gucken ;)

Möchte es wenigstens mal unter Delphi Testen. Und wenn ich ein fuktionierenden Quellcode habe kann ich wenigstens auschließen ob mein Delphi ne Macke hat oder nicht, weil ich das auch erst seit 4 Tagen drauf habe und bis jetzt noch kein Programm lief :D

[mkinzler]

Zitat:

Zitat von DelphiE46

Alles klar werde da mal gucken ;)

Möchte es wenigstens mal unter Delphi Testen. Und wenn ich ein fuktionierenden Quellcode habe kann ich wenigstens auschließen ob mein Delphi ne Macke hat oder nicht, weil ich das auch erst seit 4 Tagen drauf habe und bis jetzt noch kein Programm lief :D

Versuch doch mal die mit Delphi mitgelieferten Demos

[DelphiE46]

Hmm... die gehen :(

Ich klicke auf Neu, Anwendung und kopiere dann mein Quellcode rein aber warum geht das nicht??

[mkinzler]

Nur den Code reinkopieren reicht natürlich nicht. Entweder musst die Komponenten in der IDE anlegen oder manuell erzeugen.

[DelphiE46]

Hmm...
Habe mir nun ein Button angelegt.
Und wie schreibe ich das nun, dass der Button nach Click, das Programm öffnet?
Finde gar kein OnClick Event oder so in der Leiste.

Komme irgendwie mit Listenern in Java besser klar :D

[mkinzler]

Klicke in der IDE auf den Button und Wechsle im OI auf Ereignisse

[DelphiE46]

Ah super.
Und wie verbinde ich mein Quelltext nun mit dem OnClick?

[mkinzler]

Doppelklick auf Button oder Ereignis im OI. Dann wird die Methode angelegt und die Property auf sie gestellt.
Du kannst das auch im Code machen

Delphi-Quellcode:

ComboBox.onClick := <Methode>;

Ohne Parameter, aber Signatur muss stimmen

[haentschman]

Zitat:

Finde gar kein OnClick Event oder so in der Leiste.

Button anklicken (1 mal) -> Objektinspektor -> Ereignisse (Auflistung der möglichen Ereignisse)-> OnClick doppelklick -> procedure für OnClick wird erstellt -> Dein Code rein -> fertig

...hoffe geholfen zu haben :hi:

edit: nix roter Kasten :gruebel: na ja....

[DelphiE46]

Ja das war von beiden sehr hilfreich, jedoch geht der Mist wieder nicht, habe es nun so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var Exe: string;
begin
begin
Exe := 'd:\windows\system32\notepad.exe';
ShellExecute(Application.Handle, 'open', PChar(Exe), '', Pchar(ExtractFileDir(Exe)), SW_SHOW);
end;

end.

Kommen jedoch 3 Fehlermeldungen:
Unit.pas(31): Undefinierter Bezeichner: "ShellExecute"
Unit.pas(34): "," erwartet aber "." gefunden
Unit.pas(36): Deklaration erwartet, aber Dateiende gefunden

Und wieso geht das bei euch?? :D

[mkinzler]

Hast du ShellAPI eingebunden?

[DelphiE46]

Nun ja, aber die anderen beiden Fehler bleiben bestehen, deswegen habe ich nach funktionierendem Code gefragt :D

Fehler sind weg, es lag am doppelten begin :D
Jedoch kommt jetzt noch:
Ausgabedatei:...... kann nicht erstellt werden

[mkinzler]

Entferne das überflüssige begin in Zeile 28

[mkinzler]

Was steht den im Ausgabepfad des Projekts? Hast du es schon gespeichert?

[DelphiE46]

Gespeichert habe ich es noch nicht.
Es läuft nun komischerweise, jedoch kann ich den Button anklicken und es passiert nichts :D

Ok habe es nun hinbekommen. Aber warum kann er sowas wie Notepad öffnen und ICQ nicht? :D
Wie mache ich das wenn ich anstatt eine .exe z.B. eine .bat öffnen möchte?