Q&A

  • 사용자 홈디렉토리를 가져올수 있나요?
안녕하세요...



델파이에서 사용자 홈디렉토리를 알수 잇는 방법이 있나요?



예로 들자면 Windows2000을 사용하고 사용자가 Administrator라고 한다면



사용자홈 디렉토리가 C:Documents and settingsadministrator라고 가지고 와야 하구요



Windows98사용자가면 C:windows라고 가지고 올수 있어야 합니다



알고 계시는 분은 좀 가르쳐주세요...





3  COMMENTS
  • Profile
    컴맹.. 2001.06.02 18:57
    안녕하세여.. 컴맹입니다...



    글세여.. 2000에서는 이렇게 하면 되는데..

    98은 안해 봤거든여... 아마두 될것 같은데여..

    var

    TPath : Array[0..255] of char;

    begin

    GetEnvironmentVariable('USERPROFILE',TPath,SizeOf(Tpath));

    Caption := TPath;

    end;





    권용찬 wrote:

    > 안녕하세요...

    >

    > 델파이에서 사용자 홈디렉토리를 알수 잇는 방법이 있나요?

    >

    > 예로 들자면 Windows2000을 사용하고 사용자가 Administrator라고 한다면

    >

    > 사용자홈 디렉토리가 C:Documents and settingsadministrator라고 가지고 와야 하구요

    >

    > Windows98사용자가면 C:windows라고 가지고 올수 있어야 합니다

    >

    > 알고 계시는 분은 좀 가르쳐주세요...

    >

    >

  • Profile
    권용찬 2001.06.02 19:25
    안녕하세요..



    저두 그렇게는 해봤습니다.

    윈2000에서는 문제가 없는데요... 문제는 win98 입니다.



    혹시 WinNT에서는 이 방법으로 하면 되는지 알고 싶습니다.





    컴맹.. wrote:

    > 안녕하세여.. 컴맹입니다...

    >

    > 글세여.. 2000에서는 이렇게 하면 되는데..

    > 98은 안해 봤거든여... 아마두 될것 같은데여..

    > var

    > TPath : Array[0..255] of char;

    > begin

    > GetEnvironmentVariable('USERPROFILE',TPath,SizeOf(Tpath));

    > Caption := TPath;

    > end;

  • Profile
    ^-_-^ 2001.06.02 23:36
    yo`



    윈98에서 윈도 디렉토리를 구하는것은 ...





    procedure TForm1.Button1Click(Sender: TObject);

    var

    Windir : array[0..30] of char;

    begin

    GetWindowsDirectory(Windir,sizeof(windir));

    Label1.Caption := Windir;



    end;



    그럼..휘리리릭~



    bLue bLood.



    권용찬 wrote:

    > 안녕하세요..

    >

    > 저두 그렇게는 해봤습니다.

    > 윈2000에서는 문제가 없는데요... 문제는 win98 입니다.

    >

    > 혹시 WinNT에서는 이 방법으로 하면 되는지 알고 싶습니다.

    >

    >

    > 컴맹.. wrote:

    > > 안녕하세여.. 컴맹입니다...

    > >

    > > 글세여.. 2000에서는 이렇게 하면 되는데..

    > > 98은 안해 봤거든여... 아마두 될것 같은데여..

    > > var

    > > TPath : Array[0..255] of char;

    > > begin

    > > GetEnvironmentVariable('USERPROFILE',TPath,SizeOf(Tpath));

    > > Caption := TPath;

    > > end;