Dałem taki oto kodzik:
[code]var
P : PChar;
begin
P := PChar('mailto:?Subject=Temat&Body='+Memo1.Lines.Text);
ShellExecute(Handle,'open',PChar(P), nil, nil, SW_SHOW);
end;[/code]
Problem w tym, że po otworzeniu Outloka, traci wszystkie entery... tekst jest spójny. Jak to poprawić ?
StringReplace(#13#10,'%13%10', [frReplaceAll])
Jak byś chciał to w jednym takim programie do smsów było mi potrzebne do encodowania urla:
function UrlEncode(s: string): string;
var
i: integer;
begin
for i := 1 to Length(s) do
if s[i] in [#1..#44,#47,#58..#64,#91..#94,#96,#123..#255] then
Result := Result + '%' + IntToHex(Ord(s[i]), 2)
else
Result := Result + s[i];
end;