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

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


Category

  ±è¿µ´ë(2003-03-07 19:58:17, Hit : 4396, Vote : 1078
 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;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(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 NetShareAdd(ServerName: PChar;
                     ShareLevel: SmallInt;
                     Buffer: Pointer;
                     Size: Word): Integer; stdcall; external 'SVRAPI.DLL';

function NetShareDel(ServerName: PChar;
                     NetName: PChar;
                     Reserved: Word): Integer; stdcall; external 'SVRAPI.DLL';

function ShareResource(ServerName: PChar; FilePath: PChar;
                       NetName: PChar; Remark: PChar;
                       ShareType: Byte; Flags: Word;
                       RWPass: PChar; ROPass: PChar): Integer;
var
  MyShare: Share_Info50;
  PMyShare: ^Share_Info50;
begin
  strLcopy(MyShare.shi50_netname, NetName, 13);
  MyShare.shi50_type   := ShareType;
  MyShare.shi50_flags  := Flags;
  MyShare.shi50_remark := Remark;
  MyShare.shi50_path   := FilePath;
  strLcopy(MyShare.shi50_rw_password, RWPass, 9);
  strLcopy(MyShare.shi50_ro_password, ROPass, 9);
  PMyShare := @MyShare;
  Result := NetShareAdd(ServerName, 50, PMyShare, SizeOf(MyShare));
end;

function DeleteShare(ServerName: PChar; NetName: PChar): Integer;
begin
  Result := NetShareDel(ServerName,NetName, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  rt: Integer;
begin
  rt := ShareResource(nil,        // ÄÄÇ»ÅÍ À̸§ (nil Àº Local MachineÀ» ÀǹÌÇÕ´Ï´Ù)
                      'C:ZZZ',   // °øÀ¯ÇÒ Æú´õ (ÀüºÎ ´ë¹®ÀÚ·Î ÁöÁ¤)
                      'ZZZ',      // °øÀ¯À̸§
                      '°øÀ¯¿¹Á¦', // ¼³¸í
                      0,          // 0=µð·ºÅ丮 °øÀ¯, 1=ÇÁ¸°ÅÍ °øÀ¯
                      // 256 or 1= Àбâ Àü¿ë, 256 or 2=Àбâ/¾²±â, 256 or 1 or 2=¾ÏÈ£¿¡ µû¶ó ´Ù¸§
                      256 or 1 or 2,
                      '1111',     // Àбâ/¾²±â ¾ÏÈ£
                      '2222');    // Àбâ Àü¿ë ¾ÏÈ£
  if rt = 0 then
    ShowMessage('Æú´õ°¡ °øÀ¯µÇ¾ú½À´Ï´Ù')
  else
    ShowMessage('Æú´õ¸¦ °øÀ¯ÇÒ ¼ö ¾ø½À´Ï´Ù.  ¿¡·¯¹øÈ£('+IntToStr(rt)+')');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  rt: Integer;
begin
  rt := DeleteShare(nil, 'ZZZ');
  if rt = 0 then
    ShowMessage('Æú´õÀÇ °øÀ¯¸¦ ÇØÁ¦ÇÏ¿´½À´Ï´Ù')
  else
    ShowMessage('Æú´õÀÇ °øÀ¯¸¦ ÇØÁ¦ÇÒ ¼ö ¾ø½À´Ï´Ù.  ¿¡·¯¹øÈ£('+IntToStr(rt)+')');
end;

end.





491   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEdit ÀÇ ¼±ÅÃµÈ ¿µ¿ª¸¸ ÀμâÇÏ±â  ±è¿µ´ë 2003/03/07 4491 727
490   [½Ã½ºÅÛ] CPU Á¾·ù ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4812 1195
489   [½Ã½ºÅÛ] »ç¿îµåÆÄÀÏ ¾øÀÌ PC ½ºÇÇÄ¿·Î À½¾Ç¿¬ÁÖ  ±è¿µ´ë 2003/03/07 4654 924
488   [³×Æ®¿÷/ÀÎÅͳÝ] ÇÁ·Î±×·¥À¸·Î ³×Æ®¿öÅ© µå¶óÀÌºê ¿¬°á/ÇØÁ¦  ±è¿µ´ë 2003/03/07 6732 1252
487   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî Á¾·á¿Í °°Àº ±×´ÃÁø È­¸é ¸¸µé±â  ±è¿µ´ë 2003/03/07 3145 841
486   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¾ÆÀÌÄÜ »çÀÌÆ®  ±è¿µ´ë 2003/03/07 3620 1067
485   [½Ã½ºÅÛ] À©µµ¿ìÁî ½Ã½ºÅÛ Ç¥ÁØ ÆùÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 3025 851
484   [³×Æ®¿÷/ÀÎÅͳÝ] RS232 Åë½Å  ±è¿µ´ë 2003/03/07 6932 1856
483   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÁÖ¾îÁø ¿µ¿ªÀÇ È­¸é ĸó  ±è¿µ´ë 2003/03/07 3564 1008
482   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¸¦ ¿µ¹® Ç¥±â·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4251 891
481   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¸¦ ÇÑ±Û Ç¥±â·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 3615 928
480   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] RichEdit ÀÇ ³»¿ëÀ» Bitmap À¸·Î ¸¸µé±â 2  ±è¿µ´ë 2003/03/07 3784 982
479   [COM/OLE] MS-WORD Á¾·á½ÃŰ±â  ±è¿µ´ë 2003/03/07 2670 747
478   [À©µµ¿ìÁî API] ½Ã½ºÅÛ »ç¿îµå ¿¬ÁÖÇÏ±â  ±è¿µ´ë 2003/03/07 4797 1297
477   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Algorithm to sort a TStringGrid #2  ±è¿µ´ë 2003/03/07 4774 1204
476   [À©µµ¿ìÁî API] ¿ÜºÎ ÇÁ·Î±×·¥ÀÇ ÁÂÇ¥,»óÅ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 3168 1017
475   [À©µµ¿ìÁî API] À©µµ¿ìÁî Telnet À¸·Î È£½ºÆ® Á¢¼ÓÇÏ±â  ±è¿µ´ë 2003/03/07 4069 1117
474   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ƯÁ¤ÇÑ Æú´õ·Î À̵¿ÇÑ DOS â ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4111 1134
473   [½Ã½ºÅÛ] DOS ¸í·É¾î ½ÇÇàÇÏ°í °á°ú ¹Þ¾Æ¿À±â  ±è¿µ´ë 2003/03/07 6546 1549
472   [À©µµ¿ìÁî API] NTÀÇ ÇöÀç user°¡ administrative privilege ¸¦ °¡Áö°í ÀÖ´ÂÁö?  ±è¿µ´ë 2003/03/07 2989 813
471   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µÎ°³ÀÇ StringGrid sync ¸¶Ãß±â  ±è¿µ´ë 2003/03/07 3708 1017
470   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÀÇ title bar ÆùÆ® ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 3231 841
  [³×Æ®¿÷/ÀÎÅͳÝ] ³×Æ®¿öÅ© °øÀ¯ ¼³Á¤/ÇØÁ¦ Çϱâ (Windows 9x)  ±è¿µ´ë 2003/03/07 4396 1078
468   [³×Æ®¿÷/ÀÎÅͳÝ] ³×Æ®¿öÅ© °øÀ¯ Á¤º¸ Àоî¿À±â (WIndows 9x)  ±è¿µ´ë 2003/03/07 3656 993
467   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ´­·ÁÁø Űº¸µå ŰÀÇ ¸íĪ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 7378 1437
466   [À©µµ¿ìÁî API] Windows98 ¿¡¼­ÀÇ SetForegroundWindow  ±è¿µ´ë 2003/03/07 5744 1489
465   [À©µµ¿ìÁî API] Task bar ¿¡ ³ªÅ¸³ªÁö ¾Ê´Â ÇÁ·Î±×·¥ ¸¸µé±â  ±è¿µ´ë 2003/03/07 5157 1509
464   [COM/OLE] Outlook »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/07 3476 1090
463   [½Ã½ºÅÛ] ÁöÁ¤ÇÑ drive°¡ CD-ROM ÀÎÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 6289 1649
462   [½Ã½ºÅÛ] ¾î¶² ¾îÇø®ÄÉÀ̼ÇÀÌ ½ÃÀÛ µÇ´ÂÁö hookÀ¸·Î ¾Ë¾Æ³»±â  ±è¿µ´ë 2003/03/07 5125 1523
461   [À©µµ¿ìÁî API] À©µµ¿ìÁî Ž»ö±âÀÇ ¾ÆÀÌÄÜ »Ì¾Æ³»¼­ »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/07 8034 1888
460   [À©µµ¿ìÁî API] System Images  ±è¿µ´ë 2003/03/07 6314 1828
459   [À©µµ¿ìÁî API] ÄÄÇ»ÅÍ/ÆÄÀÏ/Æú´õ ã±â È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 6170 1471
458   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Unix-format time À» TDateTime ·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4100 1122
457   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ½ÇÇà½Ã component ¸¦ Move/Resize ½ÃŰ±â  ±è¿µ´ë 2003/03/07 3312 952
456   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TMemo ¸¦ È­¸éÅ©±â·Î ÀμâÇÏ±â  ±è¿µ´ë 2003/03/07 2776 697
455   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] SpeedButton ¿¡ OnMouseEnter/OnMouseExit À̺¥Æ® ³Ö±â  ±è¿µ´ë 2003/03/07 3952 1041
454   [À©µµ¿ìÁî API] Űº¸µåÀÇ Scroll Lock Äѱâ/²ô±â  ±è¿µ´ë 2003/03/07 4176 1135
453   [µ¥ÀÌÅͺ£À̽º] table packing ÇÏ±â  ±è¿µ´ë 2003/03/07 3479 1005
452   [À©µµ¿ìÁî API] reboot Windows  ±è¿µ´ë 2003/03/07 3882 1120

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

Copyright 1999-2022 Zeroboard / skin by zero