記事カテゴリ

ユーザー機能


 2024年5月 4日(土) 07:15 JST

[Delphi] 電子メールを送る

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

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

uses
  ShellAPI;

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

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

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

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

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

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

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

以下のサンプルコードを参考にしてください。
このサンプルアプリケーションは、どのようにしてファイル、フォルダ、ドライブの情報を取得するかを提供しています。
このサンプルではWinAPI(「SHGetSpecialFolderLocation」と「SHGetPathFromIDList」)を使用しているため、 uses に定義が書いてある「ShlObj」と、Olecheckのために「ComObj」を追加する必要があります。

サンプルプログラムのダウンロードは→[Delphi FAQ用サンプル] OS上の特別なフォルダの場所を取得する(with Windows API)

[Delphi] DBGrid のセルを内容によって文字色を変える

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

DBGrid のセルの色や、文字列の色を変更するには、自分で Canvas に対して色をしていなければなりません。
文字の色を変更するには、Canvas の Font プロパティの Color プロパティを変更します。
Font プロパティのそのほかのプロパティも変更可能なので、太字などにも変更可能です。
また、セル全体の色を変更するには Canvas プロパティを変更した上でさらに塗りつぶしが必要です。
塗りつぶしには、Canvas の FillRect メソッドを使用します。同名の API も存在しますが、メソッドの方が楽でしょう
範囲は、パラメータで与えられた Rect を使用します。詳細はヘルプや VCL ソースコードを参照してみてください。


サイトカレンダー

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

2024年 05月
«
»
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日)