「スクリーンセーバーを作ったが、名前を設定できずにファイル名になってしまう」
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フォルダなどに移動して確認してみてください。