GetSystemDirectory问题 求求各位大虾帮帮我这个菜菜！谢谢了

Question

1.我想看一下系统目录的内容  就把结果放在一个文本框中  怎么得到的结果却是空字符    什么也没有Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Sub Form_Load()
systempath = String(255, Chr(0))
GetSystemDirectory systempath, 254
systempath = Left(systempath, InStr(systempath, Chr(0)) - 1)
Text1.Text = systempathEnd Sub
2。小弟在用VB不让他重复打开一个进程用如下代码（我超的别人的！别打）除了想隐藏进程以外，我还想每次在点击桌面图标时，激活该窗口，并将该窗口从任务栏弹出来 就像芊芊静听一样。昨天我都试好了，不知今天怎么变代码，都不成功 也请大虾帮我   谢谢！！  
Private Sub Form_Load()  
'不准重复打开这个程序 
Dim title As String 
If App.PrevInstance Then 
title = App.title 
App.title = "" 
Me.Caption = "" 
AppActivate title 
End 
End If

Answer 1

1 编码问题，vb使用unicode的，你用的函数是ascii的。

Answer 2

不好意思   你能说的再详细点吗  谢谢了   我是一个学生  才学了 VB    我们学的常用转换函数  里面 有chr()  和  asc()两种函数 怎么不可以用吗 谢谢了  请你给我说的再详细点

Answer 3

如果说这样不方便你说的  话  你可以留下你的QQ    我加你   你也可以加我  我天天都在  是隐了身的    我的QQ：449631375   分不会少加一分的