63(2): 名前は開発中のものです。 [sage] 02/01/21 15:52 ID:??? AAS
>>61
　function load(fn: string): string;
　var
　　fs: TFileStream;
　　ss: TStringStream;
　begin
　　result := '';

　　fs := TFileStream.Create(fn, fmOpenRead);
　　try
　　　ss := TStringStream.Create('');
　　　try
　　　　ss.CopyFrom(fs, fs.Size);
　　　　result := ss.DataString;
　　　finally
　　　　ss.Free;
　　　end;
　　finally
　　　fs.Free;
　　end;
　end;
こんなコードを使って
s: string;
s := load('gikohahaha.wav');
sndPlaySound( pchar(s), SND_MEMORY or SND_ASYNC );
とか。