السلام عليكم
PHP كود :
var
I: Integer;
begin
for I := 0 to Screen.FormCount - 1 do
begin
if TForm(Screen.Forms[i]) = Form1 then Continue;
TForm(Screen.Forms[i]).Close;
end;
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج