风花雪月 e梦情缘
网络代号:wnhoo or sos_admin 【程序编程相关:2004.11.29.CodeEdito】 【推荐阅读:Delphi线程类的使用(1) 】网名:e梦缘 【扩展信息:2004.11.29.Startinga】 mail:wnhoo@163.com功能:
第一次執行的時候…會開啟project1.exe 第二次執行的時候…不開啟project1.exe(因程式已執行)…但会将參數會丟給已執行的project1.exe 第3次執行的時候…不開啟project1.exe(因程式已執行)…但会将參數會丟給已執行的project1.exe ...[公共单元文件] unit unlib; interface type par = record str1 : string[255]; str2 : string[255]; str3 : string[255]; end ; implementation end. [工程文件] program project1;
uses
forms, unit1 in unit1.pas {form1}, windows, messages, dialogs, unlib in unlib.pas;const
appname=myname; var myhandle:hwnd; rexdata : ^copydatastruct ; ppar:^par; {$r *.res}begin
myhandle:=findwindow(appname,nil); begin getmem(rexdata,sizeof(copydatastruct)); ... 下一页