谁有Delphi 5 的安装光盘- - - - - - - 很急，求助！

Question

谁有Delphi 5的安装光盘吗?如果有，麻烦帮我把光盘上的Info\Extras\SendKeys目
录下的SndKey32.pas文件发到,我现在在外出差急需，因为该文件能解决我的问题，万分感谢！

Answer 1

大半夜的找了半天，找到了Delphi5.5的文件，有一些函数如下：是你要的吗？
累死我，呵呵function EnumWindowsProc(WHandle: HWND; lParam: LPARAM): BOOL; export; stdcall;
const
  MAX_WINDOW_NAME_LEN = 80;
var
  WindowName : array[0..MAX_WINDOW_NAME_LEN] of char;
begin
  {Can't test GetWindowText's return value since some windows don't have a title}
  GetWindowText(WHandle,WindowName,MAX_WINDOW_NAME_LEN);
  Result := (StrLIComp(WindowName,PChar(lParam), StrLen(PChar(lParam))) <> 0);
  If (not Result) then WindowHandle:=WHandle;
end;function AppActivate(WindowName : PChar) : boolean;
begin
  try
    Result:=true;
    WindowHandle:=FindWindow(nil,WindowName);
    If (WindowHandle=0) then EnumWindows(@EnumWindowsProc,Integer(PChar(WindowName)));
    If (WindowHandle<>0) then begin
      SendMessage(WindowHandle, WM_SYSCOMMAND, SC_HOTKEY, WindowHandle);
      SendMessage(WindowHandle, WM_SYSCOMMAND, SC_RESTORE, WindowHandle);
    end else Result:=false;
  except
    on Exception do Result:=false;
  end;
end;

Answer 2

我是用sina发给你的，收到时，回复我一下

Answer 3

rouqing朋友：
   我已经收到，并解决了问题，非常感谢！可以结贴了。