如何使程序只能由其它程序调用?(100分)

Town · 1999-07-07

现需要做2个程序,主程序a.exe和附属程序b.exe, 怎样使程序b.exe只能由a.exe调用,而不能独立运行?即使a.exe已经运行   ,双击b.exe也必须不能运行.

datoncg · 1999-07-07

在b中判断a是否在运行，不就可以了吗？

menxin · 1999-07-07

你可以为b.exe 作一个不公开的参数。

redforks · 1999-07-07

把b的扩展名改为其他的名字(如*.dat),用户就不会直接启动他了.

amo · 1999-07-07

用Winexec 或CreateProcess运行b.exe时，可在lpszCmdLine和lpCommandLine参数中作手脚。 BOOL CreateProcess(     LPCTSTR  lpApplicationName,     LPTSTR  lpCommandLine,     LPSECURITY_ATTRIBUTES  lpProcessAttributes,     LPSECURITY_ATTRIBUTES  lpThreadAttributes,     BOOL  bInheritHandles,     DWORD  dwCreationFlags,     LPVOID  lpEnvironment,     LPCTSTR  lpCurrentDirectory,     LPSTARTUPINFO  lpStartupInfo,     LPPROCESS_INFORMATION  lpProcessInformation   &nbsp

; UINT WinExec(     LPCSTR  lpszCmdLine,     UINT  fuCmdShow   &nbsp

;

柳五公子 · 1999-07-07

以上方法都是不太好，用我的吧！ 修改程序a的Project Source: program a; uses   Forms,   Windows,   main in 'main.pas' {Form1}; const   evstr = 'I must be run first'; {$R *.RES} begin   Application.Initialize;   SetEnvironmentVariable('EnvirVar',evstr);   Application.CreateForm(TForm1, Form1);   Application.Run; end. 修改程序b的Project Source: program sub; uses   Forms,   Windows,   SysUtils,   Dialogs,   submain in 'submain.pas' {Form1}; const   evstr = 'I must be run first'; {$R *.RES} var   str :array [0..127] of char; begin   GetEnvironmentVariable('EnvirVar',@str,128);   if strpas(str)<>evstr then   begin     ShowMessage('this program could only be run under program A !');     Application.Terminate;     Exit;   end;   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

柳五公子 · 1999-07-07

哎呀，差点忘了，在程序中加入对程序b(在我这儿是sub)的调用,以下是上面那个例 子的继续： function WinExecProcess(FileName:String; Visibility : integer):boolean; var   zAppName:array[0..512] of char;   zCurDir:array[0..255] of char;   WorkDir:String;   StartupInfo:TStartupInfo;   ProcessInfo:TProcessInformation; begin   StrPCopy(zAppName,FileName);   GetDir(0,WorkDir);   StrPCopy(zCurDir,WorkDir);   FillChar(StartupInfo,Sizeof(StartupInfo),#0);   StartupInfo.cb := Sizeof(StartupInfo);   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   StartupInfo.wShowWindow := Visibility;   if not CreateProcess(nil,     zAppName,                      { pointer to command line string }     nil,                           { pointer to process security attributes }     nil,                           { pointer to thread security attributes }     false,                         { handle inheritance flag }     CREATE_NEW_CONSOLE or          { creation flags }     NORMAL_PRIORITY_CLASS,     nil,                           { 继承当前程序的环境！}     nil,                           { pointer to current directory name }     StartupInfo,                   { pointer to STARTUPINFO }     ProcessInfo) then     Result := false { pointer to PROCESS_INF }     else       Result := true;     end; } end; procedure TForm1.Button1Click(Sender: TObject); var   cmdline :string; begin   cmdline := ExtractFilePath(paramstr(0))+'sub.exe';   if not WinExecProcess(cmdline,1) then     showmessage('could not call program sub!'); end;

tqz · 1999-07-07

同意柳五公子的方法，补充一点：可以用FileMapping函数，可能比用环境变量 干净。

Town · 1999-07-07

1.datoncg的方法不能保证b.exe不被独立运行. 2.menxin的方法和俺想的一样,但是我不知道如何在Delphi中使用   命令行参数. 俺再加50分请menxin老兄说说怎样在Delphi中使用命令   行参数，不知可否？ 3.redforks的方法很有趣,看来俺的思维太受定势的影响. 4.amo的说法俺没懂,是否也是要做一个带参数的程序? 5.柳五公子的方法简明、好用,完全达到了俺的目的，呵呵. 6.tqz所言之filemapping函数,俺遍寻未得。请问如何使用？

Schiesser · 1999-07-07

由a产生一临时文件,b运行时判断此特定的临时文件是否存在即可.

柳五公子 · 1999-07-07

town:     tqz大虾的意思是建立一段共享内存(你可以参考API），a在共享内存内做个标 记，b启动时检查这个标记。

Traveller · 1999-07-07

你可以看看Word5.0的Graphics，它使用的是OLE接口，可以保证不能单独运行，如果单独运行会有提示并退出，仅供参考

Traveller · 1999-07-07

还有一种方式就是把B.EXE做成动态链接库DLL（名字无所谓啦

）。

redforks · 1999-07-07

最简单而可靠的方法: 假定程序A的主Form的类名是TFormA, 标题(Caption)是'FormA', 则在程序b的项目文件中(.dpr文件, Project|View Source)可以这样写: uses   Windows, //添加这一行   Forms,   ....; ... begin   Application.Initialize;   if FindWindow('TFormA', 'FormA') = 0 then   begin     ShowMessage('程序b不能单独运行!');     Application.Terminate;   end;   Application.CreateForm(TFormB, FormB);   Application.Run; end.

redforks · 1999-07-07

Sorry, 题目意思理解错了. 上面的"最简单而可靠的方法:" 不行.不能够防止程序A运行后又运行b.

Another_eYes · 1999-07-08

看来命令行参数最可靠了. 修改b的dpr:   ..... begin   if (paramcount = 1) and (paramstr(1) = 'somespecialstring') then   begin     Application.Initialize;     Application.CreateForm(TForm1, Form1);     Application.Run;   end; end.

menxin · 1999-07-08

我认为你只要对你的程序作如下手脚就可以达到目的 对b.exe project中加入   Application.Initialize;   Application.CreateForm(TForm1, Form1); ......   if ParamStr(1)='hideparam' then //若第一个参数为hideparam时执行     Application.Run; 对a.exe 调用b时用       WinExec(Pchar('b hideparam'),0);  带参数调用b.exe

Town · 1999-07-08

很满意

柳五公子得此题之100分, Another_eYes,menxin,redforks分享另外的100分, 请到<a href="DispQ.asp?LID=119624">此处</a>领取

Town · 1999-07-09

接受答案了.

如何使程序只能由其它程序调用?(100分)

Town

Unregistered / Unconfirmed

datoncg

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

柳五公子

Unregistered / Unconfirmed

柳五公子

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

Town

Unregistered / Unconfirmed

Schiesser

Unregistered / Unconfirmed

柳五公子

Unregistered / Unconfirmed

Traveller

Unregistered / Unconfirmed

Traveller

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

Town

Unregistered / Unconfirmed

Town

Unregistered / Unconfirmed

Similar threads