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

[terrace]

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

[纯冰糖]

去收吧

[纯冰糖]

大半夜的找了半天，找到了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;

[纯冰糖]

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

[terrace]

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