Jak wymusić aby program otwierał plik w notatniku

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ć?

var 
        a : AnsiString; 
        b : PAnsiChar; 
begin 
        a := sciezkazapisu; 
        b := PAnsiChar(a); 
        ShellExecute(Handle,'open', PChar('notepad.exe') , b,nil,SW_SHOWNORMAL);
end; 

pozdrawiam
paweld