Q&A
- 디스크관리
무슨말인지 자세한 설명좀 부탁드립니다...
좀 급하니 빨리...
현재 시스템에 장착된 드라이브의 개수를 구한다.
단 플로피나 시디롬은 제외한다.
procedure Tform1.FormCreate(Sender:Tobject);
var
i:Integer;
str:String;
str2:array[0..128] of char;
begin
totaldrv:=0;
for i:=0 to 25 do
begin
str2:='c:';
str2[0]:=chr(i+ord('c'));
if getdrivetype(str2) = DRIVE_FIXED then
inc(totaldrv);
end;
좀 급하니 빨리...
현재 시스템에 장착된 드라이브의 개수를 구한다.
단 플로피나 시디롬은 제외한다.
procedure Tform1.FormCreate(Sender:Tobject);
var
i:Integer;
str:String;
str2:array[0..128] of char;
begin
totaldrv:=0;
for i:=0 to 25 do
begin
str2:='c:';
str2[0]:=chr(i+ord('c'));
if getdrivetype(str2) = DRIVE_FIXED then
inc(totaldrv);
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이승윤
- •
- 2000.03.03 01:18
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.03.03 06:25천리안 프로그래머 포럼에서 가져오신 김영대님의 홈에서 가져왔습니당.... 함수를 선언하시구 검사하고자...
-
- 홍정
- •
- 2000.03.03 00:51
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.03 10:16홍정 wrote: > 예전에는 잘 됐다가 새 PC로 교체한후 다시 BDE setting을 하니까 이렇게 되네요 > > ...
-
중급델개발자•2001.11.07 03:12vendor initialize failed. 해결했습니다 regedit에서 HKEY_LOCAL_MACHINE-->SOFTWARE-->Borland-->Datab...
-
- 김권부
- •
- 2000.03.03 00:41
- 2 COMMENTS
- /
- 0 LIKES
-
유애선•2000.03.04 02:09김권부 wrote: > 오라클에는 substr(str_문자열,from_위치,siz)라고 아주 좋은게 있는데 > 혹시 파라독스...
-
젠키•2000.03.03 21:57김권부 wrote: > 오라클에는 substr(str_문자열,from_위치,siz)라고 아주 좋은게 있는데 > 혹시 파라독스...
-
- 황윤환
- •
- 2000.03.03 00:30
- 1 COMMENTS
- /
- 0 LIKES
-
유나니•2000.03.03 00:54황윤환 wrote: > Timer에서 Interval 을 발생시키는데, Interval의 간격을 Trackbar로 조정을 하고 싶습니...
-
- 답답이
- •
- 2000.03.03 00:14
- 3 COMMENTS
- /
- 0 LIKES
-
델파이사랑•2000.03.03 01:22답답이 wrote: > 프로그램 로직상의 에러가 아니고 > > 정상적인 설치후 델4.0 종료시 에러와 아무 코...
-
답답이•2000.03.03 01:27그냥 폼하나(코딩,DB연결없이....) 딸랑 실행시에 에라가 뜸니다 제생각에는 ComCtl32.dll문제인것같은...
-
지나가는이•2000.03.09 18:45답답이 wrote: > 그냥 폼하나(코딩,DB연결없이....) 딸랑 실행시에 에라가 뜸니다 > > 제생각에는 ComC...
-
- hjcho
- •
- 2000.03.03 00:05
- 1 COMMENTS
- /
- 0 LIKES
무슨말인지 자세한 설명좀 부탁드립니다... 좀 급하니 빨리... 현재 시스템에 장착된 드라이브의 개수를 구한다. 단 플로피나 시디롬은 제외한다. procedure Tform1.FormCreate(Sender:Tobject); var i:Integer; str:String; str2:array[0...-
최용일•2000.03.03 01:32별거 없는데요... 현재 시스템에 있는 고정된 드라이브(하드디스크)를 구하는 것입니 다.. 근데 약간의 코...
-
- 최 소 영
- •
- 2000.03.02 23:50
- 1 COMMENTS
- /
- 0 LIKES
-
황윤환•2000.03.03 00:34최 소 영 wrote: > 델파이5를 쓰고 있습니다. 사양은 램 128M, cpu446Mhz, HDD 8G입니다. > 비디오카드가...
-
- 김준성
- •
- 2000.03.02 23:30
- 8 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.03 05:20
-
김준성•2000.03.03 01:47
-
김준성•2000.03.03 08:37
-
구창민•2000.03.03 20:28
-
김준성•2000.03.03 21:14
-
구창민•2000.03.03 22:18
-
김준성•2000.03.04 01:03
- • • •
-
- neocity
- 2000.03.02 23:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지연
- •
- 2000.03.02 23:26
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.03.03 06:30그 방법이 안되셨다면 이 방법으로 한번 해보시죠. 뭐 100% 보장은 못합니다. (DataSet as TBDEDataSe...
-
- 방기남
- 2000.03.02 23:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 이방인
- •
- 2000.03.02 22:47
- 1 COMMENTS
- /
- 0 LIKES
-
유나니•2000.03.03 00:44이방인 wrote: > 다름이 아니라...스타크래프트 하다보면... > MapHack프로그램이라고 해서 > 어둡게 돼...
-
- ghost Lee
- •
- 2000.03.02 22:42
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2000.03.03 06:36김영대님의 홈에 가시면 컴퍼넌트와 사용법이 상세히 소개되어 있습니다. 옆에 보이는 델파이링크(내)에서...
-
유나니•2000.03.03 00:42ghost Lee wrote: > 안녕하세요.... 고수님들... > 하수가 고수선배님들에게 한수 배워 볼려구 이렇게 글...
-
- 윤진화
- •
- 2000.03.02 22:40
- 1 COMMENTS
- /
- 0 LIKES
-
민성기•2000.03.03 00:35안녕하세요~ 민성기 입니다. 메시지 훅을 사용하시면 딱이겠군요. 키보드 훅과 마우스 훅을 전역에 설치...
-
-
이재식•2000.03.03 00:36초보맨 wrote: > dbgrid 에서 다중 선택된 레코드값을 각각 받을려면 어떻게 하나요 > 그리고 다중선택된...
-
-
- 초보맨
- 2000.03.02 22:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 송기원
- 2000.03.02 22:06
- 0 COMMENTS
- /
- 0 LIKES
-
- park
- •
- 2000.03.02 20:51
- 3 COMMENTS
- /
- 0 LIKES
-
최지수•2000.03.04 04:57park wrote: > 안녕여하세요! > 저 Query컴포넌트를 사용하여 Query를 한뒤 > dbGrid로 Query한 내용...
-
한•2000.03.02 23:15안녕하세요. 무슨 디비를 쓰는지 궁금하네요. 만일 파라독스는 recordcount하면 정상적으로 나오고 다른...
-
최성진•2000.03.03 22:21주로 오라클에서 나타나는 현상입니다. 데이타를 모두 패치하지 못할때 -1값이 들어갑니다. 따라서 qu...
-
- 박은철
- 2000.03.02 20:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 문영봉
- 2000.03.02 20:12
- 0 COMMENTS
- /
- 0 LIKES
다.. 근데 약간의 코딩이 잘 못됐군요..
GetDriveType(Drive: PChar)의 결과값
0 - 드라이브 종류를 알 수 없음.
1 - 루트 디렉토리가 존재하지 않음.
DRIVE_REMOVABLE - 이동용 드라이브(집드라이브, 째즈 드라이브)
DRIVE_FIXED - 고정된 드라이브(하드 디스크)
DRIVE_REMOTE - 원격(네트웍) 드라이브
DRIVE_CDROM - 시디롬 드라이브
DRIVE_RAMDISK - 램 디스크
procedure Tform1.FormCreate(Sender:Tobject);
var
I: Integer;
DriveLetter: array[0..2] of char;
begin
TotalDrv := 0;
for I := 65 to 90 do // A부터 Z까지 루프를 돌려 사용가능한 드라이브를 찾는다.
begin
DriveLetter := chr(I) + ':';
if GetDriveType(DriveLetter) = DRIVE_FIXED then // 고정된 드라이브이면...
Inc(TotalDrv); // 고정된 드라이브의 총수를 하나 증가한다.
end;
// 즉 TotalDrv가 가지고 있는 값이 현재 시스테이 가지고 있는 고정된 드라이브의
// 총 수입니다...
end;
hjcho wrote:
> 무슨말인지 자세한 설명좀 부탁드립니다...
> 좀 급하니 빨리...
>
>
> 현재 시스템에 장착된 드라이브의 개수를 구한다.
> 단 플로피나 시디롬은 제외한다.
>
> procedure Tform1.FormCreate(Sender:Tobject);
> var
> i:Integer;
> str:String;
> str2:array[0..128] of char;
> begin
> totaldrv:=0;
> for i:=0 to 25 do
> begin
> str2:='c:';
> str2[0]:=chr(i+ord('c'));
> if getdrivetype(str2) = DRIVE_FIXED then
> inc(totaldrv);
> end;
>