奇怪的事(50分)

kaka · 1999-05-20

procedure TForm1.Button1Click(Sender: TObject); VAR     ip,command  : string ;     comline     : pchar  ;     TEMP: TSTRINGLIST; begin          ip := ' 120.23.34.124 ';          TEMP := TSTRINGLIST.Create;          { Shellexecute(handle, 'OPEN', PChar('ping  120.23.34.124 '),nil, nil,sw_shownormal);}          command := 'COMMAND.COM /C nbtstat -A '+ip+' >I:/ka.txt';          comline := pchar(command);          WinExec(comline, sw_hide);                                        TEMP.LoadFromFile('I:/ka.txt');                    IF TEMP.Count > 0 THEN            BEGIN              IF POS('MAC',TEMP.Strings[TEMP.COUNT-1])>0 THEN                 SHOWMESSAGE(copy(TEMP.STRINGS[TEMP.COUNT-1],15,17));            END;          TEMP.FREE; end; end. 这是一个读网卡mac的program,运行后，关了以后， 改ka.txt成h.txt,program中有ka.txt成h.txt,run就说找不到h.txt, 但save退出delphi再run就ok了.

jghuang · 1999-05-20

不应该啊。

huizhang · 1999-05-20

在WinExec之后要给出足够的时间等待程序结束

CJ · 1999-05-21

Change to createprocess and wait until the process stops

kaka · 1999-05-21

cj:    你能帮我写一个用createprocess改写这个program, 我愿再出100分.

huizhang · 1999-05-21

我前几天写了一大段CreateProcess及其用法, 你看一下问题: http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=107419

yifeng · 1999-05-21

hehe,参考huizhang的程序，胡乱改改 procedure TForm1.Button1Click(Sender: TObject); var  bCreateProcess: boolean;      lpStartupInfo: TStartupInfo;      ip,command  : string ;      comline     : pchar  ;      TEMP: TSTRINGLIST; begin   ip := ' 120.23.34.124 ';   TEMP := TSTRINGLIST.Create;   command := 'COMMAND.COM /C nbtstat -A '+ip+' >I:/ka.txt';   comline := pchar(command);   Button1.Enabled := false;  // 填入 StartupInfo   FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);   lpStartupInfo.cb := Sizeof(TStartupInfo);   lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;   lpStartupInfo.wShowWindow := SW_NORMAL;   bCreateProcess := CreateProcessA(nil,ComLine,     nil, nil, True, NORMAL_PRIORITY_CLASS, nil,     nil, lpStartupInfo, lpProcessInformation);   if bCreateProcess then   begin     WaitForInputIdle(lpProcessInformation.hProcess, 60000);     memo1.Lines.Add(format('hProcess: %d', [lpProcessInformation.hProcess]));     memo1.lines.add(format('hThread: %d', [lpProcessInformation.hThread]));     memo1.lines.add(format('dwProcessID: %u', [lpProcessInformation.dwProcessID]));     memo1.lines.add(format(' dwThreadID: %u', [lpProcessInformation.dwThreadId]));   end;   TEMP.LoadFromFile('I:/ka.txt');   IF TEMP.Count > 0 THEN   BEGIN      IF POS('MAC',TEMP.Strings[TEMP.COUNT-1])>0 THEN         SHOWMESSAGE(copy(TEMP.STRINGS[TEMP.COUNT-1],15,17));   END;   TEMP.FREE; end;

kaka · 1999-05-22

改了程序; 但还是老样 procedure TForm1.Button1Click(Sender: TObject); var      bCreateProcess : Boolean;      lpProcessInformation : TProcessInformation;      lpStartupInfo: TStartupInfo;      ip,command  : string ;      comline     : pchar  ;      TEMP: TSTRINGLIST; begin       ip := ' 159.26.134.49 ';       TEMP := TSTRINGLIST.Create;       command := 'COMMAND.COM /C nbtstat -A '+ip+' >I:/ag.txt';       comline := pchar(command);       Button1.Enabled := false;  // 填入 StartupInfo       FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);       lpStartupInfo.cb := Sizeof(TStartupInfo);       lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;       lpStartupInfo.wShowWindow := SW_NORMAL;        bCreateProcess := CreateProcessA(nil,ComLine,            nil, nil, True, NORMAL_PRIORITY_CLASS, nil,              nil, lpStartupInfo, lpProcessInformation);        if bCreateProcess then        begin              WaitForInputIdle(lpProcessInformation.hProcess, 60000);              memo1.Lines.Add(format('hProcess: %d', [lpProcessInformation.hProcess]));              memo1.lines.add(format('hThread: %d', [lpProcessInformation.hThread]));              memo1.lines.add(format('dwProcessID: %u', [lpProcessInformation.dwProcessID]));              memo1.lines.add(format(' dwThreadID: %u', [lpProcessInformation.dwThreadId]));         end;        TEMP.LoadFromFile('I:/ag.txt');         IF TEMP.Count > 0 THEN              BEGIN             IF POS('MAC',TEMP.Strings[TEMP.COUNT-1])>0 THEN                  SHOWMESSAGE(copy(TEMP.STRINGS[TEMP.COUNT-1],15,17));         END;        TEMP.FREE; end; procedure TForm1.Button2Click(Sender: TObject); begin       Application.Terminate; end; compile-run-pass: 我把出现ag.txt 改为 df.txt ,save-compile-run: 说找不到 df.txt ,Program reset-save-compile-run 就ok了.or退出delphi再open project,compile-run也ok. 大侠可以把ip改为自己local net 随便那一台machine ip(except host). try

