Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

Как узнать каталог Windows?   Найти похожие ветки 

← →
Maxim Pshevlotsky   (2003-06-11 07:39) [0]

Как узнать каталог Windows, только чтобы он "узнавался" как на Win9x., так и на NT платформах

---

← →
Spawn   (2003-06-11 07:56) [1]

GetWindowsDirectory

---

← →
Maxim Pshevlotsky   (2003-06-11 08:13) [2]

Spawn © (11.06.03 07:56)

Как я понял результат возвращается в переменную ipBuffer, количество символов возвращается в результат, размер строки задается параметром uSize

??? Ничего не получается :((( ???

Var WinDir: PChar;
Begin

GetWindowsDirectory(WinDir,10);
WriteLn(WinDir);

---

← →
Spawn   (2003-06-11 08:16) [3]

Все ок

procedure TForm1.Button1Click(Sender: TObject);
var
buf:array[0..255] of AnsiChar;
begin
GetWindowsDirectory(Buf,256);
ShowMessage(Buf)
end;

---

← →
Spawn   (2003-06-11 08:18) [4]

Хотя я что то большой массив взял :)) Сделай размерность 20 где нить

---

← →
Lord Warlock   (2003-06-11 08:36) [5]

Существует множество подходов к получению значений в переменные типа PChar, вот один из них:

var A: PChar;
S: String;
begin
GetMem(A,MAX_PATH);
GetWindowsDirectory(A,MAX_PATH);
S:=A;
FreeMem(A);
ShowMessage(S);
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.029 c