최재원 wrote:

> 수고 많습니다.

>

> 지금 데이타 백업하는 작업을 하고 있는데요,

>

> 타겟 디렉토리를 정하기 위해서 DirectoryListBox,DriveComboBox 두 놈을

>

> 쓰고 있습니다. 그래서 경로를 가져와서 백업을 하려하는데요,

>

> 백업은 성공적으로 되는데, DriveComboBox에서 A:드라이브를 선택하고 난후

>

> 디스켓이 없으면 아주 누워버립니다.

>

> 에러메시지 --> ElnOutError 'I/O error 21'

>

> 그래서 시작그리고완성에 있는 A:드라이브를 체크하는 함수를 갔다가

>

> 썼습니다.

>

> function TData_Backup.DiskInDrive(Drive : String):Boolean;

> var

> ErrorMode : word;

> Driver : Char;

> begin

> Driver := UpCase(Drive[1]);

> if not (Driver in ['A'..'Z']) then

> raise EConvertError.Create('Not a Valid drive id');

> ErrorMode := SetErrorMode(SEM_FailCriticalErrors);

> try

> if DiskSize(Ord(Driver) - $40) = -1 then

> DiskInDrive := False

> else

> DiskInDrive := True;

> Finally

> SetErrorMode(ErrorMode);

> end;

> end;

>

> procedure TData_Backup.DriveComboBox1Click(Sender: TObject);

> var i : integer;

> begin

> if DiskInDrive(DriveComboBox1.Text) = False then begin

> ShowMessage('fuck'); <-- 딱 요기 까지 실행됨.

> Exit;

> end;

> end;

>

> 그리고는 메세지 뿌려주고 확인버튼 누르면 당연하다는 듯이 누워버립니다

>

> 이 일을 어찌하면 좋겠습니까, 위대한 여러분들의 조언을 부탁드립니다.

>

> 아니면, DriveComboBox에서 아예 ComboBox에서 처럼 item추가 하듯이

>

> A:드라이브를 빼버리는 방법이라도... 헐

>

> 데이타가 많아서 디스켓은 택도 없습니다.

>





디스켓의 삽입여부만 판단하시기 위함이라면

Try Except..End로 캡쳐하셔도 충분할거 생각됩니다.

에러가 발생해서 Except로 진입하면

장치가 준비되지 않았다는 메세지를 내 보내시면 될것같습니다.

그럼, 즐거운 프로그래밍이 되시길~

먼저 답변해 주신것 감사합니다.



메세지 던져 주는 것은 가능한데요,



문제는 한번 드라이브를 읽고, 메세지 뿌려주고 난 후 드라이브를



한번 더 읽고 누워버립니다.



왜 메세지에서 확인 버튼후 Exit, Close 가 전혀 안 먹을 까요?????



할 일이 태산 같으데 정말 미치겠습니다.



바쁘시겠지만 한번 더 조언을 부탁드립니다.

최재원 wrote:

> 먼저 답변해 주신것 감사합니다.

>

> 메세지 던져 주는 것은 가능한데요,

>

> 문제는 한번 드라이브를 읽고, 메세지 뿌려주고 난 후 드라이브를

>

> 한번 더 읽고 누워버립니다.

>

> 왜 메세지에서 확인 버튼후 Exit, Close 가 전혀 안 먹을 까요?????

>

> 할 일이 태산 같으데 정말 미치겠습니다.

>

> 바쁘시겠지만 한번 더 조언을 부탁드립니다.





제가 똑같이 테스트를 한번 해 보았습니다.

그러나 아무 문제없이 잘 작동하던걸요?

아래 함수는 아무 문제가 없어 보입니다.

다른 PC에서도 테스트를 한번 거쳐보세요.

그럼, 즐거운 프로그래밍 하시구요~



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, FileCtrl;



type

TForm1 = class(TForm)

Button1: TButton;

DriveComboBox1: TDriveComboBox;

procedure DriveComboBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



function DiskInDrive(Drive : String):Boolean;

var

ErrorMode : word;

Driver : Char;

begin

Driver := UpCase(Drive[1]);

if not (Driver in ['A'..'Z']) then

raise EConvertError.Create('Not a Valid drive id');

ErrorMode := SetErrorMode(SEM_FailCriticalErrors);

try

if DiskSize(Ord(Driver) - $40) = -1 then

DiskInDrive := False

else

DiskInDrive := True;

Finally

SetErrorMode(ErrorMode);

end;

end;



procedure TForm1.DriveComboBox1Click(Sender: TObject);

begin

if DiskInDrive(DriveComboBox1.Text) = False then

begin

ShowMessage('디스켓을 꽂아줘..');

Exit;

ShowMessage('음냐리..');

end;

end;



end.

먼저 이렇게 직접 테스트 까지 해주시고, 두번씩이나 답변해 주신것 정말 감사합니다.



제가 테스트 하던 경우는 델파이에서 기냥 RUN 후에, reset을 해야 하기 때문이어서



.exe실행시에도 그렇게 되는 줄 알았는데요 밖에서 델파이 없이 직접 실행 하니까



그냥 'I/O Error 21'만 나고 프로그램이 다운되지는 않는군요.



정말 어처구니가 없습니다.



근데 제가 어처구니 없는 초보라서 그러는데요, 'I/O Error'가 혹시 어떤 알수 없는



에러의 원인이 되지 않을까 하면서 다시 한번 답변에 감사 드리며 어처구니 없는



초보를 부디 이쁘게 봐주시기 바랍니다.



감사합니다.