CJ · 1999-05-22

已经有人写了，最近看到一个构件，贴出来： unit process; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   TShowWindow = ( swHide , swMaximize , swMinimize , swRestore , swShow ,     swShowDefault , swShowMaximized , swShowMinimized ,     swShowMinNoActive , swShowNA , swShowNoActivate , swShowNormal );   TProcessEvent = procedure ( Sender : TObject; ExitCode : DWord ) of object;   TProcess = class(TComponent)   private     FCommand : string;     FShowWindow : TShowWindow;     FDirectory : string;     FWait : Boolean;     FOnFinished : TProcessEvent;   protected   public     constructor Create( AOwner : TComponent );     procedure Execute;   published     property Command : string read FCommand write FCommand;     property Directory : string read FDirectory write FDirectory;     property ShowWindow : TShowWindow read FShowWindow write FShowWindow;     property Wait : Boolean read FWait write FWait;     property OnFinished : TProcessEvent read FOnFinished write FOnFinished;   end; procedure Register; implementation const ShowWindowValues : array [ 0..11 ] of integer =   ( sw_Hide , sw_Maximize , sw_Minimize , sw_Restore , sw_Show ,     sw_ShowDefault , sw_ShowMaximized , sw_ShowMinimized ,     sw_ShowMinNoActive , sw_ShowNA , sw_ShowNoActivate , sw_ShowNormal ); type   TProcessThread = class( TThread )   private     FProcess : TProcess;   protected     procedure Execute; override;   public     constructor CreateThread( Process : TProcess );   end; procedure Register; begin   RegisterComponents('Samples', [TProcess]); end; constructor TProcess.Create( AOwner : TComponent ); begin   inherited Create( AOwner );   FShowWindow := swShowNormal;   FWait := False; end; procedure TProcess.Execute; begin   TProcessThread.CreateThread( Self ); end; //------------------------------------------------------------------------------ //  TProcessThread constructor TProcessThread.CreateThread( Process : TProcess ); begin   inherited Create( True );   FProcess := Process;   FreeOnTerminate := True;   Resume; end; procedure TProcessThread.Execute; var   StartupInfo : TStartupInfo;   ProcessInfo : TProcessInformation;   ExitCode : DWord;   Directory : PChar; begin   FillChar( StartupInfo , SizeOf( StartupInfo ) , 0 );   with StartupInfo do     begin       cb := SizeOf( StartupInfo );       dwFlags := startf_UseShowWindow;       wShowWindow := ShowWindowValues[ Ord( FProcess.ShowWindow ) ];     end;   ExitCode := 0;   FProcess.Directory := Trim( FProcess.Directory );   if Length( FProcess.Directory ) = 0 then     Directory := nil   else     Directory := PChar( FProcess.Directory );   if CreateProcess( nil , PChar( FProcess.Command ) , nil , nil , False ,     NORMAL_PRIORITY_CLASS , nil , Directory ,     StartupInfo , ProcessInfo ) then     begin       if FProcess.Wait then         begin           WaitForSingleObject( ProcessInfo.hProcess , Infinite );           GetExitCodeProcess( ProcessInfo.hProcess , ExitCode );           if Assigned( FProcess.FOnFinished ) then             FProcess.FOnFinished( FProcess , ExitCode );         end;       CloseHandle( ProcessInfo.hProcess );       CloseHandle( ProcessInfo.hThread );     end; end; end.

yifeng · 1999-05-22

我是过程序了，可以的呀，不过我的txt里面是host not found

kaka · 1999-05-23

你可以把ip改成自己的ip,再把command改成 command := 'COMMAND.COM /C winipcfg -A '+ip+' >I:/ag.txt' 关键要像我的步骤来，就会出现怪事。

茶叶蛋 · 1999-09-29

还有大虾对这个问题有意见吗? 晓茶在网吧上网,看到此类问题干着急.

)

wjiachun · 2000-08-24

接受答案了.

奇怪的事(50分)

kaka

Unregistered / Unconfirmed

jghuang

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

kaka

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

yifeng

Unregistered / Unconfirmed

kaka

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

yifeng

Unregistered / Unconfirmed

kaka

Unregistered / Unconfirmed

茶叶蛋

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads