kkuzil.own@gmail.com
맨 처음 나치 정부는 공산주의자들을 잡아갔다.
나는 침묵했다. 나는 공산주의자가 아니었으므로,
그 다음, 정부는 사회 민주주의자를 잡아갔다.
그때 나는 침묵했다. 나는 사회 민주주의자가 아니었으므로,
그 다음, 정부는 노동조합원을 잡아갔다.
그때 나는 침묵했다. 나는 노동조합원이 아니었으므로,
그리고 정부는 유태인들을 잡아갔다.
그때 나는 침묵했다. 나는 유태인이 아니었으므로,
마침내 정부는 나에게 찿아왔다.
하지만 나를 위해 항변해줄 사람이 아무도 남지 않았다
-마르틴 니묄러-
언젠가는 쓸데가 있겠지... 훗
interface
...
...
const
STATUS_SUCCESS = $00000000;
{$EXTERNALSYM STATUS_SUCCESS}
type
NT_STATUS = LongInt;
IO_STATUS_BLOCK = record
case integer of
0:
(Status: NT_STATUS);
1:
(Pointer: Pointer;
Information: ULONG); // 'Information' does not belong to the union!
end;
PIO_STATUS_BLOCK = ^IO_STATUS_BLOCK;
_FILE_INTERNAL_INFORMATION = record // Information Class 6
FileId: LARGE_INTEGER;
end;
FILE_INTERNAL_INFORMATION = _FILE_INTERNAL_INFORMATION;
PFILE_INTERNAL_INFORMATION = ^FILE_INTERNAL_INFORMATION;
_FILE_NAME_INFORMATION = record
dwLen: DWORD;
sFileName: array [0..0] of WideChar;
end;
FILE_NAME_INFORMATION = _FILE_NAME_INFORMATION;
PFILE_NAME_INFORMATION = ^FILE_NAME_INFORMATION;
_FILE_INFORMATION_CLASS = (
FileFiller0,
FileDirectoryInformation, // 1
FileFullDirectoryInformation, // 2
FileBothDirectoryInformation, // 3
FileBasicInformation, // 4 wdm
FileStandardInformation, // 5 wdm
FileInternalInformation, // 6
FileEaInformation, // 7
FileAccessInformation, // 8
FileNameInformation, // 9
FileRenameInformation, // 10
FileLinkInformation, // 11
FileNamesInformation, // 12
FileDispositionInformation, // 13
FilePositionInformation, // 14 wdm
FileFullEaInformation, // 15
FileModeInformation, // 16
FileAlignmentInformation, // 17
FileAllInformation, // 18
FileAllocationInformation, // 19
FileEndOfFileInformation, // 20 wdm
FileAlternateNameInformation, // 21
FileStreamInformation, // 22
FilePipeInformation, // 23
FilePipeLocalInformation, // 24
FilePipeRemoteInformation, // 25
FileMailslotQueryInformation, // 26
FileMailslotSetInformation, // 27
FileCompressionInformation, // 28
FileObjectIdInformation, // 29
FileCompletionInformation, // 30
FileMoveClusterInformation, // 31
FileQuotaInformation, // 32
FileReparsePointInformation, // 33
FileNetworkOpenInformation, // 34
FileAttributeTagInformation, // 35
FileTrackingInformation, // 36
FileMaximumInformation);
FILE_INFORMATION_CLASS = _FILE_INFORMATION_CLASS;
PFILE_INFORMATION_CLASS = ^FILE_INFORMATION_CLASS;
..
..
..
implementation
..
..
procedure TDlgScanMain.sButton2Click(Sender: TObject);
var
NtQueryInformationFile: function(FileHandle:DWORD;
IoStatusBlock: PIO_STATUS_BLOCK;
FileInformation: Pointer;//PFILE_INTERNAL_INFORMATION;
Length:DWORD;
FileInformationClass:FILE_INFORMATION_CLASS):DWORD; stdcall;
FileName: string;
hFile: THandle;
io: IO_STATUS_BLOCK;
FileInfo: FILE_INTERNAL_INFORMATION;
Res: NT_STATUS;
FileRecInput: TNtfsFileRecordInputBuffer;
FileRecOutput: PNtfsFileRecordOutputBuffer;
Read: DWORD;
hDevice: THandle;
VolumeDataBuff: NTFS_VOLUME_DATA_BUFFER;
Size: DWORD;
rec: PFileRecordHeader;
pName: PFILE_NAME_INFORMATION;
begin
FileName:='E:\테스트\DOC';
NtQueryInformationFile := GetProcAddress(GetModuleHandle('ntdll.dll'), 'NtQueryInformationFile');
if Assigned(NtQueryInformationFile)=false then
exit;
if FileExists(FileName) then
hFile := CreateFile(PChar(FileName),
GENERIC_READ or
GENERIC_WRITE,
FILE_SHARE_READ or
FILE_SHARE_WRITE or
FILE_SHARE_DELETE,
nil, OPEN_EXISTING, 0, 0)
else if DirectoryExists(FileName) then
hFile := CreateFile(PChar(FileName),
GENERIC_READ or
GENERIC_WRITE,
FILE_SHARE_READ or
FILE_SHARE_WRITE or
FILE_SHARE_DELETE,
nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
else ASSERT(false);
if hFile <> INVALID_HANDLE_VALUE then
begin
ZeroMemory(@FileInfo, sizeof(FileInfo));
Res := NtQueryInformationFile(hFile, @io, @FileInfo, sizeof(FileInfo), FileInternalInformation);
if Res <> STATUS_SUCCESS then Exit;
hDevice := CreateFile(PChar('\\.\'+FileName[1]+':'), GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or
FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if not(DeviceIoControl(hDevice, FSCTL_GET_NTFS_VOLUME_DATA, nil, 0,
@VolumeDataBuff, sizeof(VolumeDataBuff), Read, nil))
then RaiseLastWin32Error();
Size := sizeof(TNtfsFileRecordOutputBuffer) + VolumeDataBuff.BytesPerFileRecordSegment-1;
GetMem(FileRecOutput, Size);
ZeroMemory(FileRecOutput, Size);
ZeroMemory(@FileRecInput, sizeof(FileRecInput));
FileRecInput.FileReferenceNumber:=FileInfo.FileId;
if not(DeviceIoControl(hFile,
FSCTL_GET_NTFS_FILE_RECORD,
@FileRecInput,
sizeof(FileRecInput),
FileRecOutput,
Size,
Read,
nil)) then
begin
RaiseLastWin32Error();
end;
rec := @FileRecOutput.FileRecordBuffer;
sMemo1.Lines.Add(IntToStr(rec.SequenceNumber));
FreeMem(FileRecOutput);
CloseHandle(hDevice);
end else
RaiseLastWin32Error();
end;
프로그램 시작부터 안보이게 하고싶을 경우 WinMain안에서~
ShowWindow(Application->Handle, SW_HIDE);
Application->ShowMainForm = False;
요렇게~
VC에서는 이렇게 하면 안되지.. 아마..
내공이 부족해서 왜 안되는지는 모르겠고.. 폼 위치를 바꿔버려야 한다..안보이게 슝~
함수명이 머드라... SetPosition어쩌군데.. 기억이.. 암튼 여기까지
볼랜드 포럼에서 업어온것임~
==========================
임펠리테리입니다.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) | WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, 0, (255 * 70) / 100, LWA_ALPHA);
}
간단하죠?
참고자료는...
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwui/html/layerwin.asp
그럼 이만...
===========================
여기까지는 코드단에서 해줄수 있는것이고~ (VC에서는 기본적으로 이렇게 처리를 해주구..)
폼 속성을 이용하면 더욱 간단하다~
FORM Inspector에서
속성중 AlphaBlend의 속성을 True로 변경후
AlphaBlendValue의 값을 0~255 값사이로 투명도를 지정해 주면된다..
역시 빌더가 쵝오야 -ㅁ-)bㅋ
CBuilder 6.0 이하는 확인 못해봤음..