「'HWND'と'String'には互換性がありません」 (ID：5399)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちは。
いつも参考にさせていただいております。

現在、Excelのファイル出力の処理を行っております。
ファイルはまず雛型のファイルをコピーして作成しています。

処理自体は、下記で問題なく行えます。

ただ、出来れば下記のモジュールを他のAPと共有したい為、
別のUnitに移動させたいなと思うのですが、
移動させると、
「'HWND'と'String'には互換性がありません」
「'String'と'HWND'には互換性がありません」
というコンパイルエラーが発生してしまいます。
移動させたいが為にHandleも引数に持ってみたのですが・・・

このような事の実現は無理なのでしょうか？
何か情報をお持ちの方、ご教授下さいませ。

Delphi7を使っています。

:
   if funcFileCopy(gsScheltonPath, sOutputPath, Handle) = false then
   begin
      exit;
   end;
             :

function TForm1.funcFileCopy(psFromPath: string; psToPath: string; phHandle:HWND): boolean;
var
   sFileName         : string;
   foStruct          : TSHFileOpStruct;
begin
   result := false;

with   foStruct   do
   begin
      wnd                     :=  phHandle;
      wFunc                   :=  FO_COPY;
      pFrom                   :=  PChar(psFromPath + #0);
      pTo                     :=  PAnsiChar(psToPath);
      fFlags                  :=  FOF_FILESONLY  or FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
      fAnyOperationsAborted   :=  False;
      hNameMappings           :=  nil;
      lpszProgressTitle       :=  nil;
   end;

if (SHFileOperation(foStruct) <> 0) or (foStruct.fAnyOperationsAborted) then
   begin
      exit;
   end;
   result := true;
end;

←解決時は質問者本人がここをチェックしてください。

戻る