Hi!
Also wie ich shellExecute aufrufe weiß ich.
Es sieht jetzt folgendermaßen aus und funktioniert natürlich nicht:
Code:
procedure TForm2.BitBtn11Click(Sender: TObject);
begin
if pfad = StandardFileName then
Speichernals1Click(Sender)
else
begin
SynEdit1.Lines.SaveToFile(pfad);
SynEdit1.Modified := False
end
end;
begin
ShellExecute(Application.Handle, 'open',
PChar('pfad'), nil, nil, SW_ShowNormal);
end.
Grolle