Hallo,
ich möchte einen Button in eine Maske einfügen. Dieser soll wenn er gedruckt wird einen Ordner öffnen und falls dieser noch nicht existiert diesen anlegen.
Das einfügen des Button ist nicht das Problem, aber wie mußt das Skript aussehen damit der Ordner geöffnet wird und ggf. angelegt wird??
Oder wie ist es möglich ein z.B. C++ Programm bei dem OnClickScript auszuführen und diesem Variablen mit zu übergeben??
Habe so gut wie keine Ahnung von Delphi
Ordner öffnen durch OnClickScript
Moderator: SYNERPY
-
- Site Admin
- Beiträge: 2673
- Registriert: Di Feb 10, 2004 5:48 am
- Wohnort: Bayreuth
Ein guter Programmierer weiß, was er programmieren muss.
Ein exzellenter Programmierer weiß, was er kopieren muss.
Schau doch mal in die Maske FRMV_BSAFILE, da gibt es schon alles:
Öffnet einen Filedialog. Dort kann der Ordner manuell angelegt werden. Vorher aber eine TOpendialog-Komponente auf das Formular setzen (Rechts unten im Designer, "Feldunabhängige Komponente").
Der "Öffnen"-Button startet ein Programm:
Hier kann gestartet werden, was man will, also z.B.:
Ein exzellenter Programmierer weiß, was er kopieren muss.
Schau doch mal in die Maske FRMV_BSAFILE, da gibt es schon alles:
Code: Alles auswählen
Begin
if (q_1.state = dssInsert) or (q_1.state = dssEdit) then
begin
s1 := OPENDIALOG('OPENDIALOG_1');
if s1 <> '' then
E_PFAD.Field.Value := s1;
end;
End;
Der "Öffnen"-Button startet ein Programm:
Code: Alles auswählen
Begin
if ((q_1.state <> dssInsert) or (q_1.state <> dssEdit)) then
begin
PFAD := AsString(q_1.FieldByName('PFAD'));
if (PFAD <> '') then
Externprogramm('',PFAD,0);
end;
End;
Code: Alles auswählen
PFAD := 'c:\programme\averp\meine.exe';
-
- Beiträge: 84
- Registriert: Di Apr 11, 2006 2:42 pm
-
- Site Admin
- Beiträge: 2673
- Registriert: Di Feb 10, 2004 5:48 am
- Wohnort: Bayreuth
Externprogramm(sProgramm, sParameter : string; nWarten : integer);
Startet jedes beliebige Programm.
Parameter nWarten=0 -> Programm starten ( default )
Parameter nWarten=1 -> Programm starten und Warten bis beendet.
Para: nwarten=1 funktioniert nicht bei allen Programmen z.B. AcrobatReader und nur wenn ein Programm mit angegeben worden ist.
Beispiel 1:
EXTERNPROGRAMM('"C:\Programme\Adobe\Acrobat6.0\Acrobat\Acrobat.exe"',
'"C:\Temp\test.pdf"',1);
Beispiel 2:
EXTERNPROGRAMM('','C:\Temp\Test1.doc',1);
( Doppelte Anführungszeichen hier weglassen. Es wird das Programm gestartet, welches mit dem Dokumententyp „doc“ intern verknüpft ist.
Startet jedes beliebige Programm.
Parameter nWarten=0 -> Programm starten ( default )
Parameter nWarten=1 -> Programm starten und Warten bis beendet.
Para: nwarten=1 funktioniert nicht bei allen Programmen z.B. AcrobatReader und nur wenn ein Programm mit angegeben worden ist.
Beispiel 1:
EXTERNPROGRAMM('"C:\Programme\Adobe\Acrobat6.0\Acrobat\Acrobat.exe"',
'"C:\Temp\test.pdf"',1);
Beispiel 2:
EXTERNPROGRAMM('','C:\Temp\Test1.doc',1);
( Doppelte Anführungszeichen hier weglassen. Es wird das Programm gestartet, welches mit dem Dokumententyp „doc“ intern verknüpft ist.