Ник Курков

Чтобы перевести секунды в time (20:30:50) в MySQL, достаточно написать:

sec_to_time(seconds)

Хорошее описание компонента WebBrowser

Вот как перетащить файл на форму:

uses ShellApi;

...

  public
procedure wmdropfiles(var message: tmessage); message wm_dropfiles;
end;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
// Разрешаем перетаскивание
DragAcceptFiles(Handle, true);
end;
...

procedure TForm1.wmdropfiles(var message: tmessage);
var
hdrop:thandle;
i,c:longword;
s:string;
begin
hdrop:=message.wparam;
c:=dragqueryfile(hdrop,longword(-1),pchar(nil),0);
for i:=0 to c-1 do
begin
setlength(s,dragqueryfile(hdrop,i,pchar(nil),0));
dragqueryfile(hdrop,i,pchar(s),length(s)+1);
ShowMessage(s);
end;
dragfinish(hdrop);
end;

Эта статья научит основам многопоточности в Delphi.

На этот раз буржуйский:

http://www.planet-source-code.com/vb/default.asp?lngWId=7#categories 

База данных ГИБДД

Итак, задача заключалась в следующем. Сделать так, чтобы по расписанию каждый день на любой виндовой тачке (будь-то серверной либо рабочей станции) производилось копирование критичных к потере данных из места источника в хранилище резервных данных. Скопированные данные, по возможности архивировать, так как винты-то не резиновые и разводить по архивам содержащие в своем наименовании дату произведенного бакапа.

(more...)

Перед установкой программы нужно выключить старую версию (чтобы перезаписать файлы). Как это сделать в Inno Setup.

А вот так:

function InitializeSetup(): Boolean;
var
ErrorCode: Integer;
begin
Exec('taskkill', '/f /im optimizer.exe', '', SW_Hide, ewWaitUntilTerminated, ErrorCode);
RegDeleteValue(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', 'Background Optimizer');
RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\Kurkov Software\Background Optimizer');
Result:=True;
end;

Очень просто! Пишем в событие OnKeyPress:
begin
case key of
'0'..'9',#8,'-':;
else
key:=#0;
end;
end;

 Как отсортировать TStringlist по дате или по числам? Смотрим ниже.

(more...)