то при его запуске вы услышите, как Sam говорит фразу, заключенную в кавычках.
Мне (может быть и не первому в мире) пришла в голову идея сделать говорящую программу. Для этого (если вы используете Lazarus) нужно будет подключить юнит Windows.
Легче всего будет написать функцию, а потом вызывать ее. Итак, вот она:
code:function SpeakCommand(phrase:string) :integer;
var a:text;
begin
assignfile(a,'speak.vbs'); rewrite(a);
writeln(a,'CreateObject("SAPI.SpVoice").Speak"'+phrase+'"');
closefile(a);
ShellExecute (Form1.Handle, nil, 'speak.vbs', nil, nil, SW_RESTORE);
end;
Тут мы создаем файл vbs и вписываем в него переменную типа string, а потом при помощи ShelExecute выполняем файл.
Теперь пример вызова функции.
Например, при нажатии на кнопку.
code:procedure TForm1.Button9Click(Sender: TObject);
begin
DoSomethingRealyCool;
SpeakCommand('Some Cool done');
end;
__________________
У котёнка мокрый нос и гладенькая шерсть, у него забавный хвост и быстрых лапок шесть. Две задних, две средних и две передних лапы, такая многоножка получилася у папы.
Он ученый — папа мой — зверушек изучает, гуляет по помойкам, ловит крыс и чаек. Две крысы белокрылые и чайки две унылые покрытые пупырчатою кожей лягушат без пёрышек тоскуют и ускакать спешат.
А ещё есть муравей большой размером с гуся он пугает всех зверей, и я его боюся, когда он ковыляет на лапках на своих.
И в двери ударяет, и начинает стих: Я — муравей, воды налей! Не меньше ведра, напиться мне пора!
| IP: 
26-02-2011 14:12
