查shellexecute的帮助。sw_show--> Activates the window and displays it in its current size and position.
能不能用SW_SHOW出美女洗澡图呀?:) SW_SHOW打开一个Form按原有尺寸显示。
function GetSysDir:string; var buf:array[0..MAX_PATH] of char; begin getsystemdirectory(buf,MAX_PATH); result:=string(buf); if result[length(result)]='\' then setlength(result,length(result)-1); end; //////////////// procedure TForm1.Button1Click(Sender: TObject); begin shellexecute(handle,'',pchar(getsysdir+'\calc.exe'),'','',sw_show); end; ////////////// //洗澡的美女呢?吸引眼球也要来点实在的嘛!
有什么意义
即使加路径也不行,问题好像在'calc.exe'后面
HELP!
没有看见美女,倒看见了四个呆子程序员:)
Activates the window and displays it in its current size and position.
SW_SHOW打开一个Form按原有尺寸显示。
var
buf:array[0..MAX_PATH] of char;
begin
getsystemdirectory(buf,MAX_PATH);
result:=string(buf);
if result[length(result)]='\' then
setlength(result,length(result)-1);
end;
////////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'',pchar(getsysdir+'\calc.exe'),'','',sw_show);
end;
//////////////
//洗澡的美女呢?吸引眼球也要来点实在的嘛!
shellexecute(handle,'',pchar(getsysdir+'\calc.exe'),'','',sw_show);望回复!
美人在这
帮我搞定这个问题好吗?
Winexec('calc.exe',SW_SHOW);就行了啊。