귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [떟蹂] Win10 뿊꽭뒪媛 嫄곕맂뙆씪 Everyone 蹂댁븞뿀슜 룞쟻쑝濡 異쒖닔엳굹슂
coding
(沅뚯닚샇)
2019-03-14 삤썑 3:39:57
414회 조회


등록된 파일이 없습니다.
>> 1. 媛쒕컻/떎뻾 뵆옯뤌 
>>   (1) OS : Widows 10
>>   (2) 媛쒕컻댋 : Delphi 7
>>   (3) 궗슜 Database : Firebird 2.1
>> 
>> 2. 媛쒕컻 以묒씤 봽濡쒓렇옩 뙆씪씤떇
>> 
>> 3. 吏덈Ц 궡슜 
>>    븞뀞븯꽭슂?
>> Win10 뿉 봽濡쒓렇옩쓣 꽕移섑븯怨 떎뻾븯硫 Windows뤃뜑뿉 솗옣옄瑜 .sys 뀓뒪듃 뙆씪쓣 씤떇븯吏 紐삵븯怨 뿊꽭뒪媛 嫄곕릺뿀떎怨 굹샃굹떎. 洹 뙆씪쓣 Everyone濡 蹂댁븞쓣 紐⑤몢 뿀슜 빐二쇰㈃ 씤떇씠 맗땲떎. 裕⑥젣뒗 봽怨좉렇옩쓣 諛고룷븷븣留덈떎 닔룞쑝濡 蹂댁븞쓣 꽕젙 빐以섏빞 븯뒗뜲 씠嫄 룞쟻쑝濡 꽕젙빐以 諛⑸쾿씠 엳굹슂.
>> Win7 源뚯뒗 씠긽씠 뾾뒿땲떎.
>> 
>> 쁽옱 Win7 源뚯 릺뒗 猷⑦꽩
>> Var
>>   F :  TextFile;
>>   S : String;
>> begin
>>   {$I-}
>>   // 뀓뒪듃뙆씪 뾾쑝硫 留뚮뱾怨 엳쑝硫 吏굹媛湲(슂嫄 Win10 뿉꽌뒗 留뚮뱾吏 紐삵븿 
>>   Path := 'C:\Windows\ChkList.sys';
>>   AssignFile(F, Path);            // 뙆씪 깮꽦
>>   if FileExists(Path) = True then // 씠誘 뙆씪씠 엳쑝硫
>>     Reset(F)                      // 湲곗〈궡슜쓣 洹몃濡쒕몦떎
>>   else                            // 뙆씪씠 뾾쑝硫
>>     ReWrite(F);                   // 뜮뼱벖떎.
>>     Writeln(F, '2222-01-01');     // 벝 궡슜
>>     Closefile(F);
>> 
>> 쐞 猷⑦꽩씠 븞癒뱁꽌 諛고룷떆 ChkList.sys 瑜 Everyonn쓽 蹂댁븞쓣 紐⑤몢 뿀슜쑝濡 옣븯뿬 Windows 뤃뜑뿉 뙆씪쓣 룞쟻쑝濡 꽔怨 遺덈윭삤뒗뜲 臾몄젣媛 諛쒖깮븯꽕슂. 
>> 
>>   // 뀓뒪듃뙆씪 遺덈윭삤湲
>>   AssignFile(F, 'C:\Windows\ChkList.sys');
>>   Reset(F);
>>   Readln(F, S);
>>   ME_Enddate.Text:= S;
>> end;
>> 
>> 紐낇섑븳 떟蹂 湲곕떎由ш쿋뒿땲떎. 瑗 遺긽뱶由쎈땲떎.
>>  



C++ 뿤뜑뙆씪쓣 뜽뙆씠뿉꽌 셿쟾븯寃 而⑤쾭쟾 빐넃吏 븡븘꽌 
씪씪엳 젙쓽빐꽌 궗슜빐빞 빐꽌 踰덇굅濡援щ쭔슂.

C++濡 肄붾뵫븯떎媛 뜽뙆씠 벐젮硫 源앷튉븷 븣媛 븳몢踰덉씠 븘땲씪뒗. 뀑뀑


uses ........Winapi.AclAPI, Winapi.AccCtrl;

procedure TForm1.Button1Click(Sender: TObject);
const
  SidAuth : _SID_IDENTIFIER_AUTHORITY = (Value : (0, 0, 0, 0, 0, 1));
  Access : array[0..7] of Integer = (-1, 1, 0, 0, 0, 0, 5, $913c18);
var
  pUserSid: PSID;
  pNewAcl: PACL;
  expAccess: EXPLICIT_ACCESS;
  pSD: PSECURITY_DESCRIPTOR;
begin
  if not AllocateAndInitializeSid(@SidAuth, 1, 0, 0, 0, 0, 0, 0, 0, 0, pUserSid) then
    exit;

  Move(Access, expAccess, sizeof(EXPLICIT_ACCESS));
  expAccess.Trustee.ptstrName  := LPTSTR( pUserSid);

  if SetEntriesInAcl(1, @expAccess, nil, pNewAcl) <> 0 then exit;

  try
    GetMem(pSD, SECURITY_DESCRIPTOR_MIN_LENGTH);
    if not InitializeSecurityDescriptor(pSD, SECURITY_DESCRIPTOR_REVISION) then exit;
    if not SetSecurityDescriptorDacl(pSD, true, pNewAcl, false) then exit;
    if not SetFileSecurity('c:/Windows/test.sys', DACL_SECURITY_INFORMATION, pSD) then
    begin
      ShowMessage(Format('fail: SetFileSecurity(), errCode: %d', [GetLastError()]));
    end;
  finally
    FreeSid(pUserSid);
    LocalFree(pNewAcl);
    FreeMem(pSD);
  end;
end;


errCode...

삁)
2 - 뙆씪 誘몄뵿
5 - 愿由ъ옄沅뚰븳 븘슂


쐢룄슦 슫쁺泥댁젣뿉꽌 씠빐븯湲 媛옣 뼱젮슫 뙆듃 以묒뿉 븯굹媛 ACL, DACL, SID 벑쓣 떎猷⑤뒗
Security 봽濡쒓렇옒諛 履 엯땲떎.

嫄댁꽦嫄댁꽦쑝濡 젒洹쇳빐꽑 젅濡 留덉뒪꽣븯吏 紐삵븯땲源 
씠빐 맆 븣 源뚯 MS 궗씠듃뿉꽌 썝臾몄쓣 臾댄븳諛섎났빐꽌 由щ뵫 븯꽭슂.

뼱젙姨≫븯寃 踰덉뿭븳 臾몄꽌뒗 씠빐뿉 룄 븞맖.