Brauche dringend Hilfe zu shellExecute

[Burgener Sandro]

Hallo

Ich hab für mein Prüfungsprogramm eine egiene Dateiendung in der Registry registriert. Könnt Ihr mir sagen, wie ich nun ein beim Aufstarten des Progs über die Datei den Inhalt der Datei in ein Memo meines Progs kriege??

Besten Dank zum voraus

BUSA

[Bernhard Berger]

Die ShellExecute-Funktion brauchst du nur um andere Programme zu starten. Wenn ich dein Problem richtig verstanden habe, brauchst du nur den Programm-Parameter mit der Funktion <b>ParamStr</b> (s. Delphi-Hilfe) auswerten.
<p>
z.B. Memo1.Lines.LoadFromFile(ParamStr(1));
<p>
Gruß,<br>
Bernhar

[Sebastian Köhler]

Schau Dir mal ein wenig die Registry an ! Wenn du den Datentyp nicht findest leg ihn einfach an...das geht schnell und gut!<br>
beispiel für ist das folgende...<br><br><br>
uses Registry;<br><br>
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
reg: TRegistry;<br>
begin<br>
reg := TRegistry.Create;<br>
with reg do<br>
try<br>
RootKey := HKEY_CLASSES_ROOT;<br>
OpenKey('txtfile\shell\open\command', False);<br>
WriteString('', ParamStr(0) + ' %1');<br>
CloseKey;<br>
finally<br>
reg.Free;<br>
end;<br>
end;<br><br><br>
wenn noch fragen sind mail mir [email protected]