если б алгоритм был содран - он хотябы работал.
| Код |
AssignFile(f,s+'\1.txt');
Reset(f);
While not eof(f) do
begin
ReadLn(f,s1);
if s1<>'' then
begin
if (s1[1]='к')and(s1[2]='л') then
begin
s2:=copy(s1,6,length(s1)-5);
for i:=1 to length(s2) do if s2[i]=' ' then SetCursorPos(StrToInt(copy(s2,1,i-1)),StrToInt(copy(s2,i+1,length(s2)-i)));
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
if s1[1]='т' then
begin
s3:=copy(s1,7,length(s1)-6);
//CopyStringToClipboard(s3);
//Clipboard.AsText:=s3;
SetClipboardText(Form1,s3);
SetWindowText(Form1,pchar(s3));
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
beep(100,100);
end;
if s1[1]='п' then
begin
s3:=copy(s1,7,length(s1)-6);
Sleep(StrToInt(s3));
end;
if (s1[1]='к')and(s1[2]='о') then
begin
s3:=copy(s1,9,length(s1)-8);
ShellExecute(ABM_NEW, 'open', pchar(s3), nil, nil,ABM_REMOVE);
end;
if (s1[1]='к')and(s1[2]='н') then
begin
s3:=copy(s1,8,length(s1)-7);
keybd_event(StrToInt(s3), MapVirtualKey(StrToInt(s3), 0), 0, 0);
keybd_event(StrToInt(s3), MapVirtualKey(StrToInt(s3), 0), KEYEVENTF_KEYUP, 0);
end;
end;
end;
CloseFile(f);
|
|
)
Изначально то ведь вопрос был "почему не копируется то, что надо".