Mam's WebSite
建築CGパース住宅CGパース

Mamの覚書Q&A検索

トップページMamの覚書Q&A検索Delphi(いろいろ)⇒Q&A


大項目:「 Delphi 」 - 中項目:「 いろいろ 」

「 スクリーンセーバーを作ったが、名前を設定できずにファイル名になってしまう 」

Delphiでスクリーンセーバーを作ったのですが、名前を設定できずにファイル名になってしまいます。
{$D 'スクリーンセーバー名'}でもだめでした。
Delphiの古いバージョンだったら可能みたいですが、数年以内のバージョンのDelphiではうまくいきません。
どうすればいいでしょうか。


回答

リソースファイルを作成して、リソースファイルを取り込めば可能です。

ソース

①まず、テキストエディタで以下の内容で、リソースファイルを作成します。
ファイル名は「myres.rc」として保存します。保存先は作成するスクリーンセーバーのソースコードのあるフォルダ内です。
(以下の[作成するスクリーンセーバーの名前]はスクリーンセーバーの好きな名前にかえてください。)
↓ここから---------------------------
STRINGTABLE PRELOAD DISCARDABLE
BEGIN
 1 "作成するスクリーンセーバーの名前"
END
↑ここまで---------------------------
 
②DelphiのIDEから[プロジェクト]→[プロジェクトに追加]をクリックし、ファイルの種類を[リソースファイル]にして、作成した「myres.rc」ファイルを選択し、[開く]をクリックします。
 
③通常通りコンパイルします。
 
④コンパイルして出来上がったEXEファイルを以下のように変更してください。
  ・ファイル名はすべて半角大文字。
  ・最初の2文字はSS
  ・拡張子は.SCR
  ・ファイル名長さは[SS]+[半角大文字で6文字以下]+「.SCR」
(例)SSMYSCRN.SCR
 
これで完成です。windowsフォルダなどに移動して確認してみてください。


Mam's WebSite