var
Sciezka: String;
begin
Sciezka :=ExtractFilePath(Application.ExeName);
ShellExecute(handle, 'explore', PChar(Sciezka), NULL, NULL, SW_SHOWNORMAL);
przykład prosto z helpa i nie dziala
--Pozdrowienia {hello}
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:D