Q&A
- [급]api함수에 관해서...
api함수로 파일의 정보를 알아보려구 하는 중에 아래와 같은 부분적인소스를 구했읍니다. 그런데 에러가 나네요... TSHFileInfo에서 에러가 나는데....
interface.. uses 에 추가해야 하는 것좀 갈켜주세요...
api함수 이용시 uses에 추가해야 하는 것이 뭔지 몰라서....
procedure TForm1.GetFileInfo(FileName: String);
var
SHFinfo: TSHFileInfo;
FindData: TWin32FindData;
FindHandle :THandle;
begin
L_FileName.Caption := ExtractFileName(FileName); // 파일명(Name)
ShGetFileInfo(PChar(FileName), 0, SHFinfo, SizeOf(SHFinfo), // 파일종류만 알아낸다
SHGFI_TYPENAME);
L_Filetype.Caption := SHFinfo.szTypeName; // 파일종류(Type)
FindHandle := Windows.FindFirstFile(PChar(FileName), FindData);
try
L_Filesize.Caption := FloatToStr(Trunc(FileSize(FindData.nFileSizeHigh, FindData.nFileSizeLow) / 1024))+' KB ('+
IntToStr(FileSize(FindData.nFileSizeHigh, FindData.nFileSizeLow))+' Bytes)';
OldAttributes := FileGetAttr(FileName); // 파일의 속성(attribute)
CB_ReadOnly.Checked := (OldAttributes and faReadOnly) = faReadOnly;
CB_Archive.Checked := (OldAttributes and faArchive) = faArchive;
CB_System.Checked := (OldAttributes and faSysFile) = faSysFile;
CB_Hidden.Checked := (OldAttributes and faHidden) = faHidden;
L_Created.Caption := GetLocalTime(FindData.ftCreationTime); // 파일생성일(Created)
L_Modified.Caption := GetLocalTime(FindData.ftLastWriteTime); // 파일변경일(Modified)
L_LastAccess.Caption := GetLocalTime(FindData.ftLastAccessTime); // 파일접근일(LastAccess)
finally
Windows.FindClose(FindHandle);
end;
end;
interface.. uses 에 추가해야 하는 것좀 갈켜주세요...
api함수 이용시 uses에 추가해야 하는 것이 뭔지 몰라서....
procedure TForm1.GetFileInfo(FileName: String);
var
SHFinfo: TSHFileInfo;
FindData: TWin32FindData;
FindHandle :THandle;
begin
L_FileName.Caption := ExtractFileName(FileName); // 파일명(Name)
ShGetFileInfo(PChar(FileName), 0, SHFinfo, SizeOf(SHFinfo), // 파일종류만 알아낸다
SHGFI_TYPENAME);
L_Filetype.Caption := SHFinfo.szTypeName; // 파일종류(Type)
FindHandle := Windows.FindFirstFile(PChar(FileName), FindData);
try
L_Filesize.Caption := FloatToStr(Trunc(FileSize(FindData.nFileSizeHigh, FindData.nFileSizeLow) / 1024))+' KB ('+
IntToStr(FileSize(FindData.nFileSizeHigh, FindData.nFileSizeLow))+' Bytes)';
OldAttributes := FileGetAttr(FileName); // 파일의 속성(attribute)
CB_ReadOnly.Checked := (OldAttributes and faReadOnly) = faReadOnly;
CB_Archive.Checked := (OldAttributes and faArchive) = faArchive;
CB_System.Checked := (OldAttributes and faSysFile) = faSysFile;
CB_Hidden.Checked := (OldAttributes and faHidden) = faHidden;
L_Created.Caption := GetLocalTime(FindData.ftCreationTime); // 파일생성일(Created)
L_Modified.Caption := GetLocalTime(FindData.ftLastWriteTime); // 파일변경일(Modified)
L_LastAccess.Caption := GetLocalTime(FindData.ftLastAccessTime); // 파일접근일(LastAccess)
finally
Windows.FindClose(FindHandle);
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보자
- 2001.06.30 04:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 박태준
- 2001.06.30 04:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 유한주
- 2001.06.30 04:04
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 바보
- 2001.06.30 03:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱아
- •
- 2001.06.30 02:56
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.06.30 04:20짱아 wrote: > 아래와 같은 에러가 납니다... > 근데 posttable에는 LAYER_SIMBOL이라는 필드가 정말정...
-
- 초보탈출
- •
- 2001.06.30 02:53
- 1 COMMENTS
- /
- 0 LIKES
api함수로 파일의 정보를 알아보려구 하는 중에 아래와 같은 부분적인소스를 구했읍니다. 그런데 에러가 나네요... TSHFileInfo에서 에러가 나는데.... interface.. uses 에 추가해야 하는 것좀 갈켜주세요... api함수 이용시 uses에 추가...-
참이슬•2001.06.30 04:05uses 절에 ShellApi를 추가해요~ 초보탈출 wrote: > api함수로 파일의 정보를 알아보려구 하는 중에 아...
-
- 궁금이
- •
- 2001.06.30 02:49
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.06.30 09:03원래 웹브라우저라는 놈이 생겨 먹은게 file://로 시작하면 실행결과(stdout)를 화면에 보여주지 않고 화...
-
- 델초보
- 2001.06.30 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 유동기
- 2001.06.30 00:55
- 0 COMMENTS
- /
- 0 LIKES
-
- KKK
- 2001.06.30 00:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 빈자의 고통
- 2001.06.30 00:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 이준
- 2001.06.30 00:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 써니
- 2001.06.29 23:39
- 0 COMMENTS
- /
- 0 LIKES
-
- xxx
- •
- 2001.06.29 23:36
- 1 COMMENTS
- /
- 0 LIKES
-
방문현•2001.06.30 17:50xxx wrote: > Variable 'ip_qty' might not have been initialized > 에러가 나는 이유좀 알려주세요... ...
-
- KKK
- •
- 2001.06.29 23:35
- 2 COMMENTS
- /
- 0 LIKES
-
방문현•2001.06.30 17:55KKK wrote: > > imgedit 컴포넌트 사용시 이미지가 남아 있어 문제가 되고 있습니다. > > 만약 1.tif...
-
KKK•2001.07.05 07:43이래와 같이 해 보았는데 안되요... 답변 정말 정말 감사합니다만 델파이에 image 컴포넌트가 아니라 A...
-
- 초보델피언
- 2001.06.29 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 하나
- •
- 2001.06.29 23:17
- 2 COMMENTS
- /
- 0 LIKES
-
건•2001.06.30 01:24Edit1Change Event에 다음과 같이 해주면 될것 같네요 procedure TForm1.Edit1Change(Sender: TObject);...
-
하나•2001.06.30 03:06답변 감사드리고요.. ^^ 저는 혹 델파이에서 함수로 지원하나 해서요.. 코드값이 있는줄 알고요. 어쨌...
-
- Rita
- 2001.06.29 22:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보님
- 2001.06.29 22:35
- 0 COMMENTS
- /
- 0 LIKES
초보탈출 wrote:
> api함수로 파일의 정보를 알아보려구 하는 중에 아래와 같은 부분적인소스를 구했읍니다. 그런데 에러가 나네요... TSHFileInfo에서 에러가 나는데....
> interface.. uses 에 추가해야 하는 것좀 갈켜주세요...
> api함수 이용시 uses에 추가해야 하는 것이 뭔지 몰라서....
>
>
> procedure TForm1.GetFileInfo(FileName: String);
> var
> SHFinfo: TSHFileInfo;
> FindData: TWin32FindData;
> FindHandle :THandle;
> begin
> L_FileName.Caption := ExtractFileName(FileName); // 파일명(Name)
>
> ShGetFileInfo(PChar(FileName), 0, SHFinfo, SizeOf(SHFinfo), // 파일종류만 알아낸다
> SHGFI_TYPENAME);
> L_Filetype.Caption := SHFinfo.szTypeName; // 파일종류(Type)
>
> FindHandle := Windows.FindFirstFile(PChar(FileName), FindData);
> try
> L_Filesize.Caption := FloatToStr(Trunc(FileSize(FindData.nFileSizeHigh, FindData.nFileSizeLow) / 1024))+' KB ('+
> IntToStr(FileSize(FindData.nFileSizeHigh, FindData.nFileSizeLow))+' Bytes)';
>
> OldAttributes := FileGetAttr(FileName); // 파일의 속성(attribute)
> CB_ReadOnly.Checked := (OldAttributes and faReadOnly) = faReadOnly;
> CB_Archive.Checked := (OldAttributes and faArchive) = faArchive;
> CB_System.Checked := (OldAttributes and faSysFile) = faSysFile;
> CB_Hidden.Checked := (OldAttributes and faHidden) = faHidden;
>
> L_Created.Caption := GetLocalTime(FindData.ftCreationTime); // 파일생성일(Created)
> L_Modified.Caption := GetLocalTime(FindData.ftLastWriteTime); // 파일변경일(Modified)
> L_LastAccess.Caption := GetLocalTime(FindData.ftLastAccessTime); // 파일접근일(LastAccess)
> finally
> Windows.FindClose(FindHandle);
> end;
> end;
>