Mam programik który coś tam sobie wylicza i zapisuje to w pliku tekstowym, w lokalizacji podanej przez użytkownika, oraz z możliwością podania własnego rozszerzenia pliku. Znajduje się również opcja która pozwala na otwarcie tego pliku z poziomu programu. Ponieważ użytkownik sam może podać rozszerzenie, więc przy próbie otwarcia wyskakuje komunikat o wybór programu do otwarcia pliku. Wiem, że można na stałe przypisać w systemie jaki program ma otwierać plik o zdefiniowanym rozszerzeniu, ale nie o to mi chodzi, chcę żeby program zawsze otworzył to w notatniku niezależnie od podanego rozszerzenia, nawet jeżeli nadam rozszerzenie *.xls, to program ma to otworzyć w notatniku.
To co mam wygląda tak:
var
a : AnsiString;
b : PAnsiChar;
begin
a := sciezkazapisu;
b := PAnsiChar(a);
ShellExecute(Handle,'open', b ,nil,nil,SW_SHOWNORMAL);
end;
Co powinienem tutaj zmienić, ewentualnie dodać?