Кусок Кода С Delfi На С

[x3zz]

вот кусок который хочу перевести, непонимаю что обозначают :=, repeat на си такова небывало


procedure TForm1.Button1Click(Sender: TObject); -- ну это не надо
var
winH: hwnd; // Хэндл очередного окна
WinTitle: array[0..255] of char; // Заголовок очередного окна
begin
winH := Form1.Handle; // Окно с которого начинаем поиск всех окон
repeat
GetWindowText(winH, WinTitle, 255); // Записать в WinTitle заголовок окна
Memo1.Lines.Add(WinTitle); // Добавить в список заголовок окна.
winH := GetWindow(winH, GW_HWNDnext); // Получить следующее окно
until (winH=0) // Если дескриптор окна=0 останавливаем поиск. Окно с нулевым дескриптором есть рабочий стол.
end;

 

[rrrFer]

:= - тоже самое что = на си
repeat until - аналог do{}while
вроде бы, я паскаль в школе тока учил и могу ошибаться.

 

[x3zz]

void __fastcall TForm1::Button1Click(TObject *Sender)
{ int main(void)
{
hwnd winH;
char WinTitle[255] ;

winH = Form1->Handle;
do {
GetWindowText(winH, WinTitle, 255); //
Memo1->Lines->Add(WinTitle);
winH = GetWindow(winH, GW_HWNDnext);
}while (winH=0);

};

}

переделал, а компилятор почему то ругается

 

[majjestik]

Переделал твой код. Если честно понятия не имею что он делает и не хочу разбираться, но компилятор больше ошибок не выдает =)

void __fastcall TForm1::Button1Click(TObject *Sender)
{

HWND winH;
char WinTitle[255] ;

winH = Form1->Handle;
do {
GetWindowText(winH, WinTitle, 255); //
Memo1->Lines->Add(WinTitle);
winH = GetWindow(winH, GW_HWNDNEXT);
}
while (winH==0);

}

 

[pRoGeR]

Переделал твой код. Если честно понятия не имею что он делает и не хочу разбираться, но компилятор больше ошибок не выдает =)

void __fastcall TForm1::Button1Click(TObject *Sender)
{

HWND winH;
char WinTitle[255] ;

winH = Form1->Handle;
do {
GetWindowText(winH, WinTitle, 255); //
Memo1->Lines->Add(WinTitle);
winH = GetWindow(winH, GW_HWNDNEXT);
}
while (winH==0);
}

В третьей строке синтаксическая ошибка