[Delphi] Znajdz plik na dysku ala winamp

Lamer90

2008-01-16 17:43

Lamer902008-01-16 17:43

Witam chodzi stworzenie takiej funkcji w delphi , tak jak jest to w winampie że gdy klikniemy na playliście prawym przyciskiem myszy na plik i wybierzemy z menu rozwijalnego opcję "Znajdz plik na dysku" Winamp wyświetli ten folder w eksploratorze windows i dodatkowo podświetli ten plik .

Na razie wykodziłem tyle :

Kopiuj


uses: ShellApi 

procedure TForm1.Button1Click(Sender: TObject);
var
 Aplikacja : String;
begin
 Aplikacja := ExtractFileDir(Edit1.text);
 ShellExecute(0, 'explore', PChar(Aplikacja),nil, nil, sw_Show);
end;

Otwiera folder w którym znajduje się plik ,
lecz teraz <ort>niewiem </ort>jak podświetlić owy plik , było by fajnie gdyby ktoś pomógł
Pozdrawiam

crowa

2008-01-16 22:24

crowa2008-01-16 22:24

Rejestracja:ponad 18 lat
Ostatnio:około 8 lat
Lokalizacja:Poznań
Postów:295

moze to Ci jakos pomoze (ja potrafie tylko to)

Kopiuj

procedure TForm1.Button1Click(Sender: TObject);
var Result: Integer;
begin
  try
    Result := ShellExecute(Handle, 'OPEN', PChar('EXPLORER.EXE'),
      PChar('/SELECT, "' + Edit1.Text + '"'), nil, SW_SHOW);
    if Result < 32 then raise Exception.Create('Some problems');

  except
    on E: Exception do raise Exception.Create('Some problems');
  end;
end;