Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Memo1.Lines.Add(ALine);

Memo1.SelStart := 0;

SendMessage(Memo1.Handle, EM_ScrollCaret, 0, 0);

end;

end;

Refresh;

end;

The_Spriteсоветует:

Пример показывает, как найти окно Internet Explorer, и захватить из него текущий URL, находящийся в поле адреса IE. В Исходнике используются простые функции win32 api на delphi.

{-------------------------------------------------------}

FunctionGetText(WindowHandle: hwnd): string;

var

txtLength : integer;

buffer: string;

begin

TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);

txtlength := txtlength + 1;

setlength(buffer, txtlength);

sendmessage(WindowHandle, wm_gettext, txtlength, longint(@buffer[1]));

result := buffer;

end;

functionGetURL: string;

varie, toolbar, combo, comboboxex, edit, worker, toolbarwindow: hwnd;

begin

ie := FindWindow(pchar('IEFrame'), nil);

worker := FindWindowEx(ie, 0, 'WorkerA', nil);

toolbar := FindWindowEx(worker, 0, 'rebarwindow32', nil);

comboboxex := FindWindowEx(toolbar, 0, 'comboboxex32', nil);

combo := FindWindowEx(comboboxex, 0, 'ComboBox', nil);

edit := FindWindowEx(combo, 0, 'Edit', nil);

toolbarwindow := FindWindowEx(comboboxex, 0, 'toolbarwindow32', nil);

result := GetText(edit);

{-------------------------------------------------------}

procedureTForm1.Button1Click(Sender: TObject);

begin

showmessage(GetURL);

end;

Тема: Как заставить приложение Delphi 2 `петь`.

Данный совет демонстрирует четыре различных способа как заставить ваше Delphi 2.0 приложение `петь`, т.е. загружать и проигрывать звуковой файл:

1. Для проигрывания звукового файла используйте непосредственно функцию sndPlaySound().

2. Считывайте звуковой файл в память, затем для его проигрывания используйте sndPlaySound().

3. Используйте sndPlaySound для непосредственного проигрывания звуковых файлов, расположенных в файлах ресурсов, прилинкованных к вашему приложению.

4. Считывайте звуковой файл, располагаемый в файле ресурса, прилинкованному к вашему приложению, в память, и затем для его проигрывания используйте sndPlaySound().

Для построения проекта вам понадобиться:

1. Создайте звуковой файл с именем 'hello.wav' в каталоге проекта.

2. Создайте текстовый файл с именем 'snddata.rc' в каталоге проекта.

3. Добавьте следующую строку к файлу 'snddata.rc': HELLO WAVE hello.wav.

4. В dos-сессии перейдите в ваш каталог приложения и скомпилируйте .rc-файл, используя компилятор ресурсов Borland (brcc32.exe): введите путь к brcc32.exe и передайте 'snddata.rc' в качестве параметра.

Пример:

bin\brcc32 snddata.rc

Это создаст файл 'snddata.res', который Delphi слинкует с EXE-файлом вашего приложения.

Далее приведен необходимый вам код:

unitPlaySnd1;

interface

usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

typeTForm1 = class(TForm)

PlaySndFromFile: TButton;

PlaySndFromMemory: TButton;

PlaySndbyLoadRes: TButton;

PlaySndFromRes: TButton;

procedurePlaySndFromFileClick(Sender: TObject);

procedurePlaySndFromMemoryClick(Sender: TObject);

procedurePlaySndFromResClick(Sender: TObject);

procedurePlaySndbyLoadResClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

varForm1: TForm1;

implementation

{$R *.DFM}

{$R snddata.res}

usesMMSystem;

procedureTForm1.PlaySndFromFileClick(Sender: TObject);

begin

sndPlaySound('hello.wav', SND_FILENAME orSND_SYNC);

end;

procedureTForm1.PlaySndFromMemoryClick(Sender: TObject);

var

f: file;

p: pointer;

fs: integer;

begin

AssignFile(f, 'hello.wav');

Reset(f,1);

fs := FileSize(f);

GetMem(p, fs);

BlockRead(f, p^, fs);

CloseFile(f);

sndPlaySound(p, SND_MEMORY orSND_SYNC);

FreeMem(p, fs);

end;

procedureTForm1.PlaySndFromResClick(Sender: TObject);

begin

PlaySound('HELLO', hInstance, SND_RESOURCE orSND_SYNC);

end;

procedureTForm1.PlaySndbyLoadResClick(Sender: TObject);

var

h: THandle;

p: pointer;

begin

h := FindResource(hInstance, 'HELLO', 'WAVE');

h := LoadResource(hInstance, h);

p := LockResource(h);

sndPlaySound(p, SND_MEMORY orsnd_sync);

UnLockResource(h);