Скачать: CL | DM;

Ошибка при работе с GetWindowsDirectory   Найти похожие ветки 

← →
antonioxxx ©   (2002-09-22 22:40) [0]

Уважаемые программисты! У меня возникает ошибка, когда я пытаюсь вызвать функцию GetWindowsDirectory в OnCreate для формы. Та же ошибка возникает и при попытке вызова этой функции в OnActivate и OnShow. Функция же GetWindowsDirectoryW никаких ошибок не создает, однако её результат я не могу перевести в строковые данные (Передаваемый параметр типа PWideChar). Подскажите, пожалуйста, как мне с этим справиться!

---

← →
Almaz ©   (2002-09-22 23:31) [1]

Вероятно вы не правильно ее вызываете - приведите код.

Удачи.

---

← →
Separator ©   (2002-09-23 07:05) [2]


var
pRes: pChar;
WinDir: string;
begin
PRes := StrAlloc(255);
GetWindowsDirectory(PRes, 255);
WinDir:= StrPas(PRes);
end


---

← →
gek ©   (2002-09-23 07:41) [3]

function GetWindowsDir: string;
{$IFDEF WIN32}
var
Buffer: array[0..1023] of Char;
begin
SetString(Result, Buffer, GetWindowsDirectory(Buffer, SizeOf(Buffer)));
{$ELSE}
begin
Result[0] := Char(GetWindowsDirectory(@Result[1], 254));
{$ENDIF}
end;

---

← →
Song ©   (2002-09-23 08:27) [4]

2Separator © (23.09.02 07:05)
Пушкин А.С. видимо знает...

---

← →
Vladislav ©   (2002-09-23 10:37) [5]

var SP: array[0..MAX_PATH-1] of char;
SysPath, WinPath: TFileName;
begin
SetString( SysPath, SP, GetSystemDirectory( SP, MAX_PATH ));
SetString( WinPath, SP, GetWindowsDirectory( SP, MAX_PATH ));
end;

---

← →
@lexey ©   (2002-09-23 22:31) [6]

Так же как и у Vladislav, но проще! :о)


procedure TFrm.FormCreate(Sender: TObject);
var
buffer: array [0..255] of char;
begin
GetWindowsDirectory(buffer, SizeOf(buffer));
Label2.Caption := buffer;
end;


Удачи antonioxxx!!!

---

← →
antonioxxx ©   (2002-09-24 21:00) [7]

Спасибо вам всем за оказанную помощь!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c