Dlaczego mi wywala że mailto jest nieznane
var a : string;
begin
plik:=TIniFile.Create('dane\kontakty.cfg');//tworzenie pliku
a:=plik.ReadString('kontakty',combobox2.Text,'a');
//ani tak
shellExecute(Handle,'open',mailto:a ,nil,nil,sw_show);
ani tak
ShellExecute(Handle,'open',PChar(a),nil,nil,sw_show);
Tylko żeby ktoś nie pisał że nie mam do modułów dodane ShellAPI
shellExecute(Handle,'open',mailto:a ,nil,nil,sw_show);
Co ma oznaczać: mailto:a ? Czy to jakiś pseudokod ?
Wcale się nie dziwię, że tu wywala błąd.
ShellExecute(Handle,'open',PChar(a),nil,nil,sw_show);
To jest napisane prawidłowo, ale czy ten ShellExecute uruchomi domyślny program pocztowy, zależy od zmiennej a. Musi to być string w postaci np. 'mailto:[email protected]'.
:p a z nudow odpowiem dokladniej :)
procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
begin
a:=edit1.Text;
ShellExecute(Handle,'open',PChar('mailto:'+a+'?subject=testowy temat'),nil,nil,sw_show);
end;