최석기 께서 말씀하시기를...

> GetLastError로 에러 코드를 얻었을때 에러 코드에 맞는 메세지를 출력하고 싶거든요.

> 에러 코드에 따라 프로그래머가 일일이 코딩해 주어야 하나요?

> 아니면 다른 어떤 함수가 있나요?



안녕하세요 김영대입니다

아래 함수를

Edit1.Text := WinErrorAsString(GetLastError);

처럼 사용하시면 됩니다



function WinErrorAsString(AErrCode: DWORD): String;

var

lng: integer;

begin

SetLength(Result, MAX_PATH + 1);

lng := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,

nil,

AErrCode,

LANG_SYSTEM_DEFAULT,

PChar(Result),

MAX_PATH,

nil);



if lng > 0 then

SetLength(Result, lng)

else

Result := 'Unknown error';

end;

제가 이 부분은 컴에 상관없이 불특정하게 발생하는 에러때문에 필요했던 부분이라서 아직은 어떤 결과가 나오는지 테스트를 못했습니다.



그래도 관심을 가져주시고 답변을 해주신데 감사 드립니다.