S
Sadman701
Делаю так:
var
PC:Char
IDDtex,IDC_STATIC1: Integer;
************************************************************
begin
GetMem(PC, 100);
GetDlgItemText(LSB1, IDDtex, PC, 100);
DlgDirList(LSB1,Pchar('C:\'),GetDlgCtrlID(LSB1),GetDlgCtrlID(IDDtex), faAnyFile);
FreeMem(PC);
В чем ошибка?
var
PC:Char
IDDtex,IDC_STATIC1: Integer;
************************************************************
begin
GetMem(PC, 100);
GetDlgItemText(LSB1, IDDtex, PC, 100);
DlgDirList(LSB1,Pchar('C:\'),GetDlgCtrlID(LSB1),GetDlgCtrlID(IDDtex), faAnyFile);
FreeMem(PC);
В чем ошибка?