ネットワークドライブを追加したいと思ったことはありませんか？通常企業などの場合、アプリケーションではなく起動時などにログオンスクリプトなどで割り当てすると思います。しかし、アプリケーションで割り当て、解除を行うことでアプリケーションを起動するまでのユーザーの操作にかかわらず安心して環境を構築できます。

ネットワークドライブを割り当てるには、WNetAddConnection2 APIを使用します。
また解除には、WNetCancelConnection2 APIを使用します。
さらにネットワークドライブの一覧の作成には、WNetOpenEnum と WNetEnumResource WNetCloseEnum の3つのAPIを使用します。
このAPIを3つの関数にしてみました。実際の使用方法はサンプルを見てください。

サンプルプログラムのダウンロードは→[Delphi FAQ用サンプル] ネットワークドライブの割り当て/解除

音が出てうるさいと思ったことはありませんか？ また、何でここで音が出るんだろう？と思ったことはありませんか？ そんなときには強引に音が出るデバイスに対して止めに入るなんてのも1つの手かもしれませんね。
まず、｢Beep｣ボタンをクリックして音が出ることを確かめてください。音が出ることを確かめたら ｢Mute｣をクリックして音が出なくなるのを確かめます。最後に｢Loud｣をクリックして元の音量に戻ることを確かめてください。ただし｢Mute｣は2回クリックしないようにお願いします。

サンプルプログラムのダウンロードは→[Delphi FAQ用サンプル] うるさい音をミュート！

Delphiの標準関数(Trim、TrimLeft、TrimRight)は全角の空白を取り除いてくれません。 全角空白を取り除くためには、ループしてこの文字を見つけて取り除く必要があります。以下に全角対応のTrimを作成しました。

※2012/05/02 Unicode対応

• ZTrim ... 全角対応 Trim
• LTrim ... 全角対応 TrimLeft
• RTrim ... 全角対応 TrimRight

今見ているデータの一部を編集して、新しくデータを作成したいありませんか？こんなときには、現在のレコードをコピーしてそのレコードを編集するのが簡単!
ということで、以下はカレントレコードをコピーする関数の例です。

procedure AppendCurrent(Dataset: TDataset); 
var 
  aField: Variant; 
  i: Integer; 
begin 
  // バリアント型の配列を作成 
  aField := VarArrayCreate([0, Pred(DataSet.FieldCount)], VarVariant); 
  // フィールドのデータを先ほどの配列にコピー 
  for i := 0 to Pred(DataSet.FieldCount)do 
    aField[i] := DataSet.Fields[i].Value; 
  // 新規レコードを追加 
  DataSet.Append ; 
  // 新規レコードに配列のデータを書き戻し 
  for i := 0 to Pred(DataSet.FieldCount)do 
    DataSet.Fields[i].Value := aField[i]; 
end;