::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã ÀÌ°÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2003-03-07 19:58:31, Hit : 4130, Vote : 1154
 http://www.howto.pe.kr
 ³×Æ®¿öÅ© °øÀ¯ Á¤º¸ Àоî¿À±â (WIndows 9x)

// ¾Æ·¡ ¿¹Á¦´Â Windows NT/Windows 2000 ´Â Áö¿øÇÏÁö ¾Ê½À´Ï´Ù
// ´Ù¸¥ Ç÷§ÆûÀº MSDN »çÀÌÆ®¸¦ Âü°íÇϼ¼¿ä
//   http://msdn.microsoft.com/library/sdkdoc/network/ntlmapi_18bz.htm

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  // Win95/98 ¿¡¼­ share info´Â 0,1,2,50 structure ¸¸ »ç¿ë°¡´É
  // Windows NT¿¡¼­ share info´Â 0,1,2,501,502,1005 structure ¸¸ »ç¿ë°¡´É
  Share_Info50 = packed record
     shi50_netname : array[0..12] of Char; {13}
     shi50_type    : Byte;
     shi50_flags   : Word;
     shi50_remark  : PChar;
     shi50_path    : PChar;
     shi50_rw_password : array[0..8] of Char; {9}
     shi50_ro_password : array[0..8] of Char;
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

function NetShareGetInfo(ServerName: PChar;
                         NetName: PChar;
                         ShareLevel: SmallInt;
                         Buffer: Pointer;
                         Size: Word;
                         var Used: Word): Integer; stdcall external 'SVRAPI.DLL';

function GetShareInfo(ServerName: PChar;
                      NetName: PChar;
                      var ShareStruct: Share_Info50): Integer;
var
  PMyShare: ^Share_Info50;
  AmountUsed: Word;
  Error: Integer;
begin
  PMyShare := AllocMem(255);
  // 50 -> for Win95/98 peer servers
  Error := NetShareGetInfo(ServerName, NetName, 50, PMyShare, 255, AmountUsed);
  if Error = 0 then // ¿¡·¯¾øÀ½
  begin
    ShareStruct.shi50_netname := PMyShare.shi50_netname;
    ShareStruct.shi50_type    := PMyShare.shi50_type;
    ShareStruct.shi50_flags   := PMyShare.shi50_flags;
    ShareStruct.shi50_remark  := PMyShare.shi50_remark;
    ShareStruct.shi50_path    := PMyShare.shi50_path;
    ShareStruct.shi50_rw_password := PMyShare.shi50_rw_password;
    ShareStruct.shi50_ro_password := PMyShare.shi50_ro_password;
  end;
  FreeMem(PMyShare);
  Result := Error;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Share_Info: Share_Info50;
  rt: Integer;
begin
  Memo1.Lines.Clear;
  FillChar(Share_Info, SizeOf(Share_Info50), 0);

  // * Local Machine ÀÌ ¾Æ´Ñ ¿ø°ÝÁö ÄÄÇ»ÅÍÀÇ °æ¿ì´Â Á¤È®È÷ µ¿ÀÛÇÏÁö ¾Ê½À´Ï´Ù
  // '\±è¿µ´ë' -> ÄÄÇ»ÅÍ À̸§ (nil Àº Local MachineÀ» ÀǹÌÇÕ´Ï´Ù)
  // 'ZZZ' -> °øÀ¯À̸§
  rt := GetShareInfo('\±è¿µ´ë', 'ZZZ', Share_Info);
  if rt = 0 then
  begin
    Memo1.Lines.Add('°øÀ¯À̸§: '+Share_Info.shi50_netname);
    if Share_Info.shi50_type = 0 then
      Memo1.Lines.Add('°øÀ¯ Á¾·ù: µð·ºÅ丮 °øÀ¯')
    else if Share_Info.shi50_type = 1 then
      Memo1.Lines.Add('°øÀ¯ Á¾·ù: ÇÁ¸°ÅÍ °øÀ¯');
    Memo1.Lines.Add('Àüü °æ·Î: '+Share_Info.shi50_path);
    Memo1.Lines.Add('¼³¸í: '+StrPas(Share_Info.shi50_remark));
    if Share_Info.shi50_flags = (256 or 1) then
      Memo1.Lines.Add('»ç¿ë ±ÇÇÑ: Àбâ Àü¿ë')
    else if Share_Info.shi50_flags = (256 or 2) then
      Memo1.Lines.Add('»ç¿ë ±ÇÇÑ: Àбâ/¾²±â')
    else if Share_Info.shi50_flags = (256 or 1 or 2) then
      Memo1.Lines.Add('»ç¿ë ±ÇÇÑ: ¾ÏÈ£¿¡ µû¶ó ´Ù¸§');

    Memo1.Lines.Add('Àбâ/¾²±â ¾ÏÈ£: '+Share_Info.shi50_rw_password);
    Memo1.Lines.Add('Àбâ Àü¿ë ¾ÏÈ£: '+Share_Info.shi50_ro_password);
  end
  else
  begin
    Memo1.Lines.Add('Á¤º¸¸¦ Àоî¿Ã ¼ö ¾ø½À´Ï´Ù.  ¿¡·¯¹øÈ£('+IntToStr(rt)+')');
  end;
