Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - bei ButtonClick externe Datei öffnen


Raze-t - Mi 11.02.09 15:30
Titel: bei ButtonClick externe Datei öffnen
Hallo^^
Wie der Titel schon verrät, möchte ich ein Programm schreiben, bei dem, wenn ich auf einen Button klicke, eine externe Datei geöffnet wird!
Das Problem ist, dass ich nicht weiß, wie der Befehl dazu lautet...
Also bei
procedure TForm1.Button1Click(Sender: TObject) möchte ich dann, dass eine externe Datei geöffnet wird...
Wie stelle ich das an?^^
Bitte um schnelle Antwort,
danke


ZeitGeist87 - Mi 11.02.09 15:45

Moin!

Nach langer langer Zeit mal wieder ein Posting von mir.

Suche in der Entwickler-Ecke SHELLEXECUTE hilft dir dabei.

Du musst die Unit shellapi in die Uses-Klausel einbinden und dann folgendes im Code schreiben:


Delphi-Quelltext
1:
2:
3:
4:
TForm_Main.Buttonblabla
begin;
 shellexecute(application.handle, 'open', pchar(Dateiname), nil, pchar('Verzeichnis'), SW_ShowNORMAL);
end;


LG
Stefan


JayEff - Mi 11.02.09 15:46

Ich weiß zwar nicht genau was du mit öffnen meinst (Exe ausführen? txt in Notepad öffnen? :nixweiss: ) aber wenn du mal gesucht hättest...:
Suche in: Delphi-Forum, Delphi-Library DATEI ?FFNEN
wärst du hierrauf gestoßen: http://www.delphi-forum.de/viewtopic.php?t=81798
;)
Bitte nächstes mal selber suchen.

PS: Bitte keine Schiebepostings in die Shoutbox, die gehören da nicht rein. ;)


Nersgatt - Mi 11.02.09 15:46

Was meinst Du mit öffnen.
Willst Du in Deinem Programm den Inhalt lesen, oder die Datei mit dem dazugehörigen Programm öffnen (z.B. doc mit Word, usw)?


Raze-t - Mi 11.02.09 15:49

aso, ich möchte damit eine .bat datei öffnen ;)


elundril - Mi 11.02.09 15:51

willst du sie ausführen oder willst du das der text der .bat datei in deiner EXE aufscheint?

lg elundril


Raze-t - Mi 11.02.09 15:52

ich möchte, dass die datei ausgeführt wird^^
(vielen dank für die vielen antworten :) )


ZeitGeist87 - Mi 11.02.09 15:53

Somit ist shellexecute das Richtige ;-)


elundril - Mi 11.02.09 15:53

Dann ist shellexecute dein freund! :D

lg elundril


Raze-t - Mi 11.02.09 16:02

ah^^
es funktioniert :)
dankeschön an alle, ihr habt mir seeeeeeeeeeeeehr geholfen ^^


JayEff - Mi 11.02.09 16:02

user profile iconRaze-t hat folgendes geschrieben Zum zitierten Posting springen:
ah^^
es funktioniert :)
dankeschön an alle, ihr habt mir seeeeeeeeeeeeehr geholfen ^^

Aber gern doch :zustimm: