[6ruse]

Сообщение от MiRiN

В общем следующая задача передо мной стояла! Надо было Считать и выводить на форму Размер выбранного файла! Через потоки и через WipApi функцию! Как я это пытался сделать

Код:

function MyProc(str: string):DWORD;
var P : Pointer;
i: integer;
begin
i:=GetFileSize(StrToCard(str),P);
MainForm.Label1.Caption := intToStr(i);
Result := 0;
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
Var thID:DWORD;
begin
CreateThread(NULL, 0, MyProc, MainForm.Name.Text, 0, thID);
end;

Admin: Пользуемся тегами!!!

И в общем то так не получается... Если так то ругается компилятор на строчку CreateThread вот таким матом Incompatible types: 'Variant' and 'Pointer'

Но даже если я просто вызываю функцию MyProc(MainForm.Name.Text); мне выдаёт в ответ не размер файла а значение -1 !!
Помогите пожалуйста кто нить....

обязательно потоки??? а если Ttimer или это принципиально???