Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Запрет запуска двух копий wlx 
Author Message
Nik



PostPosted: Thu Feb 03, 2005 21:49    Post subject: Reply with quote

SCHMaster

При первом обращении к переменной DMainData (при проверке условия) происходит сбой (Access v.)...

Code:
 if DMainData^.MainForm = 0 then
  begin
   DMainData^.MainForm:=CreateViewer(ParentWin, FileToLoad);
   if DMainData^.MainForm = 0 then Exit;
  end
 else
  begin
   I:=SendMessage(DMainData^.MainForm,WM_COPYDATA,0,0);
   if I = 0 then Exit;
  end;


Я пока не могу понять, в чем проблема...
Остальной код взял из твоего примера.
View user's profile Send private message Visit poster's website ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group