end;

end.





491   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEdit ÀÇ ¼±ÅÃµÈ ¿µ¿ª¸¸ ÀμâÇÏ±â  ±è¿µ´ë 2003/03/07 5045 937
490   [½Ã½ºÅÛ] CPU Á¾·ù ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 5397 1388
489   [½Ã½ºÅÛ] »ç¿îµåÆÄÀÏ ¾øÀÌ PC ½ºÇÇÄ¿·Î À½¾Ç¿¬ÁÖ  ±è¿µ´ë 2003/03/07 7606 1138
488   [³×Æ®¿÷/ÀÎÅͳÝ] ÇÁ·Î±×·¥À¸·Î ³×Æ®¿öÅ© µå¶óÀÌºê ¿¬°á/ÇØÁ¦  ±è¿µ´ë 2003/03/07 7430 1428
487   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî Á¾·á¿Í °°Àº ±×´ÃÁø È­¸é ¸¸µé±â  ±è¿µ´ë 2003/03/07 3553 946
486   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¾ÆÀÌÄÜ »çÀÌÆ®  ±è¿µ´ë 2003/03/07 4071 1209
485   [½Ã½ºÅÛ] À©µµ¿ìÁî ½Ã½ºÅÛ Ç¥ÁØ ÆùÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 3486 967
484   [³×Æ®¿÷/ÀÎÅͳÝ] RS232 Åë½Å  ±è¿µ´ë 2003/03/07 7593 2020
483   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÁÖ¾îÁø ¿µ¿ªÀÇ È­¸é ĸó  ±è¿µ´ë 2003/03/07 3926 1119
482   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¸¦ ¿µ¹® Ç¥±â·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4693 1044
481   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¸¦ ÇÑ±Û Ç¥±â·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4029 1056
480   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] RichEdit ÀÇ ³»¿ëÀ» Bitmap À¸·Î ¸¸µé±â 2  ±è¿µ´ë 2003/03/07 4347 1610
479   [COM/OLE] MS-WORD Á¾·á½ÃÅ°±â  ±è¿µ´ë 2003/03/07 3044 853
478   [À©µµ¿ìÁî API] ½Ã½ºÅÛ »ç¿îµå ¿¬ÁÖÇÏ±â  ±è¿µ´ë 2003/03/07 5353 1455
477   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Algorithm to sort a TStringGrid #2  ±è¿µ´ë 2003/03/07 5291 1375
476   [À©µµ¿ìÁî API] ¿ÜºÎ ÇÁ·Î±×·¥ÀÇ ÁÂÇ¥,»óÅ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 3672 1155
475   [À©µµ¿ìÁî API] À©µµ¿ìÁî Telnet À¸·Î È£½ºÆ® Á¢¼ÓÇÏ±â  ±è¿µ´ë 2003/03/07 4564 1247
474   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ƯÁ¤ÇÑ Æú´õ·Î À̵¿ÇÑ DOS â ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4649 1256
473   [½Ã½ºÅÛ] DOS ¸í·É¾î ½ÇÇàÇÏ°í °á°ú ¹Þ¾Æ¿À±â  ±è¿µ´ë 2003/03/07 7162 1680
472   [À©µµ¿ìÁî API] NTÀÇ ÇöÀç user°¡ administrative privilege ¸¦ °¡Áö°í ÀÖ´ÂÁö?  ±è¿µ´ë 2003/03/07 3541 966
471   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µÎ°³ÀÇ StringGrid sync ¸¶Ãß±â  ±è¿µ´ë 2003/03/07 4125 1132
470   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÀÇ title bar ÆùÆ® ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 3649 960
469   [³×Æ®¿÷/ÀÎÅͳÝ] ³×Æ®¿öÅ© °øÀ¯ ¼³Á¤/ÇØÁ¦ Çϱâ (Windows 9x)  ±è¿µ´ë 2003/03/07 4878 1229
  [³×Æ®¿÷/ÀÎÅͳÝ] ³×Æ®¿öÅ© °øÀ¯ Á¤º¸ Àоî¿À±â (WIndows 9x)  ±è¿µ´ë 2003/03/07 4130 1154
