ÎÒ¸Õ¸Õ¿ªÊ¼Ñ§Ï°delphi
°´ÕÕ½ÌѧϰʱÕÕ×Å×öÁ˸ö ¶¯Ì¬´´½¨²Ëµ¥Àý×Ó
¿ÉÊÇÔËÐеÄʱºò³öÏÖ unable to create process£º¾Ü¾ø·ÃÎÊ¡£
ÕâÊÇÔõô»ØÊ£¿£¿
ÎÒÔËÐбðµÄ³ÌÐò¶¼Ã»ÎÊÌâ
Ö»ÓÐÕâ¸öÊÇÕâÑù
¶øÇÒÈðÐÇ»¹°ÑËûµ±×öÁ˲¡¶¾
´ó¼Ò°ïÏÂ
´úÂëÈçÏ£º
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
file1: TMenuItem;
procedure FormCreate(Sender:TObject);
private
procedure MothClick(Sender:TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
PullDownOutput:TMenuItem;
Item:TMenuItem;
i:integer;
SelfPosition:integer;
begin
PullDownOutput:=TMenuItem.Create(self);
PullDownOutput.Caption:='Ô·Ý';
SelfPosition:=MainMenu1.Items.IndexOf(file1);
MainMenu1.Items.Insert(SelfPosition+1,PullDownOutput);
for i:=1 to 12 do
begin
Item:=TMenuItem.Create(self);
Item.Caption:=IntToStr(i)+'Ô·Ý';
Item.GroupIndex:=1;
Item.RadioItem:=true;
Item.onClick:=MothClick;
PullDownOutput.Insert(PullDownOutput.Count,Item);
end;
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......
ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè ˰ïÏÂæ°¡Ñ½!!!!!!!!
up
baidu£¬google
up
http://www.codepub.com/software/view-software-4061.html
ÍøÕ¾ÉÏÓÐ
......