目前我在寫一個會員卡系統
別人給我了一段程式碼，但是可能是他之前寫的，所以可能有些地方有誤
但是我又是新手，所以能改的地方有限
想請大大幫我解釋一下程式碼

Issue.exe這個是格式化卡片的程式
他會將Member.tc的檔案內容寫入卡片
而他上面2個檔案必需放在同一個file中才能成功
下面是程式碼，我盡量將我懂的部份加上註解了

procedure TForm1.Button1Click(Sender: TObject); //格卡程式
var
keycode,str,fname,ln,space:String;
F:TextFile;
i:Integer;
begin
Screen.Cursor:=crHourGlass; //有大大能說明一下這一行嗎？
try
try
Application.ProcessMessages;
keycode:=FormatDateTime('yyMMDD',Now); //依時間來取得金鑰
str:=e_id.Text ';' e_name.Text ';' '0' ';' '0' ';'; //明文為會員編號加名字
SeqEnc(Str,StrToInt(keycode),6); //str 明文 StrToInt(keycode) 將金鑰轉換成int 加密6次
str:=EncodeString(str);
/*上面是加密與輸入資料的部份*/
fname:=GetSysDir '\Member.TC'; //試過將這行改為fname:='\Member.TC'; 但是出現錯誤
space:=' '; //因為卡片的結尾一定要為空白，不然會出現錯誤
AssignFile(F,fname);
Rewrite(F);
Writeln(F,keycode);
for i :=2 to 20 do begin
if str<>'' then begin
ln:=Copy(str,1,10);
Delete(str,1,Length(ln));
ln:=Copy(ln space,1,10);
end else
ln:=space;
Writeln(F,ln);
end;
finally
CloseFile(F);
end;
try
execfile('Issue.exe'); //呼叫Issue.exe'將member.tc的資料寫入卡片

finally
//DeleteFile(fname); 原使程式有這行，但是作用為何不清楚
end;
Application.MessageBox(PChar('格卡完畢!!'),PChar('格卡完畢'),MB_ICONINFORMATION MB_TASKMODAL MB_OK);
finally
Screen.Cursor:=crDefault;
end;
end;

function TForm1.GetSysDir: AnsiString;
begin
SetLength(Result,MAX_PATH 1);
SetLength(Result,GetSystemDirectory(PChar(Result), MAX_PATH));
end;

procedure TForm1.execfile(exename: AnsiString);
var Info:TShellExecuteInfo;
begin
FillChar(Info, SizeOf(Info), 0);
Info.cbSize := SizeOf(Info);
Info.fMask := SEE_MASK_NOCLOSEPROCESS;
Info.Wnd := 0;
Info.lpVerb := 'open';
Info.lpFile := pchar(exename);
Info.lpDirectory := nil;
Info.nShow := SW_HIDE;
if (ShellExecuteEx(@Info)) then begin
WaitForSingleObject(Info.hProcess,INFINITE);
CloseHandle(Info.hProcess);
end;
end;

想請問一下，他這樣寫的路徑是將member.tc的檔案指在system32底下
但是我'Issue.exe'卻好像不是，可否能請大大解答一下
感謝

照這樣看來，應該是路徑不太對...

你的程式直接呼叫 Issue.exe 而沒有加上完整資料夾，那你程式應該是和 Issue.exe 放在同一個資料夾下

而你指定 fname:= GetSysDir '\Member.TC'; 會變成 c:\Windows\system32\Member.TC
那可能會不符合 Issue.exe 的限制
所以直接指定 fname:= 'Member.TC'; 就可以了

除非你已經非常確定 Issue.exe 是放在哪個資料夾下，例如: c:\Issue\Issue.exe
那你就可以直接指定 fname:= c:\Issue\Member.TC
而 procedure TForm1.execfile(exename: AnsiString); 程序中的
Info.lpDirectory := nil; 可能要指定成 Info.lpDirectory:= 'c:\Issue';

DeleteFile(fname);
是不管你執行 execfile('Issue.exe'); 以後有沒有成功，最後都把 Member.TC 這個檔案刪掉
應該是避免不小心再次格式化 Member.TC 檔案裡面所指定的會員卡片吧...

Screen.Cursor:=crHourGlass; // 將游標改為忙碌的樣子
try
...
finally
Screen.Cursor:=crDefault; // 不管如何...最後...恢復游標為預設的樣子
end;

照這樣看來，應該是路徑不太對... 我知道是路徑不太對，試了一陣子，因為我是新手

你的程式直接呼叫 Issue.exe 而沒有加上完整資料夾，那你程式應該是和 Issue.exe 放在同一個資料夾下 沒錯，程式與issue.exe放於同個位置

而你指定 fname:= GetSysDir '\Member.TC'; 會變成 c:\Windows\system32\Member.TC
那可能會不符合 Issue.exe 的限制
所以直接指定 fname:= 'Member.TC'; 就可以了

除非你已經非常確定 Issue.exe 是放在哪個資料夾下，例如: c:\Issue\Issue.exe
那你就可以直接指定 fname:= c:\Issue\Member.TC
而 procedure TForm1.execfile(exename: AnsiString); 程序中的
Info.lpDirectory := nil; 可能要指定成 Info.lpDirectory:= 'c:\Issue';

DeleteFile(fname);
是不管你執行 execfile('Issue.exe'); 以後有沒有成功，最後都把 Member.TC 這個檔案刪掉
應該是避免不小心再次格式化 Member.TC 檔案裡面所指定的會員卡片吧...

Screen.Cursor:=crHourGlass; // 將游標改為忙碌的樣子
try
...
finally
Screen.Cursor:=crDefault; // 不管如何...最後...恢復游標為預設的樣子
end;

非常感謝你解決我的問題，再次感謝