<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Мой DELPHI - Программирование &#187; ShowMessage</title>
	<atom:link href="http://www.mydelphi.info/code/tag/showmessage/feed" rel="self" type="application/rss+xml" />
	<link>http://www.mydelphi.info</link>
	<description>Всё для программера</description>
	<lastBuildDate>Mon, 09 Jun 2008 16:55:52 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Как изменить оконную процедуру для TForm?</title>
		<link>http://www.mydelphi.info/code/155</link>
		<comments>http://www.mydelphi.info/code/155#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:10:52 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[CANCELMODE]]></category>
		<category><![CDATA[dialog]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[ShowMessage]]></category>
		<category><![CDATA[TButton]]></category>
		<category><![CDATA[TMessage]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=155</guid>
		<description><![CDATA[Вопрос:
Как изменить оконную процедуру для TForm?

Ответ:
Переопределите в подклассе
TForm оконную процедуру WinProc класса. В примере оконная процедура переопределяется
для того чтобы реагировать на сообщение WM_CANCELMODE, показывающее, что выполняется
messagebox или какой-либо еще диалог.
Пример:
type
	TForm1 = class(TForm)
		Button1: TButton;
		procedure WndProc (var Message: TMessage); override;
		procedure Button1Click(Sender: TObject);
	private
		{Private declarations}
	public
		{Public declarations}
end;

var
	Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WndProc (var Message: TMessage);
begin
	if Message.Msg = WM_CANCELMODE then
		begin
			Form1.Caption := 'A dialog [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/155/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как получить строку сообщения об ошибке Windows код которой получен функцией GetLastError?</title>
		<link>http://www.mydelphi.info/code/152</link>
		<comments>http://www.mydelphi.info/code/152#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:59:48 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[GetLastError]]></category>
		<category><![CDATA[IntToStr]]></category>
		<category><![CDATA[logged]]></category>
		<category><![CDATA[message]]></category>
		<category><![CDATA[ShowMessage]]></category>
		<category><![CDATA[SysErrorMessage]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=152</guid>
		<description><![CDATA[Вопрос:
Как получить строку сообщения об ошибке Windows код которой получен функцией GetLastError?
Ответ:
Функция RTL SysErrorMessage(GetLastError).

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	{Cause a Windows system error message to be logged}
	ShowMessage(IntToStr(lStrLen(nil)));
	ShowMessage(SysErrorMessage(GetLastError));
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/152/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Мне нужно программно установить некоторые файлы с установочного диска Windows</title>
		<link>http://www.mydelphi.info/code/151</link>
		<comments>http://www.mydelphi.info/code/151#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:58:24 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[CurrentVersion]]></category>
		<category><![CDATA[LOCAL]]></category>
		<category><![CDATA[MACHINE]]></category>
		<category><![CDATA[ShowMessage]]></category>
		<category><![CDATA[Software]]></category>
		<category><![CDATA[SourcePath]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TRegistry]]></category>
		<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/code/151</guid>
		<description><![CDATA[Вопрос:
Мне нужно программно установить некоторые файлы с установочного диска Windows. На многих компьютерах CAB-файлы установки Windows находятся в каком-то каталоге на жестком диске, на других &#8211; Windows был установлен с CD. Как узнать откуда была установленна Windows?
Ответ:
Эту информацию можно получить из реестра.
Пример:
uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
	reg: TRegistry;
begin
	reg := TRegistry.Create;
	reg.RootKey := HKEY_LOCAL_MACHINE;
	reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\SETUP',false);
	ShowMessage(reg.ReadString('SourcePath'));
	reg.CloseKey;
	reg.free;
end;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/151/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Я хочу вставить escape code в строку при использовании функции Format()</title>
		<link>http://www.mydelphi.info/code/147</link>
		<comments>http://www.mydelphi.info/code/147#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:44:20 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[ASCII]]></category>
		<category><![CDATA[buffer]]></category>
		<category><![CDATA[Column]]></category>
		<category><![CDATA[Format]]></category>
		<category><![CDATA[ShowMessage]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=147</guid>
		<description><![CDATA[Вопрос:
Я хочу вставить escape code в строку при использовании функции Format(). Например, я хочу создать строку, содержащую символ табуляции. В &#8220;C&#8221; я бы написал что-то вроде sprintf(buffer,&#8221;%s\t%s&#8221;, str);.
А как это будет на Pascal&#8217;e?
Ответ:
Функция Format Pascal&#8217;я
не использует escape codes. Вместо этого нужно вставить в строку действительное
значение символа в кодировке ASCII.
Пример:
Buffer := Format('%s'#9'%s', [Str1, Str2]);
ShowMessage(Format('%s'#9'%s', ['Column1', 'Column2']));

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/147/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл?</title>
		<link>http://www.mydelphi.info/code/132</link>
		<comments>http://www.mydelphi.info/code/132#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:35:16 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[end]]></category>
		<category><![CDATA[MediaPlayer]]></category>
		<category><![CDATA[Number]]></category>
		<category><![CDATA[ShowMessage]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TimeFormat]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=132</guid>
		<description><![CDATA[Вопрос:
Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл?
Ответ:
В приведенном примере указано как получить эту информацию.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	MediaPlayer1.TimeFormat := tfFrames;
	ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Length));
	MediaPlayer1.TimeFormat := tfMilliseconds;
	ShowMessage('Number of milliseconds = ' + IntToStr(MediaPlayer1.Length));
end;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/132/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
