procedure TForm1.Button2Click(Sender: TObject);
var
st : String;
F : TShFileOpStruct;
begin
if FileWaitBox.Items.Count <> 0 then
begin
F.Wnd := Handle;
F.wFunc := FO_COPY;
st := FileWaitBox.Items[0];
F.pFrom := 'Wait\' + st; <-- 여기
F.pTo := 'Send';
F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
if ShFileOperation(F) <> 0 then
ShowMessage('Copy Failed');
FileWaitBox.Items.Delete(0);
end;
end;
A
'여기' 부분에서 에러가 생겨요.
st가 String인데 PChar로 바꾸어야 되는데
어떻게 바꾸는지....
여기에 올라와있는 답변을 보고 해봤지만 잘 되지 않아서
다시 여쭈어봅니다.. 부탁드릴께요.
|