Форум: "KOL";
Текущий архив: 2009.10.18;
Скачать: [xml.tar.bz2];
ВнизПару вопросов по 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]Удалено модератором
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2009.10.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c