var
username,
userpwd:
string
;
login:
boolean;
begin
try
while
(not
login)
do//
登入
begin
write(
'login: '
);
readln(username);
setconsolemode(getstdhandle(std_input_handle),
enable_line_input
orenable_processed_input);
//隱藏輸入
write(
'password: '
);
readln(userpwd);
writeln(
'');
if(username
='mtcl'
)and
(userpwd
='mtcl'
)then
begin
login
:=true;
//跳出迴圈
,表示登入成功
,可在後面顯示
form
end
else
begin
//登入失敗
writeln(
'login incorrect'
);
writeln(
'');
setconsolemode(getstdhandle(std_input_handle),
enable_line_input
or
enable_processed_input
orenable_echo_input);
//顯示輸入
end;
end;
finally
freeconsole;
end;
end;
控制台程式裡呼叫控制台程式
現在遇到這麼個問題，我想用控制台裡呼叫控制台程式來實現多文字。但是在控制台裡呼叫控制台程式時，它不是出現新的控制台視窗顯示，而是已有的控制台裡顯示呼叫的程式，system d code 練習 jjplace editor debug editor.exe winexec d code 練習 jjpl...
沒有控制台視窗的控制台程式
include include pragma comment linker,subsystem windows entry maincrtstartup int main int argc,char argv 編譯後執行程式會彈出乙個訊息框，而沒有背後的控制台視窗。再看看下面的 include in...
Qt 控制台程式
1.建立乙個控制台工程 包含乙個.pro檔案和main.cpp檔案 q t core qt gui config c 11 工程名target test 工程的型別是控制台 config consoleconfig變數 配置變數指定了編譯器所要使用的選項和所需要被連線的庫。配置變數中可以新增任何東西...