小弟想寫個用DELPHI控制MYSQL自動創建資料表的程式

使用sendmessage的時候 只能傳送字元


[code delphi]
SetForegroundWindow(WinExec('D:\AppServ\MySQL\bin\mysql.exe -u root -p', SW_Normal));
sleep(1000);
c := FindWindow(nil, 'D:\AppServ\MySQL\bin\mysql.exe');
if c <> 0 then begin
h:=ChildWindowFromPoint(c,Point(10,10));
if h <> 0 then begin
SendMessage(h, WM_char,longint(PCHAR('1234')),0);
SendMessage(h, WM_char,VK_RETURN,0);
end;
end;
[/code]

只會打出個 " * "


使用sendkeys的時候 送出中文字串時 會跑出 Invalid KeyName 的錯誤視窗

[code delphi]
SetForegroundWindow(WinExec('D:\AppServ\MySQL\bin\mysql.exe -u root -p', SW_Normal));
sleep(1000);
SendKeys(PChar('1234' '{Enter}'), True);
SendKeys(PChar('use test' '{Enter}'), True);
SendKeys(PChar('create table 工作分配紀錄(' '{Enter}'), True);
[/code]

試過用CMD執行也是一樣的情形

也找了許多KTOP裡面的文章

有些太深奧的還看不懂 也不知道怎麼用(大多是BCB的)

GOOGLE找的全都是英文

麻煩各位前輩解答了!