Popupmenü und links

[Cruesador]

dankeschön !
(grummel ich wart dann bis du zeit hast, ich versteh das nich grummel, ich würde mir das gerne von nem beispielcode abgucken und dann die sachen dadrinn verändern ... es reicht schon 1 befehl !)

[DeddyH]

Delphi-Quellcode:

function Oeffnen(const Dateiname: string; aHandle: Cardinal = 0): Boolean;
begin
  Result := ShellExecute(aHandle,'open',PChar(Dateiname),nil,nil,SW_SHOWDEFAULT) > 32;
end;

Das ist aber jetzt eine Sparversion ohne Parameter etc. Du musst die Unit ShellAPI einbinden. Für aHandle übergibst Du einfach Dein Fensterhandle.

[Cruesador]

und wie komm ich auf dieses ... "funktion oeffnen" ?
auf was muss ich klicken um das zu bekommen ?
danke
guck mal ob s geht

[DeddyH]

*Seufz*

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Oeffnen('C:\EinDokument.doc',Handle) then
    MessageBox(Handle,'Datei konnte nicht geöffnet werden','Fehler',MB_OK or MB_ICONERROR);
end;

[Cruesador]

nein funktioniert nich , das mit dem shelll execute und wenn ich das mit dem objektinspektor mach' dann kann ich auf nichts mehr klicken und es kommt jedes mal wenn ichh klicke ein "dööt". ich muss die .exe datei dann mit dem taskmanager beenden
naja ... gibts denn da noch was anderes was auch funktioniert ?