![]() |
Speedbutton neu belegen?
Abend zusammen,
ich habe ein kleines Problem, ich habe einen Speedbutton mit einer Windowsfunktion belegt, z.B.
Code:
Nun möchte ich aber das man das Programm, welches bei onClick ausgeführt wird, selbst auswählen kann (z.B. Textpad.exe) wie kann ich das realisieren, das man die Funktion die hinter dem Button abgelgt ist, vom User selbst einstellbar ist??
ShellExecute(Handle, nil, 'rundll32.exe',
'shell32.dll,Control_RunDLL inetcpl.cpl,,0', nil, SW_SHOW); Habe schon einiges probiert und komme nicht auf nen vernünftigen Nenner... Hoffe Ihr könnt mir helfen, Gruß Onkel |
Re: Speedbutton neu belegen?
ShellExecute(handle, 'open', PChar(Dateiname.Text), PChar(Parameter.Text), PChar(Pfad.Text), sw_show);
wobei Dateiname, Parameter und Pfad vom Typ TEdit sind in diesem Beispiel |
Re: Speedbutton neu belegen?
Hallo und herzlich Willkommen in der DP!
Statt dem 'rundll32.exe' brauchst Du eben eine "Auswahlliste", entweder hast Du die irgendwo, z.B. ListBox, dann musst Du das nur austauschen, oder es kommt irgend eine Auflistung, wo die ganzen .exen aufgelistet sind und der User eine Auswahl, siehe z.B. InputBox, oder Du machst es ganz einfach mit einem OpenDialog und nimmst dessen FileName anstatt dem 'rundll32.exe'. |
Re: Speedbutton neu belegen?
Danke für die schnelle Antwort werd das mal mit der Listbox probieren...
mal schauen wie das funzt, bin noch relativ neu im Delphi coden... Nächste Frage gleich anschließend daran, wie kann ich es verwirklichen das die settings die der User dann gemacht hat nicht verloren gehn, nachdem erdas Prog schließt, muß ich dafür in die Registry schreiben?? Anmerkung: Super Forum hier, hier wird einem wenigstens vernünftig gehlofen!!! Gruß Onkel |
Re: Speedbutton neu belegen?
in der Registry speichern oder in einer Datei. Fürn Anfang ist TIniFile aus der unit inifiles ganz ok (total simple)
|
Re: Speedbutton neu belegen?
Danke werd mich dann da mal einlesen :zwinker:
|
Re: Speedbutton neu belegen?
wollte mich bei euch allen nochmals für die Hilfe bedanken, funzt nun alles super, hätte schon früher meine Danksagungen ausgesprochen, war aber die vergangenen Wochen im Urlaub... :dp:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz