程式間引數傳遞 Copydata

2021-09-30 03:03:11 字數 1544 閱讀 3705

風花雪月 e夢情緣

網路代號:wnhoo or sos_admin

網名:e夢緣

mail:

[email protected]

功能:第一次執行的時候…會開啟project1.exe

第二次執行的時候…不開啟project1.exe(因程式已執行)…但會將引數會丟給已執行的project1.exe

第3次執行的時候…不開啟project1.exe(因程式已執行)…但會將引數會丟給已執行的project1.exe

...[公共單元檔案]

unit unlib;

inte***ce

type

par = record

str1 : string[255];

str2 : string[255];

str3 : string[255];

end ;

implementation

end.

[工程檔案]

program project1;

uses

forms,

unit1 in 'unit1.pas' ,

windows,

messages,

dialogs,

unlib in 'unlib.pas';

[單元檔案]

unit unit1;

inte***ce

procedure createparams(var params:tcreateparams);override;

procedure restorerequest(var msg:twmcopydata);message wm_copydata;

end;

varform1: tform1;

implementation

procedure tform1.restorerequest(var msg:twmcopydata);

varrexdata :tcopydatastruct ;

ppar: ^par ;

begin

if msg.copydatastruct<> nil then

begin

rexdata := msg.copydatastruct^ ;

ppar:= rexdata.lpdata ;

if ppar^.str1='' then

memo1.lines.add('not parameter')

else

memo1.lines.add (ppar^.str1);

if ppar^.str2='' then

memo2.lines.add('not parameter')

else

memo2.lines.add (ppar^.str2);

if ppar^.str3='' then

memo3.lines.add('not parameter')

else

memo3.lines.add (ppar^.str3);

end ;

end;

end.

函式間傳遞引數

function example num example 10 自定義函式簡單示例 結果為 10 10 100 在函式間傳遞引數 1,按值傳遞方式 function example m m 1 example m echo 在函式外 m m 結果為 在函式內 a 15 在函式外 a 1 2,按引用傳...

頁面間引數傳遞

asp.net提供了卓越的事件驅動程式設計模型,讓開發者簡化了應用程式的總體設計,但是這個也造成了它固有的一些問題,例如,使用傳統的asp裡,我們可以通過使用post方法很容易地實現頁面間傳遞值,同樣的事情,在使用事件驅動程式設計模型的asp.net就不是那麼容易了,當然了,我們仍然有一些方法可以實...

C 執行緒間傳遞引數

我們如果定義不帶引數的執行緒,可以用threadstart 帶乙個引數的用parameterizedthreadstart。帶多個引數的用另外的方法,下面逐一講述。一 不帶引數的 c sharp view plain copy using system using system.collection...