Name einer einer Datei herausfinden...

[Sharky]

Zitat von Daniel B:

Hai Sharky,

wozu denn noch zwischenspeichern?!

....

Hai Daniel B.

hätte ich ja auch nicht so gemacht. Aber ich denke Neo möchte mit der ausgewählten Datei mehr machen als nur den Namen in einem Label anzuzeigen.

z.B.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 sFileName: string;
begin
 if (OpenDialog1.Execute) then
  begin
   sFileName := OpenDialog1.FileName;
   if MessageDlg('Soll die Datei '
    + sFileName
    + ' in der verknüpften Anwendung geöffnet werden?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
     shellexecute(handle, 'open', PChar(sFileName), nil, nil, sw_show);
    end;
   Label1.Caption := ExtractFileName(sFileName);
  end;
end;

Auch hier müsste es zwar nicht sein. Macht den Code aber IMHO übersichtlicher

[EDIT-ON] Und wieder hat einer gepostet als ich noch getippt habe *snief* [EDIT-OFF