[J000S]

Hallo alle zusammen,

ich habe mir mit Delphi 7 eine kleine Anwendung gemacht, um mit einem klick verschiedene Anwendungen zu starten. Das funktioniert alles perfekt und so... ABER: Ein paar Bekannte und Kollegen finden das ebenfalls sehr nützlich. Nur haben die unterschiedliche Pfade zu den Verschiedenen Anwendungen.

Also im Prinzip habe ich 2 Buttons. Der eine startet E:\ XX\ XX\ anwendung.exe + E:\ XX\ XY\ anwendung.exe. Der zweite Button startet nur E:\ XY\ XY\ anwendung.exe.

Also ich hab mir das so gedacht, dass ich in einer Menükategorie einfach "Einstellungen" anlege, wo dann definiert wird, wo welche Anwendung liegt. Gespeichert kann das ganze dann in einer .txt oder .ini - Datei.

Problem: Hatte seit knapp 3 Jahren mit Delphi nix mehr am Hut und Dr. Google hat mir da nicht sehr geholfen


Hoffe mir kann jemand helfen

[J000S]

Super Das ist schon mal ein echter Anfang für mich. Ich hoffe, dass ich damit fürs erste klar komme

[J000S]

Hmmm.... hab das so übernommen. Aber bei mir will das nicht so ganz.

Zitat

[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'OpenDialog1'
[Fehler] Unit1.pas(36): 'THEN' erwartet, aber Bezeichner 'Execute' gefunden
[Fehler] Unit1.pas(37): ')' erwartet, aber Bezeichner 'FileName' gefunden
[Fehler] Unit1.pas(39): ';' erwartet, aber 'ELSE' gefunden
[Fehler] Unit1.pas(41): '.' erwartet, aber ';' gefunden
[Warnung] Unit1.pas(43): Text hinter dem abschließenden 'END.' wird vom Compiler ignoriert
[Fehler] Unit1.pas(14): Ungenügende Forward- oder External-Deklaration: 'TForm1.Button2Click'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 ini: TIniFile;
 inipath: String;  //variable für ini-pfad

begin
inipath:= ExtractFilePath(ParamStr(0))+'pfade.ini'; //Pfad für ini-Datei
 ini:= TIniFile.Create(inipath);  //ini-Datei im Programmverzeichnis erstellen
 if OpenDialog1.Execute then begin  //OpenDialog öffnen
  ini.WriteString('DateiPfad', 'datei_01',OpenDialog1.FileName); //pfad in ini-Datei schreiben
end
else begin
  // OpenDialog abbrechen
end;
 ini.Free;  //ini-Datei freigeben
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 ini: TIniFile;
 inipath, filepath: String; //variable für ini-pfad und exe-pfad

begin
inipath:= ExtractFilePath(ParamStr(0))+'pfade.ini';
 ini:= TInifile.Create(inipath);
 try
  filepath:= ini.ReadString('DateiPfad','datei_01',''); //exe-pfad aus ini-Datei auslesen
  ShellExecute(Application.Handle, 'open', PChar(filepath), '', Pchar(ExtractFileDir(filepath)), SW_SHOW); //exe-Datei starten
 finally
   ini.Free; //ini-Datei freigeben
 end;
end;

end.

[J000S]

oha. Das sollte ich mal versuchen Werd ich heute nachnittag mal machen. Dankee


OK das läuft schonmal.... aber wie kann ich jetzt mit dem einen Button 2 Anwendungen starten?

Jo läuft jetzt alles. KA obs der ideale Weg ist, aber es funzt

Dieser Beitrag wurde von J000S bearbeitet: 26. Oktober 2011 - 18:49