DDEを使ってブラウザにクローズ命令を送ります。
(このプロシージャを作成するフォームには「DDEMan」をusesに追加する必要があります。)
SendMessageでWM_CLOSEを送っても終了します。
2024年4月27日(土) 16:07 JST
DDEを使ってブラウザにクローズ命令を送ります。
(このプロシージャを作成するフォームには「DDEMan」をusesに追加する必要があります。)
SendMessageでWM_CLOSEを送っても終了します。
{ メニューフォントサイズの取得 } function GetMenuFontSize: integer; var ncm: TNonClientMetrics; PixelsPerInch: integer; begin ncm.cbSize := sizeof(TNonClientMetrics); SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS), @ncm, SPIF_UPDATEINIFILE); PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY); Result := -MulDiv(ncm.lfMenuFont.lfHeight, 72, PixelsPerInch); end; { メニューフォントサイズの設定 } procedure SetMenuFontSize(FontSize: integer); var ncm: TNonClientMetrics; PixelsPerInch: Integer; begin ncm.cbSize := sizeof(TNonClientMetrics); SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS), @ncm, 0); PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY); ncm.lfMenuFont.lfHeight := -MulDiv(FontSize, PixelsPerInch, 72); SystemParametersInfo(SPI_SETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS), @ncm, SPIF_UPDATEINIFILE); end;
ShellExecuteを使うとデフォルトのEメールソフトでメールを送ります。
もし必要であれば、メールの件名も設定できます。
uses ShellAPI; ShellExecute(0, 'open', 'mailto:me@hogehoge.com?subject=Kenmei_wo_koko_ni', nil, nil, SW_SHOWNORMAL);
procedure SetResolution(ResX, ResY: DWord); var lDeviceMode : TDeviceMode; begin EnumDisplaySettings(nil, 0, lDeviceMode); lDeviceMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; lDeviceMode.dmPelsWidth := ResX; lDeviceMode.dmPelsHeight := ResY; ChangeDisplaySettings(lDeviceMode, 0); end;
以下のサンプルコードを参考にしてください。
レジストリからOS上の特別なフォルダ(デスクトップやProgram Filesなど)を取得します。
TRegistryを使用しているので、「Registry」をusesに追加するのを忘れないでください。