символ пробела в корпусе оболочки ShellExecute по электронной почте

Question

Я хочу использовать ShellExecute, чтобы пользователь мог отправить электронное письмо из своей электронной почты по умолчанию; например

const 
    CRLF = '%0D%0A'; 
var 
    Body: string; 
begin 
    Body := 'Information from my program'+CRLF+ 
     'that is put in the body of the email'; 
    ShellExecute(Application.Handle, 'open', PChar('?Subject=My Subject&Body=' + 
     Body),nil, nil, SW_SHOWNORMAL); 

Я хочу отформатировать тело с колонками информации. Как я могу помещать пробел? Кажется, что% 20 будет работать в одном пространстве - иногда, но это не работает в начале строки или нескольких соседних пространств. Это «» не работает либо :(

Answer 1

Используйте двойные кавычки (Chr(34)) внутри строки:

Body := #34 + 'Information from my program' + CRLF + 
     'that is put in the body of the email' + #34; 
ShellExecute(Application.Handle, 'open', 
    PChar('?Subject=My Subject&Body=' + Body), nil, nil, SW_SHOWNORMAL); 

Чтобы выровнять столбцы, вы можете попробовать с помощью символов табуляции вместо (Chr(9)) - как я уже говорил в моих комментариях, я не могу получить ShellExecute работать с mailto на Windows 7 с Thunderbird:

Body := #34 + 'Information from my program' + CRLF + 
     'that is put in the body of the email' + CRLF + 
     'Col1'#9'Col2'#9'Col3' + #34; 

(Встраивание с использованием Stuff # 9 'Больше материала' является сокращением для 'Stuff' + #9 + 'More Stuff', BTW.