oh_lucifer 发表于 2009-8-1 05:07

learn CmdLine for delphi

program Project1;



uses
Windows;
var
    text:string;

begin

text:='fuckgexx';
CmdLine:=PChar(text);

MessageBox(0,CmdLine,'StrParam Command',MB_OK);

{ TODO -oUser -cConsole Main : Insert code here }
//判断 参数个数

if ParamCount > 0 then
MessageBox(0,PChar(ParamStr(1)),'1st_param',MB_OK)
else
    MessageBox(0,PChar('No paramete'),'1st StrParam Parameter', MB_OK);
    Exit
end.

languageme 发表于 2011-12-12 14:24

页: [1]
查看完整版本: learn CmdLine for delphi


免责声明：
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52pojie.cn