記事カテゴリ

ユーザー機能


 2024年3月28日(木) 20:06 JST

[Delphi] DDE でブラウザをクローズする

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    3,943

DDEを使ってブラウザにクローズ命令を送ります。
(このプロシージャを作成するフォームには「DDEMan」をusesに追加する必要があります。)
SendMessageでWM_CLOSEを送っても終了します。

[Delphi] メニューのフォントサイズの取得・設定方法

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    9,514
以下のサンプルコードを参考にしてください。
このサンプルアプリケーションは、メニューのフォントサイズの変更方法を示しています。

注意: フォントサイズを変更するとシステム設定である「画面のプロパティ」-「デザイン」のメニューフォントサイズが変更されます。したがって依存しているアプリケーションすべてが 変更されます。
{ メニューフォントサイズの取得 } 
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;

[Delphi] 電子メールを送る

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    3,932

ShellExecuteを使うとデフォルトのEメールソフトでメールを送ります。
もし必要であれば、メールの件名も設定できます。

uses
  ShellAPI;

ShellExecute(0, 'open', 'mailto:me@hogehoge.com?subject=Kenmei_wo_koko_ni', nil, nil, SW_SHOWNORMAL);

[Delphi] スクリーンの解像度を変更する

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    3,692
以下のサンプルコードを参考にしてください。
このサンプルアプリケーションは、画面の解像度を変更する方法を示しています。
※注意 このサンプルの使用においては、注意して使用してください。 ハードウェアの対応外の解像度に設定した場合、そのハードウェアに悪影響がある場合があります。
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;

[Delphi] OS上の特別なフォルダの場所を取得する(with registry)

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    3,986

以下のサンプルコードを参考にしてください。
レジストリからOS上の特別なフォルダ(デスクトップやProgram Filesなど)を取得します。
TRegistryを使用しているので、「Registry」をusesに追加するのを忘れないでください。


サイトカレンダー

サイトカレンダーをスキップ

2024年 03月
«
»
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31

新着情報

記事 新着(24時間)

-

コメント 新着(2日)

-

トラックバック 新着(2日)

-

リンク 新着(2週)

新しいリンクはありません

ファイル (14日)