ファイルの名前を変更する
この VCL アプリケーションの作成は以下の手順で行われます。
- 名前変更するファイルが格納されるプロジェクト ディレクトリを作成します。
- ボタン コントロールとラベル コントロールを持つ VCL フォームを作成します。
- ファイルの名前変更するコードを記述します。
- アプリケーションを実行します。
プロジェクト ディレクトリとコピーするテキスト ファイルをセットアップするには：
- プロジェクト ファイルが格納されるディレクトリを作成します。
- テキスト ファイルを、プロジェクト ディレクトリに作成またはコピーして、それを MyFile として保存します。
ボタンおよびラベルの付いた VCL フォームを作成するには：
- ［ファイル｜新規作成｜その他...｜Delphi プロジェクト（または %C++Builder% プロジェクト）］ を選択し、［VCL フォーム アプリケーション］アイコンをダブルクリックします。 VCL フォーム デザイナ が表示されます。
- ツール パレットの［Standard］ページから、TButton コンポーネントをフォーム上に配置します。
- ツール パレットの［Standard］ページから、TLabel コンポーネントをフォーム上に配置します。
ファイル プロシージャの名前変更を記述するには：
- フォーム上で Button1 を選択します。
- オブジェクト インスペクタの［イベント］タブで、OnClick アクションをダブルクリックします。 コード エディタ が、TForm1.Button1Click（Delphi）、または、TForm1::Button1Click（C++）のイベント ハンドラ ブロックにカーソルがある状態で表示されます。
- カーソルの位置に、次のコードを入力します：
if not RenameFile('MyFile.txt', 'YourFile.txt') then
Label1.Caption := 'Error renaming file!';
if( !RenameFile( "..\\MyFile.txt", "..\\YourFile.txt" ) Label1->Caption = "Error renaming file"; // the file parameters assume the target output directory is in your project directory
メモ： RenameFile を使って、ドライブをまたいでファイル名を変更（ファイルを移動）することはできません。 まずファイルをコピーしてから、古いファイルを削除する必要があります。 ランタイム ライブラリにおいて、RenameFile は Windows API MoveFile 関数のラッパーとなっているため、MoveFile は、異なるドライブ間では動作しません。
アプリケーションを実行するには
- プロジェクト ファイルを保存します。［実行｜実行］を選択して、アプリケーションをビルドおよび実行します。 フォームが表示されます。
- ボタンをクリックします。 Label にメッセージが表示されない場合、プロジェクト ディレクトリ内のファイル名をチェックしてください。MyFile.txt は、YourFile.txt に名前変更されていなければなりません。
- キャプション ラベルにエラー メッセージが表示されている場合は、イベント ハンドラ コードを再度チェックしてください。