시스템에 설치되어 있는 DOS device를 Memo에 listing하는 예제 입니다.
procedure TForm1.Button1Click( Sender : TObject );
var
istr : string;
isize, i : dword;
begin
setlength( istr, 4000 );
isize := QueryDosDevice( nil, @istr[ 1 ], 4000 );
for i := 1 to isize do
if istr[i] = #0 then istr[i] := #10;
memo1.lines.CommaText := istr;
end;
|