Open Dialog (ShellExecute) Frage 2

[Trouble_Maker]

Hiho ...

so habs jetzt auch hinbekommen. Habs aber anders gemacht (@toms]:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    panel2.caption:= ExtractFileName(OpenDialog1.FileName);
    if panel2.Caption = '' then
      panel2.hint:= ''
       else
         begin
          panel2.ShowHint := true;
          panel2.hint:= ExtractFilePath(OpenDialog1.FileName);
         end;
  //ShellExecute(Handle, nil, PChar(OpenDialog1.FileName), nil, nil, SW_SHOW);
  end;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  panel1.caption := TimeToStr(now);
  if panel1.caption = MaskEdit1.text then
  begin
    //timer1.enabled:=false;
    //Showmessage(TimeToStr(now));
    ShellExecute(Handle, nil, PChar(OpenDialog1.FileName), nil, nil, SW_SHOW);
  end;
end;

also so klappts bei mir, auch ohne dem "ExtractFileDir".

Hab jetzt noch ne andere Frage, aber die werde ich morgen posten, oder mal sehn ob ich´s allein hinbekomme ...

bis dann


Trouble_Maker