Пару вопросов по KOL

← →
!Pharaon! (2007-04-04 19:04) [0]

У меня появилось пару вопросов по KOL
1) Я для отображения времени в статус-баре написал такой код
procedure TForm1.Timer1Timer(Sender: PObj);
var
sys:TSystemTime;
time:string;
d:TDateTime;
begin
GetSystemTime(sys);
systemtime2datetime(sys,d);
time:=DateTime2StrShort(d);
form1.Form.StatusText[0]:=PChar(time);
end;
Так вот, например вместо 19:00 он мне показывает 15:00! В чём проблема!
2) Я скачал библиотеку ActiveKOL, дал ссылку на папку с компонентом, но когда я пытаюсь установить компонент KOLCdWriter (для которого нужен activekol), он мне выдаёт ошибку в файле ActiveKOL.pas:

procedure TOleCtl.KeyPress(var Key: Char);
begin
if Assigned(FOnChar) then FOnChar(@Self,key,0); <-
end;

[Error] ActiveKOL.pas(1443): Types of actual and formal var parameters must be identical
[Fatal Error] CDWriter_TLBKOL.pas(41): Could not compile used unit "ActiveKOL.pas"

В чём проблема???

← →
D[u]fa © (2007-04-04 22:19) [1]

1. время по гринвичу (узнавай время через Now например)
2. Char заменить надо на KOLChar из-за введенной поддержки уникода

← →
имя (2007-06-18 05:56) [2]

Удалено модератором

← →
Grademax (2007-06-19 14:00) [3]

Program Mini; uses windows, messages,KOL; var SystemTime: record wYear,wMonth,wDayOfWeek,wDay,wHour,wMinute,wSecond,wMilliseconds:Word; end; {------------------------------------------------------------------------------} procedure _GetDate; begin asm LEA EAX,SystemTime PUSH EAX CALL GetLocalTime // или установить время - SetLocalTime end; end; {------------------------------------------------------------------------------} begin _GetDate; MsgOk(Int2Str(SystemTime.wHour)+":"+Int2Str(SystemTime.wMinute)); end.

← →
имя (2007-08-08 22:10) [4]

Удалено модератором

← →
имя (2008-01-25 06:00) [5]

Удалено модератором

← →
имя (2008-03-27 05:23) [6]

Удалено модератором

Пару вопросов по KOL Найти похожие ветки