[XaS]

Люди плиз хелп ми!! У меня есть отрезки кода, но с делфи я не очень, и мне необходимо узнать, что означает каждая строчка кода. Если не сложно, помогите чайнику. Буду очень благодарен всем откликнувшимся помочь))
Код не полный, но 100% рабочий, может кому то пригодится

Код:

// ------Создание базы данных:-----------------------------------
procedure CreateDB();
Var
qCreateDb : TADOQuery;
begin
Try
SettingsForm.AdoCon.DefaultDatabase := SettingsForm.cbDB.Text;
Except
qCreateDb := TADOQuery.Create(SettingsForm);
qCreateDb.Connection := SettingsForm.AdoCon;
qCreateDb.SQL.Add('CREATE DATABASE IF NOT EXISTS spravochnik CHARACTER SET cp1251;');
qCreateDb.ExecSQL;
SettingsForm.AdoCon.DefaultDatabase := SettingsForm.cbDB.Text;
qCreateDb.ExecSQL;
End;
end;

//------------Подключение к серверу CTI Rander:---------------
Procedure TSettingsForm.ConnectToRanCom(Sender: TObject);
Begin
if Assigned(RCfrm) And RCfrm.IsConnectedToServer then Begin
RcFRM.Disconnect;
btConnectToRanCom.Caption:= 'Подключиться к RANDER';
ChangeCurState(CS_NOT_CONNECTED);
End
Else begin
Try
if Assigned(RCfrm) then Begin
RCfrm.Free;
End;
RCFrm:= TRanCom.Create(self);
RCfrm.OnServerConnectionStatusChanged:=OnConnectedRC;
IRCfrm:=RCfrm.DefaultInterface;
RCfrm.OnCallStateChanged:= OnChangeLineState;
RCfrm.Connect(eRCServerName.Text, eRCUsername.Text,eRCPassword.Text);
LineId:= IRCfrm.OpenLine(eRCLine.Text);
if Not RcFrm.IsConnectedToPbx then ShowMessage('Not Connected');
PostMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
ChangeCurState(CS_CONNECTED);
Timer2.Enabled:=true;
Except
ShowMessage('Не удалось подключиться к серверу');
ChangeCurState(CS_NOT_CONNECTED);
End;
end;
End;

//---------------Открытие карты Madow:------------------------------
Procedure OpenMadow();
var
Wnd: hWnd;
buff: array[0..127] of Char;
Rlst: LongBool;
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
CmdLine,Filename : ShortString;
i:integer;
dummy :string;
Begin
Filename := SettingsForm.eMadowPath.Text;
CmdLine := '"' + FileName + '"' + strIIF(LastMapPath<>'',' "' + LastMapPath + '"','');
FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
with StartUpInfo do begin
cb := SizeOf(TStartUpInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
wShowWindow := SW_SHOWMAXIMIZED;
end;
Rlst := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,PChar(ExtractFilePath(Filename)),StartUpInfo,ProcessInfo);
if Rlst then with ProcessInfo do begin
WaitForInputIdle(hProcess, INFINITE); 
CloseHandle(hThread); 
CloseHandle(hProcess);
wnd := FindMadowWindow(dummy);
if wnd<>0 then SetForegroundWindow(wnd);
end
else Begin
ShowMessage('Ошибка открытия Madow');
ShowMessage(SysErrorMessage(GetLastError));
End;
if LastAdress <> '' then Begin
keybd_event(VK_CONTROL,0,0,0);
keybd_event(Ord('F'),0,0,0);
keybd_event(Ord('F'),0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
for i := 1 to Length(LastAdress) do Begin
Begin
keybd_event(VkKeyScan(LastAdress[i]),0,0,0);
keybd_event(VkKeyScan(LastAdress[i]),0,KEYEVENTF_KEYUP,0);
End;
End;
keybd_event(VK_RETURN,0,0,0);
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);

Bargest: оформляем код!

[angvelem]

1. Заключаем код в тег [ CODE ].
2. Имеется 2 независимых кода.
3. Читаем умные книжки.