467   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ´­·ÁÁø Å°º¸µå Å°ÀÇ ¸íĪ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 7880 1583
466   [À©µµ¿ìÁî API] Windows98 ¿¡¼­ÀÇ SetForegroundWindow  ±è¿µ´ë 2003/03/07 6390 1664
465   [À©µµ¿ìÁî API] Task bar ¿¡ ³ªÅ¸³ªÁö ¾Ê´Â ÇÁ·Î±×·¥ ¸¸µé±â  ±è¿µ´ë 2003/03/07 5664 1660
464   [COM/OLE] Outlook »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/07 4049 1335
463   [½Ã½ºÅÛ] ÁöÁ¤ÇÑ drive°¡ CD-ROM ÀÎÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 6907 1820
462   [½Ã½ºÅÛ] ¾î¶² ¾îÇø®ÄÉÀ̼ÇÀÌ ½ÃÀÛ µÇ´ÂÁö hookÀ¸·Î ¾Ë¾Æ³»±â  ±è¿µ´ë 2003/03/07 5789 1729
461   [À©µµ¿ìÁî API] À©µµ¿ìÁî Ž»ö±âÀÇ ¾ÆÀÌÄÜ »Ì¾Æ³»¼­ »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/07 8603 2063
460   [À©µµ¿ìÁî API] System Images  ±è¿µ´ë 2003/03/07 8531 1986
459   [À©µµ¿ìÁî API] ÄÄÇ»ÅÍ/ÆÄÀÏ/Æú´õ ã±â È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 8554 1696
458   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Unix-format time À» TDateTime ·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4506 1240
457   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ½ÇÇà½Ã component ¸¦ Move/Resize ½ÃÅ°±â  ±è¿µ´ë 2003/03/07 3692 1067
456   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TMemo ¸¦ È­¸éÅ©±â·Î ÀμâÇÏ±â  ±è¿µ´ë 2003/03/07 3198 809
455   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] SpeedButton ¿¡ OnMouseEnter/OnMouseExit À̺¥Æ® ³Ö±â  ±è¿µ´ë 2003/03/07 4374 1183
454   [À©µµ¿ìÁî API] Å°º¸µåÀÇ Scroll Lock Äѱâ/²ô±â  ±è¿µ´ë 2003/03/07 4755 1276
453   [µ¥ÀÌÅͺ£À̽º] table packing ÇÏ±â  ±è¿µ´ë 2003/03/07 4040 1119
452   [À©µµ¿ìÁî API] reboot Windows  ±è¿µ´ë 2003/03/07 5108 1343

[ÀÌÀü 10°³] [1]..[11][12] 13 [14][15][16][17][18][19][20]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2025 Zeroboard / skin by zero