假設今天使用者按下一個button讓程式去執行一個動作

那

計算他一共執行了多久並顯示到edit上的程式碼該怎麼寫

還有如果想用一個動態顯示圖顯示他的執行進度的程式碼該怎麼寫

利用API GetTickCount 從你按下Button取出他的值當你執行你的程式動作完畢時再取出一次 兩次相減就是你需要的

procedure TForm1.Button1Click(Sender: TObject);
var
iStart : Cardinal ;
begin
iStart := GetTickCount ;
CallYourFunc ;
ShowMessage('共耗费' IntToStr(GetTickCount - iStart) '毫秒') ;
end;